ماشين حساب

ماشين حساب
CASIO fx5800pبا سلام... توي اين پست ميخوام چند مثال از برنامه نويسي با ماشين حساب بزارم شايد واسه كسي كه بخواد تازه برنامه نويسي با
ماشين حساب شروع كنه اين مثال ها بتونه كمك خوبي باشه....همه اين برنامه ها رو خودم نوشتم شابد كسي ديگه هم نوشته باشه
ولي من مطمنم منطقي كه من استفاده كرده ام بسيار ساده است...توي اين مثال ها فرض مي كنم كه دوستان كار با دكمه ماشين
حساب رو بلد هستن اگه احيانا كسي مشكل داشت ميتونه بهم ايميل بزنه يا بامن تماس بگيره و اگر لازم شد اموزش تصويري كار با
دكمه هم بزارم...اگه كسي هم خواست ايميل بده تا براش فايل اصلي رو ايميل كنم....و در اخر نظر يادتون نره....
نكته: بعد از نوشتن هر سطر از برنامه دكمهEXE ماشين حساببزنيد تا به سط بعد برود و ادامه رو بنويسيد و همچنين جاهايي كه
علامت▲ قرار دارد از گزينه SHIFT استفاده نماييد.
مثال 1) برنامه نويسي با ماشين حساب با كاسيو اف اكس 5800 پي
برنامه اي بنويسيد كه دو عدد را از مابگيرد اگر عدد اول بزرگتر بود اون را به توان 2 برساند و خروجي ان را به عنوان عدد اول بزرگ است
نشان دهد در غير اينصورت عدد دوم را را در سه ضرب كند و خروجي ان را به عنوان عدد دوم بزرگتر است نمايش دهد؟
"A"?→A
"B"?→B
IF A‹ B
Then
A^2→M
"add aval bozorg ast":M▲
Else
3×B→N
"add dovom bozorg ast":N▲
IFend

مثال2) باقيمانده تقسيم
برنامه اي بنويسيد كه باقيمانده تقسيم دو عدد را به ما بدهد؟
"A"?→A
"B"?→B
A÷B→C
C-INT(C) →F
F×B→E
"baghe mandeh":E▲


مثال3) حل معادله درجه دوم CASIO fx-5800 P
برنامه اي بنويسيد كه ريشه هاي حقيقي معادله درجه دوم را محاسبه كند و در صورت نداشتن ريشه حقيقي به ما پيغام ريشه حقيقي
ندارد را بدهد؟
"zarebe X^2"?→A
"zarebe X"?→B
"add sabet"?→C
B2-4AC→D
IF D≥0
Then
(-B+D^(0.5))÷(2A)→E
"reshe aval":E▲
(-B-D^(0.5))÷(2A)→F
"reshe dovom":F▲
Else
"Reshe nadarad" ▲
IFend


مثال 4) محاسبه عدد اول بودن CASIO fx-5800 P
برنامه اي بنويسيد كه يك عدد را از ما بگيرد اگر اول بود بنويسد اول و اگر اولنبود بنويسد اول نيست؟
"A"?→A
2→B
Lbl 1
A÷B→C
C-INT (C) →F
F×B→E
While E›0
B+1→B
Goto 1
While End
IF E=0 And B =A
Then
"Aval"▲
Else
"Aval Nest" ▲
IFend

مثال 5) زوج يا فرد بودن عدد CASIO fx-5800 P
برنامه اي بنويسيد كه يك عدد ر از ما بگيرد اگر زوج است بنويسد زوج و اگر فرد باشد بنويسد فرد؟
"A"?→A
A÷2→C
C-INT (C) →F
F×2→E
IF E=0
Then
"Zoj Ast"▲
Else
"Zoj Nest" ▲
IFend


مثال 6) حل دستگاه دو معادله دو مجهول CASIO fx-5800 P
برنامه اي بنويسيد كه يك دستگاه دو معادله دو مجهول را از ما بگيرد و اگر جواب دارد X1 وX2 را محاسبه كند و اگر جواب ندارد بنويسد
جواب ندارد؟


A1X1+A2X2=A3
A4X1+A5X2=A6

"A1"?→A
"A2"?→B
"A3"?→C
"A4"?→D
"A5"?→E
"A6"?→F
A×E-B×C→G
C×E-B×F→H
A×F-D×C→I
IF G≠0
Then
H÷G→M
I÷G→N
"X1":M▲
"X2":N▲
Else
"Javab Nadarad" ▲
IFend



مثال 7) حل دستگاه سه معادله سه مجهول CASIO fx-5800 P
برنامه اي بنويسد كه يك دستگاه سه معادله سه مجهول را حل نمايدو 1X3,X2,X را محاسبه كند و درصورت جواب نداشتن پيغام دهد؟


A1X1+A2X2+A3X3=A4
A5X1+A6X2+A7X3=A8
A9X1+A10X2+A11X3=A12

