XProfan

Windowtitle "STANGE-UMS-ECK-PROBLEM"
declare x!,y!,Lmax!,h!
start:
font 2:Imprimer "\n Vorfrage: Lichte Plafondhöhe dans [m],"
imprimer "\n (Wert 0: 2D-Problem): ";:input h!:imprimer
rept:
font 2
imprimer "\n Breite de couloir 1 [m] = ";:input x!:cas x!<=0:x!=1/1e12
imprimer "\n Breite de couloir 2 [m] = ";:input y!:cas y!<=0:y!=1/1e12
Lmax!=((x!)^(2/3)+(y!)^(2/3))^1.5
imprimer "\n Max. Schattenlänge = ";Lmax!,"[m]"
imprimer "\n\n cela bedeutet, schräg angehoben bekommt on eine"
imprimer "\n schlanke Stange avec einer maximalen Raumdiagonale "
imprimer "\n de ";format$("0.000",Sqrt(sqr(h!)+sqr(Lmax!)));
imprimer " [m] à coin.":font 0
imprimer "\n\n [bouton ou bien ESC pour Neustart]"
waitinput
cls
cas %clé=27:goto "start"
goto "rept"