**TI92P*mainProgram file 11/18/09, 21:50Rfall2ƒ¥Z)() Prgm 0z ClrIO Disp "Fall mit Reibung - turbulent" Disp "" Input "Reibungskonstante k =def FR/m/v^2 in 1/m k=",k Input "Takt=",t Input "Anfangsgeschwindigkeit v=",v Input "Anfangshoehe ho=",ho hoh While h>0 9.81-k*v^2a v+a*tv h-v*th z+tz If int(z)=z Then Disp "" Disp "Fallweg s="&string(ho-h) Disp "Restbeschleunigung a="&string(a) Disp "Momentangeschwindigkeit v="&string(v) Disp "Fallzeit z="&string(z) Pause EndIf EndWhile Disp "" Disp "AUFSCHLAG bei" Disp "s="&string(ho-h)&" a="&string(a)&" v="&string(v)&" z="&string(z) EndPrgmäåܨ¯