Sharp PC-1500 Anwenderhandbuch Seite 35

[ Programmlisting ]
1a: "A"; CLEAR :
WAIT @
28:CLS : INPUT "N=
"3 NiN=N-]
38:DIM ACN; ND
48:FOR 1=@TO N
5@:FOR J=@TO N
6B: AS="ACV+STRE ¢
{+1)4+", "+STRS
CJa1 405"
65:PRINT AS;
@@:NEXT J
12@:NEXT 1: END
138:"B":FOR 1=aTO
N
148:FOR J=@TO N
150: AS="AC"+STRE ¢
14+1)4+", "+STR$
(J+1>4"3="
168:CLS :PRINT A$;
ACI, J)3
165: CURSOR 15
18@:NEXT J
20B:NEXT IJ:ENDB
218
215:
220:
Zee
238:
2468:
258:
768:
270:
270:
288:
298:
308:
310:
5@8:
518:
526:
538:
548:
900:
"C".GOSUB 3580
"DO". FOR M=NTO
ISTE +4
P=ACM, M>
IF P=@THEN 982
FOR ]=8TO M-]
Q=AC I, M)7P
FOR J=68T0O M
Aci, Je=ACT, Jo-
a*acn; Jd
NEXT J: NEXT I:
NEXT M
N=A¢B, Bd
FOR ]=1TO N
D=D*ACI,; 1)
NEXT 1]
BEEP 1:LPRINT
"det =";D: END
FOR 1=@TO N
FOR J=@TO N
AS="AC"4+STRE €
J+])d4+", "+STRS
(J+) 94+")9="
LPRINT A$;ACI,
JD
NEXT J:NEXT IJ:
RETURN
LPRINT "FEHLER
": END
STATUS 1
285
PROGRAMN-NR.
P5—A-—10 4
[ Speicherinhalt ]
D 2 i
K
eterminantenwert
ce
Ee
Pe | Korekturdaten
ie ae
a is
pa fv
ES
pk
=e
A |e
L
a Anzahl der Eingabe
Eingabe/Ausgabe-Meldung
(N,N}} Eingabedaten
N[<|x/s
>