Sharp PC-1500 Anwenderhandbuch Seite 28

[ Programmlisting ]
18:
28:
3B:
48:
98:
69:
7Q@:
QB:
3@:
190:
110:
12708:
13g:
21g:
IF D=@GOTO 32
IF D>@GOTO 118.
v=l¢-D) |
LPRINT "XXXREE
LLXXk", B
LPRINT "IMAGIN
AER", ¥
END...
LPRINT "DOPPEL:
T",B
END
LPRINT "REELL"
» B+ID
LPRINT "REELL"
_,B-JD
END
"B") INPUT "Qs"
"Oy "Botse, rest
pen ete
:©=F/D:G=G/D:H=
H7D
FaF/3
D=G6/3-F XF
E=H-F XG+2X*F XF x
338:
348:
358:
378:
38@.
398:
"A"; INPUT "A="
Ay." Be" se, SoS"
iC
B=-B/2/A: D=BXB
-C7A
Cc
C=4XDXDXD+EXE
'F° 1O8C-8)>ABS
CGOTO 474
IF C>BGOTO 408
Q=2xk1 ¢-D)
B=ACS (E7¢2xD*
LC-D) 2273
*D=ASN 1.E=ASN
5
G=AXSIN (D-B):
H=-AXSIN (E+BD
l=-AXSIN (E-B)
G=G-F :H=H-F: [=
I-F
BEEP 3.!.PRINT
"REELLE ZAHL",
G
LPRINT H; |
END
490:
41a:
428:
430:
44G:
45a:
460:
479:
460.
492:
4995:
38a:
C=fC:A=.5x*¢C-E
2:B=-. 5X CC+E)?:
C=173
Q=ABS ASCKSGN
q
B=ABS BOCXSGN
B: C=. 5*/3
BEEP 3:LPRINT
"XREELLE ZAHLX
", A+B-F
LPRINT ""XREELL
K's, ~, SKCA+BI-F
LPRINT ""IMAGIN
AR", CXKABS CA-B
)
END oe
BEEP 3: 1F 1@¢
-8)>ABS DO
LPRINT ""DREIFA
CHE WURZEL", -F
' END
4=~-ABS ¢(.Sx*E)*
€1/73)XSGN E
LPRINT "REELL
ZAHL", 2XA-F
LPRINT "DOPPEL
TE WURZEL",; -A-
F
END
STATUS 1}
808
[ Speicherinhalt ]