برنامه نویسی با ماشین حسابهای Casio

[حــامد]

یکی از علاقه مندی های من نوشتن برنامه برای ماشین حسابهای مهندسیه در این تاپیک به مرور برنامه های قابل اجرا برروی ماشین حسابهای مهندسی رو قرار میدم​

Polynomial Pattern Finder​

   "   Pattern Finder"
   " "
   "Enter terms:"
   Mcl
   Defm 11
   '11 MIN
   1->B
   ?->L
   Lbl 7
   Isz B
   ?->K[B]
   Lbl 0
   1->C
   B->D
   Lbl 1
   C=B-1=>Goto 7
   1->E
   Lbl 2
   F[6C+E]-E[6C+E]->K[6C+E]
   Isz E
   E<D=>Goto 2
   Dsz D
   1->E
   1->A
   Lbl 3
   E=D=>Goto 4
   K[6C+E]->J
   L[6C+E]->K
   Abs (Int 1\exp9J-Int 1\exp9K>2)=>0->A
   0->K
   Isz E
   Goto 3
   Lbl 4
   A=0=>Isz C
   A=0=>Goto 1
   L[6C]/C!->E[C]
   1->E
   Lbl 5
   K[E]-E[C]*E^C->K[E]
   Isz E
   E<=B=>Goto 5
   1->E
   Lbl 6
   0->K
   Isz E
   K[E]->K
   J[E]->J
   Abs (Int 1\exp9J-Int 1\exp9K<=2)=>9!->K
   K=9!=>E<B=>Goto 6
   E<>B=>Goto 0
   I=0=>Goto A
   I_
   "                  n^4"
   Lbl A
   H=0=>Goto B
   H_
   "                  n^3"
   Lbl B
   G=0=>Goto C
   G_
   "                   n\sqr"
   Lbl C
   F=0=>Goto D
   F_
   "                    n"
   Lbl D
   Int 1\exp10L<>0=>L_
   " "
   "Pattern continues:"
   Lbl 9
   Isz B
   L+FB+GB\sqr+HB^3+IB^4_
   Goto 9

 

[حــامد]

فیثاغورث

فیثاغورث

حل معادله فیثاغورث
Pythagorean Theorem
​

Lbl 1: "A\^2+B\^2=C\^2"   ; \^2 represents the squared symbol
   "TO SOLVE FOR:"
   "A-PRESS 1"
   "B-PRESS 2"
   "C-PRESS 3": ? -> A
   Goto 6
   Lbl 2: If A=2
   Then Goto 7
   Else Goto 3
   Lbl 3: If A=3: Then Goto 8
   Else Goto 1
   Lbl 6: If A=1: Then Goto 9
   Else Goto 2
   Lbl 9: ClrText
   "A\^2+B\^2=C\^2"
   "B=" ?-> B
   "C=" ?-> C
   (C\^2-B\^2)->D
   \sqrt D -> D   ; \sqrt means the square root button on the calculator.
   ClrText
   "A=": Locate 4, 1, D
   Stop
   Lbl 7: ClrText
   "A\^2+B\^2=C\^2"
   "A=" ?-> E
   "C=" ?-> F
   (F\^2-E\^2) ->G
   \sqrt G -> G
   ClrText
   "B=": Locate 4, 1, G
   Stop
   Lbl 8: ClrText
   "A\^2+B\^2=C\^2"
   "A=" ?-> H
   "B=" ?-> I
   (H^2+I^2)-> J
   \sqrt J -> J
   ClrText
   "C=": Locate 4, 1, J
   Stop

​

 

[حــامد]

Bomb Run

Bomb Run

بازی Bomb Run​

​

Screenshot:

​

Description:
Your plane starts at the top of the screen above a large city and descends slowly. It has to destroy all of the buildings before it hits them.

​

* How To Play *

Run the program "~BOMBRUN". Press [EXE] when your plane is in the column just before the one you want the bomb dropped into. That's all there is to it.