"A1"?→A
"A2"?→B
"A3"?→C
"A4"?→D
"A5"?→E
"A6"?→F
"A7"?→G
"A8"?→H
"A9"?→I
"A10"?→J
"A11"?→K
"A12"?→L
A(FK-GJ)-B(EK-GI)+C(EJ-FI)→M
D(FK-GJ)-B(HK-GL)+C(HJ-FL)→N
A(HK-GL)-D(EK-GI)+C(EL-HI)→O
A(FL-HJ)-B(EL-HI)+D(EJ-FI)→P
IF M≠0
Then
N÷M→Q
O÷M→R
P÷M→S
"X1":Q▲
"X2":R▲
"X3":S▲
Else
"Javab Nadarad" ▲
IFend


مثال 8) محاسبه وارون ماتريس 2×2 با ماشين حساب CASIO fx-5800 P
برنامه اي بنويسيد كه درايه هاي يك ماتريس 2×2 را از مابگير و ابتدا دترمينان را محاسبه نموده و ان را نشان دهد سپس وارون ماتريس
را محاسبه نمايد؟
A11 A12
A22 A21

"A11"?→A
"A12"?→B
"A21"?→C
"A22"?→D
A×D-B×C→M
"Determenan":M▲
IF M≠0
Then
"Varon Pazer Ast"▲
D÷M→E
-B÷M→F
-C÷M→G
A÷M→H
"A11":E▲
"A12":F▲
"A21":G▲
"A22":H▲
Else
"Varon Pazer Nest" ▲
IFend

مثال 9) محاسبه وارون ماتريس 3×3 با ماشين حساب CASIO fx-5800 P
برنامه اي بنويسيد كه درايه هاي يك ماتريس 3×3 را از مابگير و ابتدا دترمينان را محاسبه نموده و ان را نشان دهد سپس وارون ماتريس
را محاسبه نمايد؟





A11 A12 A13
A21 A22 A23
A31 A32 A33

"A11"?→A
"A12"?→B
"A13"?→C
"A21"?→D
"A22"?→E
"A23"?→F
"A31"?→G
"A32"?→H
"A33"?→I
A(EI-FH)-B(DI-FG)+C(DH-EG) →J
"Determenan":J▲
IF J≠0
Then
"Varon Pazer Ast"
(EI-FH)÷J→K
-(DI-FG)÷J→L
(DH-EG)÷J→M
-(BI-CH)÷J→N
(AI-GC)÷J→O
-(AH-BG)÷J→P
(BF-EC)÷J→Q
-(AF-CD)÷J→R
(AE-BD)÷J→S
"A11":K▲
"A12":N▲
"A13":Q▲
"A21":L▲
"A22":O▲
"A23":R▲
"A31":M▲
"A32":P▲
"A33":S▲
Else
"Varon Pazer Nest" ▲
IFend

ماشين حساب
CASIO fx5800pبا سلام... توي اين پست ميخوام چند مثال از برنامه نويسي با ماشين حساب بزارم شايد واسه كسي كه بخواد تازه برنامه نويسي با
ماشين حساب شروع كنه اين مثال ها بتونه كمك خوبي باشه....همه اين برنامه ها رو خودم نوشتم شابد كسي ديگه هم نوشته باشه
ولي من مطمنم منطقي كه من استفاده كرده ام بسيار ساده است...توي اين مثال ها فرض مي كنم كه دوستان كار با دكمه ماشين
حساب رو بلد هستن اگه احيانا كسي مشكل داشت ميتونه بهم ايميل بزنه يا بامن تماس بگيره و اگر لازم شد اموزش تصويري كار با
دكمه هم بزارم...اگه كسي هم خواست ايميل بده تا براش فايل اصلي رو ايميل كنم....و در اخر نظر يادتون نره....
نكته: بعد از نوشتن هر سطر از برنامه دكمهEXE ماشين حساببزنيد تا به سط بعد برود و ادامه رو بنويسيد و همچنين جاهايي كه
علامت▲ قرار دارد از گزينه SHIFT استفاده نماييد.
مثال 1) برنامه نويسي با ماشين حساب با كاسيو اف اكس 5800 پي
برنامه اي بنويسيد كه دو عدد را از مابگيرد اگر عدد اول بزرگتر بود اون را به توان 2 برساند و خروجي ان را به عنوان عدد اول بزرگ است
نشان دهد در غير اينصورت عدد دوم را را در سه ضرب كند و خروجي ان را به عنوان عدد دوم بزرگتر است نمايش دهد؟
"A"?→A
"B"?→B
IF A‹ B
Then
A^2→M
"add aval bozorg ast":M▲
Else
3×B→N
"add dovom bozorg ast":N▲
IFend

مثال2) باقيمانده تقسيم
برنامه اي بنويسيد كه باقيمانده تقسيم دو عدد را به ما بدهد؟
"A"?→A
"B"?→B
A÷B→C
C-INT(C) →F
F×B→E
"baghe mandeh":E▲


مثال3) حل معادله درجه دوم CASIO fx-5800 P
برنامه اي بنويسيد كه ريشه هاي حقيقي معادله درجه دوم را محاسبه كند و در صورت نداشتن ريشه حقيقي به ما پيغام ريشه حقيقي
ندارد را بدهد؟
"zarebe X^2"?→A
"zarebe X"?→B
"add sabet"?→C
B2-4AC→D
IF D≥0
Then
(-B+D^(0.5))÷(2A)→E
"reshe aval":E▲
(-B-D^(0.5))÷(2A)→F
"reshe dovom":F▲
Else
"Reshe nadarad" ▲
IFend


