卡西欧4800程序转5800

说明

程序中打空格为段落是以计算器中的段落相同。

≠>和=>两个字符均是连体字符。

』代表计算器中的回车字符。

▲和△两个字符均是示意性字符，以计算器中的为准。

【1】

SQX

1

P"I1"Q"I2"A"DKBP "O"BPH0"』

2

S=Abs (R（P—Q)）÷2 』

3

Lb1 0:P>Q=>U=-1△P <Q=>U=1△』

4

｛Z｝』

5

Z"DKI"

6

Z<A=>Goto 1 △Z≥A =>G oto 2』

7

Lb1 1:Z<A-S=>H=O— PS—(A—Z—S)P』

8

Goto 3△Z≥A-S=>H=O—PS+P(S—A+Z)+U(S —A+Z)²÷2÷R』

9

Goto 3△』

10

Lb1 2:Z<A+S=>H=O+ QS—Q(S—Z+A)+V(S— Z+A)²÷2÷R』

11

Goto 3△Z≥A+S=>H=O QS+(Z—A—S)Q』

12

Goto 3△』

13

Lb1 3:Pros "SZ": Goto 0』

【2】

2

1

G"XZ"D"YZ"』

2

U=X—G:V=Y—D』

3

Pros "S5":Pros " W5":"S=":S▲

4

"W=":W→DMS▲

5

』

【3】

4

1

XY』

2

X=X+Scos W:Y=Y+S sin W

【4】

5ZBBH

1

Defm 2』

2

E:X0"F"Y0"A"ANDX "Z[1]"X1"Z[2]"Y1 "』

3

H=Z[1]:O=Z[2]:Lb 1 O』

4

｛H,O｝』

5

X=E+H"X1"cos A—O "Y1"sin A:"X=":X ▲

6

Y=F+Ocos A+Hsin A:"Y=":Y▲

7

Goto 0』

【5】

6TUOYUN

1

V"A"W"B"』

2

Lb1 0』

3

｛O｝』

4

O"X1"』

5

H"Y1"=Abs√((V²W ²—V²O²)÷W²)▲

6

Goto 0』

【6】

7ZX

1

Lb1 0』

2

｛Z｝』

3

｛I｝』

4

S=Abs (Z"DKI"—K" DK—START")』

5

I≥0=>J=1:≠>J=-1△』

6

Z<K=>J=-J:△X=E"X0 ":Y=F"Y0":W=B:Pr os "4":S=Abs I:W =B+90J:Pros "8": Pros "2":Goto 0

【7】

8

1

Pros "4"』

2

"X=":X▲

3

"Y=":Y▲

【8】

W5

1

V=0=>V=1_E-90△ 』

2

W=tan^-1 U」V』

3

V>0=>W=90-W:≠>W=2 70—W△

【9】

S5

1

S=√(U²+V²)

【10】

HJ