Advertisement
rSIMULTANEOUS EQUATIONS OF THE FIRST D E G R E E - - - - - - - - - - - -
[Q[IJ~[IJ
10 CLEAR:DEFDBLA-C
20 CLS: PRINT"**
Si mul taneour,; "
30 PRINT" 1 inear equatious
-tHi-"
1260
llytcs
40 INPUT"Number
of variatJles
==";N:IF N>6
THEN
4
0
50 FOR I=l TO N+1:P$(I>=CHRS(I+64):Q$Cil=CHRS(I+
48) :R$(I)="X"+Q$(I) :NEXT I
60 FOR I=l TO N:S$=
1111
70 FOR J=1 TON
80 S$=S$+P$(J)+Q$(I)+R$(J)+"+"
90 NEXT J
100 T$=LEFT$
<
S$, 5*N·-1 ) +"
=
"+F'$
<
N+ 1 ) +Q$
<
I
>
110 CLS
120 LOCATE 0,0:PRINTT$
130 FOR J=l TON
140 U$=P$(J)+Q$(I)+"="
150 LOCATE 0,J+l:PRINT U$;:INPUT"",A(I,J)
160 NEXT
J
170 LOCATE10,
2:
PRINT P$ CN+l) +Q$ <I)+"=";: INPUT"",
B
( I)
180 LOCATE11,4:PRINT"ok
?"
190 LOCATE10,5:PRINT"yes:anykey"
200 LOCATE10,6:PRINT"no :CNJ"
210 Z$=INKEY$:IF Z$=""THEN 210 ELSE IFZ$="N" OR Z
$="n" THEN 7121
220 NEXT I
230 CLS:PRINT"Being computed"
240
I
25121 FOR I=l TON
260
J==I
270 IF A(I,J><>0 THEN 320
280 J=J+l:IF J>N THEN 510
290 IF A(I,J)=0 THEN 270
300 FOR K=l TO N:C=A<I,K>:A<I,K>=A<J,K):A<J,K)=C:
NEXT K
310. C=B
<
I) : B ( I ) =B (
J) :
B (
J )
=C
320 C=A<I,I>
330 IF C=0 THEN 510
340 FOR J=1 TO N:A(I,J)=A<I,J)/C:NEXT J
350
B<I>=BCI)/C
Advertisement
