PROGRAM NAME: DROP This program is for the TI-82/83 calculator it is a smaller part of the larger program. Becuase of font limitations the "->" means to use the "STO" key on the calculator. Return to program description page. ClrHome [A]((C-1),3)->V Lbl A Menu(" LOOP TYPE ","SYMETRICAL",B,"IRREGULAR",C,"GO BACK",D) Lbl B ClrHome Disp "SYMETRICAL LOOP":Disp "================" Output(7,1,"ENTER '0' TO GO"):Output(8,1,"BACK") Input "RADIUS (M):",R If R=0:Then:Return:End R->P Goto E Lbl C ClrHome Disp " IRREGULAR LOOP ":Disp "================" Output(3,1,"LOWER RADIUS":Output(4,1,"IN (M):"):Output(5,1,"&endash;&endash;&endash;&endash;&endash;&endash;&endash;&endash;&endash;&endash;&endash;&endash;&endash;&endash;&endash;&endash;") Output(6,1,"UPPER RADIUS"):Output(7,1,"IN (M):") Disp "LOWER RADIUS":Input "IN (M):",R If R=0:Then:Return:End Disp "&endash;&endash;&endash;&endash;&endash;&endash;&endash;&endash;&endash;&endash;&endash;&endash;&endash;&endash;&endash;&endash;"::Disp "UPPER RADIUS":Input "IN (M):",P If P=0:Then:Return:End Goto E Lbl D Return Lbl E
If (V-2*G*(R+P))<0:Then ClrHome Disp " " Disp "THE CAR WON'T" Disp " MAKE IT TO" Disp " THE TOP OF" Disp " THE LOOP. " Output(8,10,"[ENTER]") Pause :Goto A:End
V/(R*G)->A Ã(V-(2*G*(R+P)))->U U/(P*G)->B 2*((V-U)/G)->T ClrHome Disp "------LOOP------" Disp "LOWER V:" Disp "G'S FELT:" Disp "HEIGHT:" Disp "UPPER V:" Disp "G'S FELT:" Disp "TIME (S):" Output(8,7,"ACCEPT Y/N") Fix 1 Output(2,10,V) Output(3,11,A) Output(4,9,(R+P)) Output(5,10,U) Output(6,11,B) Fix 2 Output(7,11,T) getKey->K
While (K=0):getKey->K:End If K=71:Then:Goto A:End ClrHome:Disp "YES" 4->[A](C,1) T->[A](C,2) V->[A](C,3) R->[A](C,4) P->[A](C,5) U->[A](C,6) B->[A](C,7) A->[A](C,8) (R+P)->[A](C,9) C+1->C |
A special thanks to VASTfor hosting our web site. |