listati da GWbasic

100 PRINT"soluzione sistema di equazioni 1 grado
110 PRINT"con GWBASIC"
120 PRINT"sistema a due equazioni"
130 PRINT"a1x +b1y = c1"
135 PRINT"a2x +b2y = c2"
140 PRINT"scrivi i coefficienti del sistema"
150 INPUT "a1=",A1
155 INPUT "b1=",B1
160 INPUT "c1=",C1
170 INPUT "a2=",A2
175 INPUT "b2=",B2
180 INPUT "c2=",C2
200 PRINT"calcolo dei determinanti ds,dx,dy"
210 DS=A1*B2-A2*B1
220 DX=C1*B2-C2*B1
230 DY=A1*C2-A2*C1
250 IF DS<>0 THEN GOTO 300 ELSE GOTO 400
300 X=DX/DS
310 Y=DY/DS
320 PRINT"x=",X
330 PRINT"y=",Y
340 GOTO 600
400 IF DX=0 AND DY=0 THEN GOTO 430 ELSE GOTO 500
430 PRINT"il sistema risulta indeterminato"
440 GOTO 600
500 PRINT"il sistema risulta impossibile"
600 PRINT"fine soluzione"