Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- :Program ZZCALC
- :While 1
- :¦ "MADE BY AES SEDIA5→Str1
- :¦ "CEMETECH:NET→Str2
- :¦ Normal
- :¦ Float
- :¦ a+bi
- :¦ AxesOff
- :¦ ClrDraw
- :¦ Text(1,1,"CALCULUS
- :¦ Text(7,1,"1.FIND REIMUNS SUM
- :¦ Text(13,1,"2.FIND DERIVATIVE
- :¦ 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,"THANKS FOR USING
- :¦ ¦ Text(7,1,"CALCULUS
- :¦ ¦ Text(13,1,"FROM THE FIVE PACK
- :¦ ¦ Text(19,1,"OF MATH"
- :¦ ¦ Text(49,1,Str1
- :¦ ¦ Text(55,1,Str2
- :¦ ¦ rand(100)
- :¦ ¦ ClrDraw
- :¦ ¦ DelVar K
- :¦ ¦ Return
- :¦ End
- :¦ If K=92
- :¦ Then
- :¦ ¦ ClrDraw
- :¦ ¦ Text(1,1,"WHAT SHAPE ARE YOU USING
- :¦ ¦ Text(7,1,"1.SQUARE
- :¦ ¦ Text(13,1,"2.TRIANGLE
- :¦ ¦ Text(19,1,"3.CIRCLES
- :¦ ¦ Text(25,1,"4.BACK
- :¦ ¦ Text(43,1,"7.EXIT
- :¦ ¦ Text(49,1,Str1
- :¦ ¦ Text(55,1,Str2
- :¦ ¦ Repeat Ans
- :¦ ¦ ¦ getKey
- :¦ ¦ End
- :¦ ¦ If Ans=92
- :¦ ¦ 1→Z
- :¦ ¦ If Ans=93
- :¦ ¦ √(3)/4→Z
- :¦ ¦ If Ans=94
- :¦ ¦ π/8→Z
- :¦ ¦ If K=92
- :¦ ¦ Then
- :¦ ¦ ¦ ClrHome
- :¦ ¦ ¦ Input "HEIGHT FORMULA",Str1
- :¦ ¦ ¦ String►Equ(Str1,Y1
- :¦ ¦ ¦ Input "LOWER BOUND FORMULA",Str2
- :¦ ¦ ¦ String►Equ(Str2,Y2)
- :¦ ¦ ¦ Input "LEFT BOUND",P
- :¦ ¦ ¦ Input "RIGHT BOUND",Q
- :¦ ¦ ¦ abs(Q-P→L
- :¦ ¦ ¦ Input "NUMBER OF PARTITION",N
- :¦ ¦ ¦ (L/N)→V
- :¦ ¦ ¦ 0→X:0→T:0→C
- :¦ ¦ ¦ Repeat C=L
- :¦ ¦ ¦ ¦ X+V→X
- :¦ ¦ ¦ ¦ (ZV)((Y1-Y2))2→U
- :¦ ¦ ¦ ¦ U+T→T
- :¦ ¦ ¦ ¦ C+V→C
- :¦ ¦ ¦ End
- :¦ ¦ ¦ Disp "RIGHT EDGE SUM":Pause T
- :¦ ¦ ¦ 0→X:0→C:0→S
- :¦ ¦ ¦ Repeat C=(L-V)
- :¦ ¦ ¦ ¦ X+V→X
- :¦ ¦ ¦ ¦ (ZV)((Y1-Y2))2→U
- :¦ ¦ ¦ ¦ U+S→S
- :¦ ¦ ¦ ¦ C+V→C
- :¦ ¦ ¦ End
- :¦ ¦ ¦ Disp "LEFT EDGE SUM
- :¦ ¦ ¦ Pause S
- :¦ ¦ ¦ (T+S)/2→K
- :¦ ¦ ¦ Disp "TOTAL VOLUME
- :¦ ¦ ¦ Pause K
- :¦ ¦ ¦ DelVar Y1DelVar Y2
- :¦ ¦ End
- :¦ End
- :End
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement