Sharp PC-1500 Anwenderhandbuch Seite 52

PROGRAMMNAME:
Schritt-Nr,
19
—
'| 20. 15 ~ [ENTER]
a
' [ Programmilisting ]
1@: "Q"5CLEAR :
WAIT @
20: INPUT "DATA CL
_OAD?PCY"N)I "5 AS
BQ: IF (CAS="¥")+60 ©
$="N"1<¢>1GO0TO
28
4Q: IF Ag="Y"GOTO
15a
58: INPUT "N="3D, "
K="3¢
SS5:DIM XCD-1), Y<D
-1)>
69:FOR 1=@TO D-1
7BiCLS :A$e"XC"4
STR¢ C1+1)4")=
B@:PRINT A$;
98: (INPUT *CI1):
GOTO 118
100:CLS :P=I-{;
GOTO 18@
1i@:CLS :AgSe"YC"+
STR C1l+])4+"5
12@:PRINT A$;
138; INPUT YCI)D
14@:NEXT I:GOTO i8
1386: INPUT: #"AEK-DA
TACKI "3B; C
168:D01N x*(D-1), YD
-1)
170: INPUT #"AEK-DA
TACKI"Z XCK), VC
*)
18@:CLS :FOR I=TO.
D-1
185:YSLN (C-YCIDD
199: E=E+X (1) 2F=F+Xx
CIOKXCID .
208: G=G+Y:H=H+X¢ 1)
*Y
218:NEXT I
ANGENAHERTE
EXPONENTIALKURVE
Eingabe
Anzeige
Pp
Y (enter) | X=
N (ENTER) | X=_
16 [ENTER] | X=_
(enTeR|
220: B=D¥F~E XE
23: A=(FXG-EXH) 7B
240: B=(DKH-ExXG)-B
254: A=EXP A:B=ExP .
BC. .
26@:BEEP 3:LPRINT
_ "as"zA
278:LPRINT "b="38
280:BEEP 5S: INPUT"
DATA CSAVE?¢Y7:
No" SAS
296: 1F (ag="¥")+¢4
$="N")<¢>1GOTO
. 288
308: 1F A$="N"GOTO
Pao
31@:PRINT #"AEK-DA
TACKI "50; C
326: PRINT #"AEK-DA
TACKI" 5 XOK), YC
*>
' 338: GOTO 7ag
4@@:"B": CLEAR :
WAIT @:CLS :
DIM Y¥¢2)
414: INPUT "DATA CL
OAD? <Y"N2 "3 AF
420: IF CAS=H="¥" 546K
$="N")<¢>1G0TO
414 1 i a
430: 1F Ag="Y" THEN
538
44@: INPUT "N="3N
45@:N=INT <N/73>
460:FOR C=ITG 3
47@:FOR *=NKCC-1)
TO NxkC-1
480:CLS :Ags"YC"+
STR$ (X+1)+")=
4938:PRINT A$;
S@8: INPUT L
ROGRAMN-NR..
P5—B—3
Anmerkung
Anzeige nach Datenausgabe -
an Kassette
518: ¥(C-1)=Y¢G-1)4
L
520:NEXT X:NEXT C:
GOTO 54a
53@: INPUT #"QEK-DA
TA" Ny YOK)
54@:CLS :C=N:B=<¢Y
(2)-¥C1D970901
)-¥6B) dAC1Z0D
55@: 0=BoC-1:A=(¥ «a
I-¥C1)*CB-1)7
(Dx*D)
56a; C=(¥(@)+DkA/<B
-1))/C
57@:BEEP 3:LPRINT
Haas 4
58@:LPRINT "b=";B
59@:LPRINT "k="3C
6@@:BEEP S: INPUT "
DATA CSAVE?¢Y
ND"3A$
G1O:1F (A$S"Y")4+¢4
$="N"3<>1GOTO
6aa
62@: IF A$s"N"GOTO
70a
63@:PRINT #"@EK-0A
TA"3N; YOK)
[@8;LF 1:LPRINT "x
SCHAETZUNG X"
:CLS
71@:BEEP 1: INPUT "
X="3%:GOTO: 228
228: END
73@8°LPRINT "X="3%
74@:LPRINT "Y="3C-
AXBOX -
758:G0TO 71e
STATUS. I.
1266
Eingabe x
'Ende.
[ Speicherinhalt ]