مثال 4) محاسبه عدد اول بودن CASIO fx-5800 P
برنامه اي بنويسيد كه يك عدد را از ما بگيرد اگر اول بود بنويسد اول و اگر اولنبود بنويسد اول نيست؟
"A"?→A
2→B
Lbl 1
A÷B→C
C-INT (C) →F
F×B→E
While E›0
B+1→B
Goto 1
While End
IF E=0 And B =A
Then
"Aval"▲
Else
"Aval Nest" ▲
IFend

مثال 5) زوج يا فرد بودن عدد CASIO fx-5800 P
برنامه اي بنويسيد كه يك عدد ر از ما بگيرد اگر زوج است بنويسد زوج و اگر فرد باشد بنويسد فرد؟
"A"?→A
A÷2→C
C-INT (C) →F
F×2→E
IF E=0
Then
"Zoj Ast"▲
Else
"Zoj Nest" ▲
IFend


مثال 6) حل دستگاه دو معادله دو مجهول CASIO fx-5800 P
برنامه اي بنويسيد كه يك دستگاه دو معادله دو مجهول را از ما بگيرد و اگر جواب دارد X1 وX2 را محاسبه كند و اگر جواب ندارد بنويسد
جواب ندارد؟


A1X1+A2X2=A3
A4X1+A5X2=A6

"A1"?→A
"A2"?→B
"A3"?→C
"A4"?→D
"A5"?→E
"A6"?→F
A×E-B×C→G
C×E-B×F→H
A×F-D×C→I
IF G≠0
Then
H÷G→M
I÷G→N
"X1":M▲
"X2":N▲
Else
"Javab Nadarad" ▲
IFend



مثال 7) حل دستگاه سه معادله سه مجهول CASIO fx-5800 P
برنامه اي بنويسد كه يك دستگاه سه معادله سه مجهول را حل نمايدو 1X3,X2,X را محاسبه كند و درصورت جواب نداشتن پيغام دهد؟


A1X1+A2X2+A3X3=A4
A5X1+A6X2+A7X3=A8
A9X1+A10X2+A11X3=A12

"A1"?→A
"A2"?→B
"A3"?→C
"A4"?→D
"A5"?→E
"A6"?→F
"A7"?→G
"A8"?→H
"A9"?→I
"A10"?→J
"A11"?→K
"A12"?→L
A(FK-GJ)-B(EK-GI)+C(EJ-FI)→M
D(FK-GJ)-B(HK-GL)+C(HJ-FL)→N
A(HK-GL)-D(EK-GI)+C(EL-HI)→O
A(FL-HJ)-B(EL-HI)+D(EJ-FI)→P
IF M≠0
Then
N÷M→Q
O÷M→R
P÷M→S
"X1":Q▲
"X2":R▲
"X3":S▲
Else
"Javab Nadarad" ▲
IFend


مثال 8) محاسبه وارون ماتريس 2×2 با ماشين حساب CASIO fx-5800 P
برنامه اي بنويسيد كه درايه هاي يك ماتريس 2×2 را از مابگير و ابتدا دترمينان را محاسبه نموده و ان را نشان دهد سپس وارون ماتريس
را محاسبه نمايد؟
A11 A12
A22 A21

"A11"?→A
"A12"?→B
"A21"?→C
"A22"?→D
A×D-B×C→M
"Determenan":M▲
IF M≠0
Then
"Varon Pazer Ast"▲
D÷M→E
-B÷M→F
-C÷M→G
A÷M→H
"A11":E▲
"A12":F▲
"A21":G▲
"A22":H▲
Else
"Varon Pazer Nest" ▲
IFend

مثال 9) محاسبه وارون ماتريس 3×3 با ماشين حساب CASIO fx-5800 P
برنامه اي بنويسيد كه درايه هاي يك ماتريس 3×3 را از مابگير و ابتدا دترمينان را محاسبه نموده و ان را نشان دهد سپس وارون ماتريس
را محاسبه نمايد؟





A11 A12 A13
A21 A22 A23
A31 A32 A33

"A11"?→A
"A12"?→B
"A13"?→C
"A21"?→D
"A22"?→E
"A23"?→F
"A31"?→G
"A32"?→H
"A33"?→I
A(EI-FH)-B(DI-FG)+C(DH-EG) →J
"Determenan":J▲
IF J≠0
Then
"Varon Pazer Ast"
(EI-FH)÷J→K
-(DI-FG)÷J→L
(DH-EG)÷J→M
-(BI-CH)÷J→N
(AI-GC)÷J→O
-(AH-BG)÷J→P
(BF-EC)÷J→Q
-(AF-CD)÷J→R
(AE-BD)÷J→S
"A11":K▲
"A12":N▲
"A13":Q▲
"A21":L▲
"A22":O▲
"A23":R▲
"A31":M▲
"A32":P▲
"A33":S▲
Else
"Varon Pazer Nest" ▲
IFend