ViewWindow 1,127,0,1,63,0
   For 1->A To 31
   2+Int 12Ran#->C
   For 1->B To C
   Text 62-4C+4B,4A,"\."
   Next
   Next
   1->A~B
   (-)1->C
   0->J~K
   Lbl 0
   Text 4B,4A," "
   Isz A
   If A>31
   Then 1->A
   Isz B
   B>=15=>Goto 1
   IfEnd
   PxlTest 4B+2,4A+1
   If Ans
   Then "OOH(-)THAT HAD TO HURT!"
   Stop
   IfEnd
   Text 4B,4A,">"
   GetKey
   Ans=>Ans->K
   If C<0 And K=31
   Then 4A->D
   B->C
   0->K
   IfEnd
   Prog "BRDROP"
   J<>31=>Goto 0
   Lbl 1
   "WOW! I'M IMPRESSED!"

 

[حــامد]

NEWTON-RAPHSON

NEWTON-RAPHSON

*** MORE GAMES AND PROGRAMS FOR CASIO CALCULATORS AT ***
********
This is a simple program which will determine the x values
for which a function equals zero. You need to enter the function
which is equal to zero, and assign it to a function memory (below).
No need to differentiate - the program will do it for you!

You need to make sure that your function is equal to zero.
e.g. 2X + ln X - 2 = 0
NOT 2X + ln X = 2
If you can't make something equal to zero, then you probably
shouldn't have the need to do Newton-Raphson!

To use function memories, press shift+F-MEM (usually shift+zero)
and for f1, press fn+1. You must use the variable X in the formula.

SYMBOLS USED:
@ display symbol (triangle)
-> assign key (arrow)
d/dx( derivative sign
f1 function memory 1 (above)

SIZE: 145 bytes
​

'NEWTON-RAPHSON
Rad                     (for calculus - trig derivatives)
"ENTER FORMULA=0"
"SHIFT 0:STO 1"? -> O
"START VALUE"? -> X
"APPROXIMATIONS:"
Lbl 0
f1 -> V
d/dx(f1,X) -> W         d/dx( is derivative sign
X-(V/W) -> X@
Int V=0 => Frac Abs V<1+E-11 => Goto 1
Goto 0

 

[حــامد]

حل معادله درجه دوم

حل معادله درجه دوم

حل معادله درجه دوم​

"QUADRATIC"
"A"?->A
"B"?->B
"C"?->C
B2-4AC->D
If D<0
Then "NO SOLUTIONS"
Stop
IfEnd
(-B+[sqrt]D)÷(2A)_
D>0=>(-B-[sqrt]D)÷(2A)_
"DONE"

 

[حــامد]

Number Guesser Game

​

1->L
100->H
Int (Ran#×100)->A
Do
L_
H_
?->G
G[ne]A=>"KEEP TRYING" G>A=>G->HG<A=>G->LLpWhile G[ne]A
"GOT IT"

 

[حــامد]

 <H2 align=left>Coding Tips[/B]

[LEFT]The characters used on the Casio calculators aren't easy to translate into a format that works on the Web. So there is a convention that is typically used:
-> is the arrow key, not a hyphen and a greater-than sign.
=> is the "implies" operator found in the PRGM | JUMP menu.
_ (the underscore) is the "display result command". It's the little triangle pointing southeast that you can find in the PRGM menu.
[sqrt] is the Square Root key.
[ne] is the "not equal" operator found in the PRGM | REL menu.
[le] is the "less than or equal" operator found in the PRGM | REL menu.
E is the exponent symbol. Press the [EXP] key.
[a b/c] is the fraction symbol which looks like a little lower right corner. Press the [a b/c] key.[/LEFT]

</H2>

 

[gtex]

با سلام من یه کاسیو4500 دارم و احتیاج شدید به برنامه حل دستگاه دو معادله دو مجهول
میشه راهنمایی کنین ممنون میشم

 

[amir ghasemiyan]

حامد جان به نظر مياد اين برنامه ها رو براي كلاس پد نوشتي . درسته؟