XProfan

Titre de la fenêtre "Bildschirmdimensionen eines 16:9 Fernsehers"
Fenêtre Style 24:CLS:font 2:declare Diag!
:proc Breite :parameters Diag!:return Diag!*16/sqrt(337):endproc
:proc Hauteur :parameters Diag!:return Diag!*9/sqrt(337):endproc
Nochmal:
imprimer "\n Diagonale [cm ou bien -douane] = ";:input Diag!
cas Diag!<0:Diag!=-2.54*Diag!
imprimer "\n Sichtbare Bildhöhe   [cm]: ";format$("%g",Hauteur(Diag!))
imprimer "\n Sichtbare Bildbreite [cm]: ";format$("%g",Breite(Diag!))
imprimer "\n Probewert Diag = ";
imprimer format$("%g",sqrt(sqr(Breite(Diag!))+sqr(Hauteur(Diag!))))
waitinput:cls:goto "Nochmal"