View difference between Paste ID: rdkxvKky and ZU8YrQ94

 
 :Program ZZALGEBR
 :While 1
 :¦ DelVar KDelVar J
 :¦ "MADE BY AES SEDIA5"→Str1
 :¦ "CEMETECH.NET"→Str2
 :¦ ClrHome
 :¦ ClrDraw
 :¦ a+bi
 :¦ 0
 :¦ Text(1,1,"ALL THINGS FOR ALGEBRA
 :¦ Text(7,1,"1.EXPONENTIAL GROWTH
 :¦ Text(13,1,"2.DISTANCE BETWEEN TWO POINTS
 :¦ Text(19,1,"3.DOUBLING TIME OF AN OBJECT
 :¦ Text(25,1,"4.HALF LIFE OF AN OBJECT
 :¦ Text(37,1,"6.MORE PROGRAMS
 :¦ Text(43,1,"7.EXIT
 :¦ Text(49,1,Str1
 :¦ Text(55,1,Str2
 :¦ Repeat K
 :¦ ¦ getKey→K
 :¦ End
 :¦ If K=72
 :¦ Then
 :¦ ¦ ClrDraw
 :¦ ¦ Text(1,1,"THANK YOU FOR USING
 :¦ ¦ Text(13,1,"ALGEBRA
 :¦ ¦ Text(25,1,"FROM THE FIVE PACK
 :¦ ¦ Text(37,1,"OF MATH
 :¦ ¦ Text(49,1,Str1
 :¦ ¦ Text(55,1,Str2
 :¦ ¦ rand(100)
 :¦ ¦ DelVar K
 :¦ ¦ ClrDraw
 :¦ ¦ Disp
 :¦ ¦ Return
 :¦ End
 :¦ If K=92
 :¦ Then
 :¦ ¦ ClrDraw
 :¦ ¦ Text(1,1,"EXPONENTIAL GROWTH
 :¦ ¦ Text(13,1,"1.FIND FOR CONTINUOUS Use e^
 :¦ ¦ Text(25,1,"2.FIND NON-CONTINUOUS DO NOT USE e^
 :¦ ¦ Text(37,1,"3.BACK
 :¦ ¦ Text(49,1,Str1
 :¦ ¦ Text(55,1,Str2
 :¦ ¦ Repeat Ans
 :¦ ¦ ¦ getKey
 :¦ ¦ End
 :¦ ¦ If Ans=92
 :¦ ¦ Then
 :¦ ¦ ¦ Input "INITIAL AMOUNT",N
 :¦ ¦ ¦ Input "RATE OF GROWTH",R
 :¦ ¦ ¦ Input "TIME",T
 :¦ ¦ ¦ Input "FINAL AMOUNT",θ
 :¦ ¦ ¦ If not(θ
 :¦ ¦ ¦ Ne^(RT)→θ
-:¦ ¦ ¦ ln(θ)-ln(N)-ln(T→R
+
 :¦ ¦ ¦ ln(θ/N)/T→R
-:¦ ¦ ¦ θ/(e^(RT)→N
+
 :¦ ¦ ¦ θe^(RT)→N
-:¦ ¦ ¦ (ln(θ)-ln(N)/R→T
+
 :¦ ¦ ¦ ln(θ/N)/R→T
 :¦ ¦ ¦ Disp "INITIAL"
 :¦ ¦ ¦ Pause N
 :¦ ¦ ¦ Disp "FINAL AMOUNT"
 :¦ ¦ ¦ Pause ,θ
 :¦ ¦ ¦ Disp "RATE"
 :¦ ¦ ¦ Pause R
 :¦ ¦ ¦ Disp "TIME"
 :¦ ¦ ¦ Pause T
 :¦ ¦ End
 :¦ ¦ If Ans=93
 :¦ ¦ Then
 :¦ ¦ ¦ Input "INITIAL AMOUNT",N
 :¦ ¦ ¦ Input "INTEREST RATE",R
 :¦ ¦ ¦ Input "TIME",T
 :¦ ¦ ¦ Input "FINAL AMOUNT",θ
-:¦ ¦ ¦ N(1+R)^T→θ
+
 :¦ ¦ ¦ N(R+1)^T→θ
-:¦ ¦ ¦ θ/(1+R)^T→N
+
 :¦ ¦ ¦ θ/(R+1)^T→N
-:¦ ¦ ¦ (ln(θ)-ln(N))/(ln(1+R))→T
+
 :¦ ¦ ¦ ln(θ/N)/ln(R+1)→T
-:¦ ¦ ¦ (θ/N)^(1/T)-1→N
+
 :¦ ¦ ¦ T<xth root>(θ/N)-1->R
 :¦ ¦ ¦ Disp "FINAL AMOUNT",θ
 :¦ ¦ ¦ Disp "STARTING AMOUNT"
 :¦ ¦ ¦ Pause N
 :¦ ¦ ¦ Disp "RATE",R
 :¦ ¦ ¦ Disp "TIME"
 :¦ ¦ ¦ Pause T
 :¦ ¦ End
 :¦ End
 :¦ If K=93
 :¦ Then
 :¦ ¦ Text(1,1,"DISTANCE BETWEEN TWO POINTS
 :¦ ¦ Input "X1",A
 :¦ ¦ Input "X2",B
 :¦ ¦ Input "Y1",C
 :¦ ¦ Input "Y2",D
 :¦ ¦ √(((A-B)2)+((C-D)2))→θ
 :¦ ¦ Disp "DISTANCE BETWEEN"
 :¦ ¦ Pause θ
 :¦ End
 :¦ If K=94
 :¦ Then
 :¦ ¦ ClrDraw
 :¦ ¦ Text(1,1,"FIND THE DOUBLING TIME
 :¦ ¦ Text(19,1,"PUT ZERO IN FOR UNKNOWN
 :¦ ¦ rand(100
 :¦ ¦ Input "TIME",T
 :¦ ¦ Input "CONSTANT",R
 :¦ ¦ Repeat TR
 :¦ ¦ ¦ If not(T
 :¦ ¦ ¦ Then
 :¦ ¦ ¦ ¦ ln(2)/R→T
 :¦ ¦ ¦ ¦ Disp "TIME":Pause T
 :¦ ¦ ¦ End
 :¦ ¦ ¦ If not(R
 :¦ ¦ ¦ Then
 :¦ ¦ ¦ ¦ ln(2)-T→R
 :¦ ¦ ¦ ¦ Disp "CONSTANT":Pause R
 :¦ ¦ ¦ End
 :¦ ¦ End
 :¦ End
 :¦ If K=82
 :¦ Then
 :¦ ¦ ClrDraw
 :¦ ¦ Text(1,1,"FIND THE HALF LIFE OF AN OBJECT
 :¦ ¦ Text(25,1,"INPUT ZERO FOR UNKNOWN
 :¦ ¦ rand(100
 :¦ ¦ Input "INITIAL AMOUNT",A
 :¦ ¦ Input "AMOUNT TO FIND",B
 :¦ ¦ Input "TIME",T
 :¦ ¦ Input "RATE",R
 :¦ ¦ Repeat ABTR
 :¦ ¦ ¦ If X=10
 :¦ ¦ ¦ Then
 :¦ ¦ ¦ ¦ Disp "ONLY ONE","UKNOWN ALLOWED"
 :¦ ¦ ¦ ¦ rand(100)
 :¦ ¦ ¦ ¦ 82→K
 :¦ ¦ ¦ End
 :¦ ¦ ¦ If ABTnot(R
 :¦ ¦ ¦ ln(B/A)/T→R
 :¦ ¦ ¦ If ARTnot(B
 :¦ ¦ ¦ Ae^(RT→B
 :¦ ¦ ¦ If BRTnot(A)
 :¦ ¦ ¦ e^(RT)-B→A
 :¦ ¦ ¦ If ABRnot(T)
 :¦ ¦ ¦ ln(B/A)/R→T
 :¦ ¦ ¦ X+1→X
 :¦ ¦ End
 :¦ ¦ Disp "TIME"
 :¦ ¦ Pause T
 :¦ ¦ Disp "RATE"
 :¦ ¦ Pause R
 :¦ ¦ Disp "INITIAL AMOUNT"
 :¦ ¦ Pause A
 :¦ ¦ Disp "AMOUNT TO FIND"
 :¦ ¦ Pause B
 :¦ End
 :¦ If K=84
 :¦ Then
 :¦ ¦ ClrDraw
 :¦ ¦ Text(1,1,"MORE PROGRAMS
 :¦ ¦ Text(7,1,"1.MID POINT OF A LINE
 :¦ ¦ Text(13,1,"2.QUADRATIC FORMULA
 :¦ ¦ Text(19,1,"3.SYNTHETIC DIVISION
 :¦ ¦ Text(25,1,"4.BACK
 :¦ ¦ Text(31,1,"5.EXIT
 :¦ ¦ Text(49,1,Str1
 :¦ ¦ Text(55,1,Str2
 :¦ ¦ Repeat J
 :¦ ¦ ¦ getKey→J
 :¦ ¦ End
 :¦ End
 :¦ If J=83
 :¦ Then
 :¦ ¦ 72→K
 :¦ ¦ DelVar J
 :¦ End
 :¦ If J=92
 :¦ Then
 :¦ ¦ Text(1,1,"MIDPOINT OF A LINE
 :¦ ¦ Input "X1",A
 :¦ ¦ Input "X2",B
 :¦ ¦ Input "Y1",C
 :¦ ¦ Input "Y2",D
 :¦ ¦ (A+B)/2→V
 :¦ ¦ (C+D)/2→Z
 :¦ ¦ Disp "MIDPOINT",V
 :¦ ¦ Pause Z
 :¦ End
 :¦ If J=93
 :¦ Then
 :¦ ¦ Disp "QUADRATIC FORMULA
 :¦ ¦ Input "AX2",C
 :¦ ¦ Input "BX",D
 :¦ ¦ Input "C",E
 :¦ ¦ Lbl 11
 :¦ ¦ (‾D+√(D2-4CE))/(2C)→X
 :¦ ¦ (‾D-√(D2-4CE))/(2D)→Y
 :¦ ¦ Disp X
 :¦ ¦ Pause Y
 :¦ End
 :¦ If J=94
 :¦ Then
 :¦ ¦ Disp "SYNTHETIC DIVISION
 :¦ ¦ Input "AX^6",A
 :¦ ¦ Input "BX^5",B
 :¦ ¦ Input "CX^4",C
 :¦ ¦ Input "DX^3",D
 :¦ ¦ Input "EX^2",E
 :¦ ¦ Input "FX",F
 :¦ ¦ Input "G",G
 :¦ ¦ Disp "OPPOSITE OF H
 :¦ ¦ Input "X+H",H
 :¦ ¦ AH→T
 :¦ ¦ T+B→Z
 :¦ ¦ HS→R
 :¦ ¦ R+C→B
 :¦ ¦ QH→P
 :¦ ¦ D+P→C
 :¦ ¦ OH→N
 :¦ ¦ E+N→D
 :¦ ¦ MH→Q
 :¦ ¦ F+Q→E
 :¦ ¦ JH→X
 :¦ ¦ G+X→F
 :¦ ¦ Disp Z,A,B,C,D,E,F
 :¦ ¦ Pause
 :¦ ¦ Z→A
 :¦ ¦ If not(F
 :¦ ¦ Then
 :¦ ¦ ¦ 94→J
 :¦ ¦ ¦ 0→K
 :¦ ¦ End
 :¦ ¦ If not(F)not(E
 :¦ ¦ Then
 :¦ ¦ ¦ Goto 11
 :¦ ¦ ¦ Delvar K
 :¦ ¦ End
-:End
+
 :End