XProfan

WindowTitle "Bildschirmdimensionen eines 16:9 Fernsehers"
WindowStyle 24:CLS:font 2:declare Diag!
:proc Breite :parameters Diag!:return Diag!*16/sqrt(337):endproc
:proc Höhe :parameters Diag!:return Diag!*9/sqrt(337):endproc
Nochmal:
print "\n Diagonale [cm oder -Zoll] = ";:input Diag!
case Diag!<0:Diag!=-2.54*Diag!
print "\n Sichtbare Bildhöhe   [cm]: ";format$("%g",Höhe(Diag!))
print "\n Sichtbare Bildbreite [cm]: ";format$("%g",Breite(Diag!))
print "\n Probewert Diag = ";
print format$("%g",sqrt(sqr(Breite(Diag!))+sqr(Höhe(Diag!))))
waitinput:cls:goto "Nochmal"