Sharp PC-1500 Handbuch Seite 91

All and more about Sharp PC-1500 at http://www.PC-1500.info
PROGRAMMNAME:
OFFENER UND RADIAL
PROGRAMM-NR.
3
ANGEORDNETER POLYGONZUG
PS- C- S
( Programml isting )
[ Speicherinhalt )
10: "A" :CLEAR
A
TA
20: PAUSE "OF FEN" :
1=0
B
XA
30:LPRINT
"OFFEN"
c
YA
:GOTO 70
40: "B": CLEAR
D
p
50 : PAUSE "RADIAL"
: 1
=
1
E
~
60: LPRJ NT "RADIAL
"
F
cxi
70:0EGREE
: INPU T
G
X;
" TA ='';A,
'' TX=";
H
Y;
8, "T Y= " i
C
75: LPRJNT USlNG
„
1 Diskriminante
Mllll 11111111# .11111111 "
J
; „ t TA= ''; A
76:LPRINT
"' * TX= '' ;
K
B
77: LPR 1 NT
"' l'TY= " ;
L
c
80: I C=l
M
90: INPUT „B= ''; O: N
GOTO
100
0
95 :END
100:1NPUT
'' L='';E
p
JJ0; F::DEG A+DEG D+
Q
180
I 20: l
F
OM S F>=360
R
LET F=OEG <OMS
F- 360>:GOTO 12
s
0
T
J30: G=B+E*COS F:H=
C„E*SIN F
u
1 40: F~I N T
<DM S
<F+
V
0 . 00014)1: 10"4 )
.
/1 0" 4 w
141: FO$=" - - "•STRs
I C+ '' --''
X
142:LPRINT
FQ$
y
143: IC= JC+I
J50:LPRJNT US JNG
"
z
111111 1111111111. !1111111 "
FOS
Ausgabe-Meldung
: " 8:::
"; 0
l ß0:LPRJNT
'' L =
„ ;
E
170:LPRJN T
'' A=
,. ; F
180:LPRJNT "X=
,. ; G
J90 : LPR JNT
' ' Y=
,. ; H
200: 1 F l =OLET
A=F:
B=G : C=H
210:GOT O
90
STATUS 1
487
Do not sale this PDF !!!
85