Sharp PC-1500 Handbuch Seite 88
Vorschau anzeigen
Andere Handbücher für PC-1500:
- Bedienungsanleitung (166 Seiten) ,
- Anwenderhandbuch (222 Seiten)
Alland
more
about Sharp
PC-1500
at http://www.PC-1500.info
PROGRAMMNAME:
UMWANDLUNG E INER
DREIECKSSCHALTUNG
PROGRAMM·NR.
3
IN
E
IN
E S
T
E
RNSCHALTUNG
UND
UMGEKEHRT
P5- C-
l
[
Programmlisting]
1
Speicherinhalt
]
10:
" A"
:
T.::0: S.::0:
400:s
=x„s: T-=Y„T
A
-+Y
Y-+
A
OEGREE
4J0:RETURN
20:
INPUT „
ZJ
R-. ••
.
450:U.::Xt
COS
Y:U=X*
A
-
'
X
SIN Y
B
R,
)
.
)za
30:
INPUT
„ 21
x-···
460:RETURN
x, z,
-
'
y
505:
"
ß
"
:CLEAR
c
40:
GOSUB 400
510:0EGREE
:
1
NPUT
0
R,)
.
)zb
50:
GOSUB 350
"
ZA
R=
"
;X
X2
~
6
0:
8-=U:C=V
520: INPUT
"
ZA
x-··.
E
-
'
70: INPUT
"
Z?
R-•·
·
V
-
'
F
R,
)
.
)ic
X
530:GOSUB 350
ZJ
88:
INPUT
"22
x-··.
:' . ><10: B·"U:
C"
V
G
X3
-
'
y
550: INPU
T
"ZB
R=
''
;
H
)
l:Z
)t.
98:GOSUß 400
X
100:GOSUB
350
560: JNPUT "ZB
x-··
.
1
-
'
J
J 0:
O=U:
E=U
V
J
Ra
)
,
120:
INPUT
"Z3
R-".
570:GOSUB 350
)z3
-
'
Za
X
580:0=U:E=U
K
Xa
130
:
lNPUT
II
23
x-··.
590:
JNPUT
"ZC
R-''
.
-
'
-
'
L
Rb
)
.
y
X
)z,
140: GOSU8 400
600:
JNPUT
"ZC
x-··.
Zb
-
'
M
Xb
15.
0 : GOSUB 350
y
160:F=U:G"<U
BJ0:GOSUB 350
N
R
e)
,
)z,
17i0:X=S
:
Y=T
620:F=U:
G.::U
Zc
0
Xe
l
80
:
GOSUB
350
630: X=O:Y-"O
1
9.
0 ;
H"'U; J .;;V
640: H=B;t;D:
I=C+E
p
200:X=Bt0/H:
Y.::C+E-
650:
x=x-·~1;1;cos
J
Q
1:
GOSUB 450
660:
Y.::Y·~
H:l:S
I
N
1
2J0
:
J
=U:K"'V
6;>0
: H=Bt
F
:
J=C·•G
R
22,
0 :
Xe
DtF/H:
Y.::E.,.G
-
680:
X=X
-f'H:l:
COS
J
s ..;
1
690:Y=Y+H;t;S
JN
1
230: GOSUB
450
?J0:H.::OtF
T
..;
240
:
L:U:M"U
720
:
l=E+G
u
..;
1z1
250: X=B:t;F /H:
Y=C„G-
730:X=X„HOISCOS
J
J
740:Y=Y„H:l:SJN
1
V
...;
0
260:.GQSUB
450
750:GOSUB
350
270:
N„U:Q.::V
760: H=U:
J
.::U
w
280:
USING
:WAIT
:
770:X.=H/8:Y=
l-C
X
...;
...;
PRINT
1
'ZA
1
'
;
780:J.::X*COS
Y: K=X*
v
v
PRINT
J,K
SJN Y
y
290:
PRINT
,.
28''
:
790:X.::H/Q:Y=
l-E
z
PRINT L,M
800:L:
X*COS
Y:M=X*
300:
PRINT
"
ZC „.
SIN Y
PRINT
N,O
810:X:
H/F:Y=l-G
3J0:ENO
820:N=XtCOS
Y:O-=X*
350:u=l(XtX•Y*Y>
SIN Y
360:
V=ACS
(
X/U)
8150:PRINT
„
z
1
„
.
.
370:
IF 0>YLET
V :-U
PRINT
L,
M
380:RETURN
870
:
PRJHT
"
Z2
.„
.
PRINT N,
0
880:PRINT "23
„.
PRINT
J,K
890:
F.ND
STA
TUS
1
.
' 37?
-
82
-
Do not
sale
this
PDF !!!
