Sharp PC-1500 Applications Manual page 35

All and more about Sharp PC-1500 at http://www.PC-1500.info
PROGRAM
DETERMINANT
PROGRAM NO.
4
Tl T LE
PS- A- 10
I
Program List ]
I
Memory Contents ]
10: ""A"":CLEAR
:
3 10
:BEEP J:LPR!tH
A
WAIT 0 ''de
t : '" ;
Q:
ENO
20: CLS
: I NPVT
''N=
500 :FOR
1=0TO N
B
.. ;N: N=N-1 5 10:FOR J=0TO
N
J 0: 0JM ACN,N>
520:A$•"A< "•S TR$
{
c
40;FQR J:0TO N
1+1>+",
" +STR $
0 Determlnant Value
s e:F"OR J"0TO N
(J + ))i- .. ) = ''
60:AS="Ac"•STR$
(
530: LPRINT
A$; A<J,
E
Correction Data
1-+- l
) + •J,
"+STRS
J)
(J+l)+'') a 'I
540:NEXT
J:HEXT
I :
F
6S:PR!NT
A$ ; RETURN
G
'0: INPUT A(J, J >:
900:LPRINT "ERROR"
CLS
:ENO
H
80:NEXT J
120:NEXT I : END .
I
v
130:"8"":FOR 1=0TO
J
v
N
STATUS I 584
140:FOR J•0TO N
K
1se:A$• ""A<"•STR•
(
l-t-1
>•",
''+STRS
L
<J+ l
)+")= ''
M
v
160:CLS
:PR INT
Q$;
A<l,J >;
N
Number of the order
165:CURSOR
LS
1/0:J NPUT
E: A<l,J)
0
=E
p
v
1se:NEXT
J
200:NEXT
J :EN O
a
.J
2
J
0 : "" C"" : GOSUB 500
21s:·o·· :FOR M • NTO
R
!STEP - I
s
220: P• ACM,M)
225: IF P=0 T MEN 900
T
2Je:F'OR
1•0TO
1' 1 · I
240:Q=A<J, M ) /P
u
250: FOR
J
• 0T O M
v
260:A(l,Jl•A(l, Jl-
Q' $ ' . A C M
1
J)
w
2/0: NEXT
J :t<EXT l:
NEXT
l'1
x
2/S :Q•AC 0,0 >
y
280: FOR
l"\T O N
290: O•OtA < 1, I >
z
300:N[Xl
l
AS
Input/Output mes.sage
A(N.NI
Input data
Do not sale this PDF !!!
- 29 -