XProfan

Windowtitle "STANGE-UMS-ECK-PROBLEM"
declarar x!,y!,Lmax!,h!
start:
font 2:Imprimir "\n Vorfrage: Lichte Plafondhöhe en [m],"
imprimir "\n (Valor 0: 2D-Problema): ";:input h!:imprimir
rept:
font 2
imprimir "\n Breite de Gang 1 [m] = ";:input x!:caso x!<=0:x!=1/1e12
imprimir "\n Breite de Gang 2 [m] = ";:input y!:caso y!<=0:y!=1/1e12
Lmax!=((x!)^(2/3)+(y!)^(2/3))^1.5
imprimir "\n Max. Schattenlänge = ";Lmax!,"[m]"
imprimir "\n\n Das bedeutet, schräg angehoben bekommt uno eine"
imprimir "\n schlanke Stange con uno maximalen Raumdiagonale "
imprimir "\n de ";format$("0.000",Sqrt(sqr(h!)+sqr(Lmax!)));
imprimir " [m] a Ecke.":font 0
imprimir "\n\n [Taste oder ESC para Neustart]"
waitinput
cls
caso %key=27:goto "start"
goto "rept"