10 REM 20 REM RESOLUTION DE SYSTEMES D'EQUATIONS 30 REM DU PREMIER DEGRE (2 A 3 INCONNUES) 40 REM 50 REM College Les Pres Classe de 3eme et 60 REM Mme G.RAMBERT 63500 ISSOIRE 70 REM 80 REM Instructions 6 adapter 90 REM 100 REM LOCATE X,Y :positionne le curseur ligne X, colonne Y 110 REM LINE (X1,Y1)-(X2,Y2) trace une droite du point (X1,Y1) au point (X2,Y2) 120 REM 130 CLS 140 LOCATE 1,10:PRINT"RESOLUTION DE SYSTEMES D'EQUATIONS":PRINT 150 PRINT"Systeme de 2 equations du premier degre a 2 inconnues 1" 160 PRINT"Systeme de 3 equations du premier degre a 3 inconnues 2" 170 PRINT:INPUT"Votre choix ";N 180 IF WM AND N<>2 THEN 1500 190 IF N=1 THEN 210 200 IF N=2 THEN 590 210 ODOUR 1300 220 CLS:LOCATE 2,2:INPUT"A="0:LOCATE 2,14: INPUT"B =";B:LOCATE 2,26:INPUT"C=";C 230 LOCATE 4,2:INPUT"D=";D:LOCATE 4,14.INPUT"E=";E :LOCATE 4,26:INPUT"F=";F 240 LOCATE 6,10:IF B>=0 THEN PRINT A;"X +";B:"Y =" G. Rambert" ;C ELSE PRINT A;.X -";ABS(B);"Y =";C 250 LOCATE 8,10:IF E>=0 THEN PRINT D;"X ,";E;"Y =" ;F ELSE PRINT D;"X -";ABS(E);"Y =";F 260 LINE (72,36)-(72,66):LINE (72,36)-(76,36):LINE (72,66)-(76,66) 270 DP=A.E-B*D:DX=C.E-B*F:DY.A*F-C*0 280 PRINT:PRINT"Determinant principal : "OP 290 PRINT:PRINT"Determinant associe A X : ";DX 300 PRINT:PRINT"Determinant associC A Y : ";DY 310 IF DP=0 AND DX=0 AND DY=0 THEN LOCATE 17,6:PRINT"CE SYSTEME EST INDETERMINE":GOTO 1420 320 IF DP=0 AND (DX<>0 OR DY<>0) THEN LOCATE 17,6: PRINT"CE SYSTEME EST IMPOSSIBLE":GOTO 1420 330 X=DX/DP:Y=DY/DP 340 IF X=INT(X) AND Y=INT(Y) THEN LOCATE 17,10:PRINT"X=";X:LOCATE 17,26:PRINT"Y=";Y ELSE 360 350 LOCATE 20,12:PRINT"S="+CHR$(123)+"(";X;":";Y:" )"+CHR$(125):GOTO 1420 360 A1=ABS(DX):B1=ABS(DP) 370 IF AlINT(X1) AND X1<0 THEN LOCATE 17,8:PRINT "X=-":LOCATE 16,12:PRINT USING"###"OXI:LOCATE 18,12:PRINT USING"###";DP1:LINE (93,132)-(119,132) 460 A2=ABS(DY):82=ABS(DP) 470 IF A2INT(Y2) AND Y2<0 THEN LOCATE 17,25:PRINT"Y=-":LOCATE 16,28:PRINT USING"###";DY2:LOCATE 18,28:PRINT USING"*##";DP2:LINE (226,132)-(250,132) 560 IF X1<>INT(X1) AND Y2<>INT(Y2) THEN LOCATE 20,7:PRINT"S="+CHR$(123)+"(";SGN(X)*DX1;"/";DP1;";";SGN(Y)*DY2;"/";DP2;")"+CHR$(125):GOTO 1420 570 IF X1=INT(X1) AND Y2<>INT(Y2) THEN LOCATE 20,7 :PRINT"S="+CHR$(123)+"(";X1;";";SGN(Y)*DY2;"/".0P2;")"+CHR$(125):GOTO 1420 580 IF X1<>INT(X1) AND Y2=INT(Y2) THEN LOCATE 20,7 :PRINT"S="+CHR$(123)+"(";SGN(X)*DX1;"/";DP1;";";Y2;")"+CHR$(125):GOTO 1420 590 GOSUB 1300 600 CLS:LOCATE 2,2:INPUT"A=";A:LOCATE 2,10:INPUT"B =";B:LOCATE 2,18:INPUT"C=";C:LOCATE 2,26:INPUT"D=";D 610 LOCATE 4,2:INPUT"E=";E:LOCATE 4,10:INPUT"F=";F :LOCATE 4,18:INPUT"G=";G:LOCATE 4,26:INPUT"H=";H 620 LOCATE 6,2:INPUT"M=";M:LOCATE 6,10:INPUT"N=";N :LOCATE 6,18:INPUT"P=";P:LOCATE 6,26:INPUT"R=";R 630 LOCATE 8,10 640 IF (B>=0 AND C>=0) THEN PRINT A;"X +";B;"Y +"; C;"Z =";D 650 IF (B>=0 AND C<0) THEN PRINT A;"X' +";B;"Y -";ABS(C);"Z =";D 660 IF (8<0 AND C<0) THEN PRINT A;"X -";ABS(B);"Y -";ABS(C);"Z =";D 670 IF (B<0 AND C>=0) THEN PRINT A;"X -";ABS(B);"Y +";C;"Z =";D 680 LOCATE 10,10 690 IF (F>=0 AND G>=0) THEN PRINT E;"X +";F;"Y +"; G•"Z =";H 700 IF (F>=0 AND G<0) THEN PRINT E;"X +";F;"Y -":ABS(G);"Z =";H 710 IF (F<0 AND G<0) THEN PRINT E;"X -";ABS(F);"Y -";ABS(G);"Z =";H 720 IF (F<0 AND B>=0) THEN PRINT E;"X -";ABS(F);"Y +";G;"Z =";H 730 LOCATE 12,10 740 IF (N>=0 AND P>=0) THEN PRINT M;"X +";N;"Y +"; P:"Z =";R 750 IF (N>=0 AND P<0) THEN PRINT M;"X +";N;"Y -";ABS(P);"Z =";R 760 IF (N<0 AND P<0) THEN PRINT M;"X -";ABS(N);"Y -";ABS(P);"Z =";R 770 IF (N<0 AND P>=0) THEN PRINT M;"X -";ABS(N);"Y +";P;"Z =";R 780 LINE (72,52)-(72,100):LINE (72,52)-(76,52):LINE (72,100)-(76,100) 790 D1=F*P-G*N:D2=B*P-C*N:D3=B*G-C*F:D4=H*P-G*R:D5=D*P-C*R:D6=D*G-C*H:D7=F*R-H*N:D8=8*R-D*N:D9=8*H-D*F 800 DP=A*D1-E*D2+M*D3 810 DX=D*D1-H*02+R*D3 820 DY=A*D4-E*D5+M*D6 830 DZ=A*D7-E*D8+M*D9 840 PRINT:PRINT"Determinant principal :";DP 850 IF DP=0 THEN PRINT"CE SYSTEME EST INDETERMINE OU IMPOSSIBLE":GOTO 1220 860 PRINT"Determinant associe A X :";DX 870 PRINT"Determinant associe A Y :";DY 880 PRINT"Detreminant associe A Z :";DZ:PRINT:PRINT 890 X=DX/DP:Y=DY/DP:Z=DZ/DP 900 IF X=INT(X) AND Y=INT(Y) AND Z=INT(Z) THEN LOCATE 20,4:PRINT" X=";X:LOCATE 20,17:PRINT" Y=";Y:LOCATE 20,30:PRINT" Z=";Z:GOTO 1460 910 A1=ABS(DX):81=ABS(DP) 920 IF A1INT(X1) AND X1<0 THEN LOCATE 20,5:PRINT"X=-":LOCATE 19,8:PRINT USING"###";DX1:LOCATE 21,8:PRINT USING"###";DP1:LINE (64,156)-(88,156) 1010 A2=ABS(DY):B2=ABS(DP) 1020 IF A2INT(Y2) AND Y2<0 THEN LOCATE 20,15:PRINT"Y=-":LOCATE 19,18:PRINT USING"###";DY2:LOCATE 2 1,18:PRINT USING"###";DP2:LINE (144,156)-(168,156) 1110 A3=ABS(DZ):83=ABS(DP) 1120 IF A3<83 THEN T3=A3:A3=83:83=T3 1130 S3=INT(A3/B3):R3=A3-B3*S3 1140 IF R3=0 THEN P3=83:GOTO 1160 1150 A3=B3:B3=R3:GOTO 1130 1160 DZ3=ABS(DZ)/P3:DP3=ABS(DP)/P3 1170 Z3=SGN(Z)*(DZ3/DP3) 1180 IF Z3=INT(Z3) THEN LOCATE 20,26:PRINT"Z=";Z3 1190 IF Z3<>INT(Z3) AND Z3>=0 THEN LOCATE 20,26:PRINT"Z=":LOCATE 19,28:PRINT USING"###";DZ3:LOCATE 21,28:PRINT USING"###";DP3:LINE (224,156)-(248,156) 1200 IF Z3<>INT(Z3) AND Z3<0 THEN LOCATE 20,25:PRINT"Z=-":LOCATE 19,28:PRINT USING"###";DZ3:LOCATE 21,28:PRINT USING"###";DP3:LINE (224,156)-(248,156) 1210 GOTO 1460 1220 IF A*F-B*E<>0 OR E*N-F*M<>0 OR A*N-B*M<>0 THEN PRINT"Determinant caracteristique :";DZ:GOTO 125 0 1230 IF D3<>0 OR D1<>0 OR D2<>0 THEN PRINT"Determinant caracteristique :";DX:GOTO 1260 1240 IF A*G-C*E<>0 OR E*P-G*M<>0 OR A*P-C*M<>0 THEN PRINT"Determinant caracteristique :";DY:GOTO 127 0 1250 IF DZ=0 THEN FRINT:PRINT"CE SYSTEME EST INDETERMINE PAR RAPPORT A Z":GOTO 1460 1260 IF DX=0 THEN PRINT:PRINT"CE SYSTEME EST INDETERMINE PAR RAPPORT A X":GOTO 1460 1270 IF DY=0 THEN PRINT:PRINT"CE SYSTEME EST INDETERMINE PAR RAPPORT A Y";GOTO 1460 1280 PRINT:PRINT"CE SYSTEME EST IMPOSSIBLE":GOTO 1460 1290 GOTO 1460 1300 CLS:LOCATE 3,5:PRINT" Dans ce programme, la resolution des systemes s'effectue par la methode dite 'des determinants'." 1310 PRINT:PRINT" Cette methode s'applique A des systemes mis sous la forme:":PRINT:PRINT 1320 PRINT" AX+BY=C AX+BY+CZ=D" 1330 PRINT" DX+EY=F EX+FY+GZ=H" 1340 PRINT" MX+NY+PZ=R" 1350 LINE (50,71)-(50,87):LINE (50,71)-(56,71):LINE (50,87)-(56,87) 1360 LINE (170,71)-(170,95):LINE (170,71)-(176,71):LINE (170,95)-(176,95) 1370 PRINT:PRINT 1380 PRINT" A,B,C,D,E,F,G,H;M,N,P et R etant des ":PRINT:LOCATE 18,12:PRINT" ENTIERS RELATIFS " 1390 PRINT:PRINT:LOCATE 21,3:PRINT"AVANT DE COMMENCER, ":LOCATE 22,3:PRINT"TRANSFORMEZ VOS SYSTE MES" 1400 LOCATE 23,32:PRINT"" 1410 X$=INKEY$:IF X$=CHR$(13) THEN RETURN ELSE 1410 1420 LOCATE 22,1:INPUT"VOULEZ-VOUS RESOUDRE UN AUTRE SYSTEME DU MEME TYPE (S) , REVOIR LE MENU (M) OU AVEZ-VOUS TERMINE (F) ";R$ 1430 IF R$="S" THEN 220 1440 IF R$="11" THEN CLS:GOTO 150 1450 IF R$="F" THEN CLS:LOCATE 13,10:PRINT"AU REVOIR":END 1460 LOCATE 22,1:INPUT"VOULEZ-VOUS RESOUDRE UN AUTRE SYSTEME DU MEME TYPE (S) , REVOIR LE MENU (M) OU AVEZ-VOUS TERMINE (F) ";R$ 1470 IF R$="S" THEN 600 1480 IF R$="M" THEN CLS:GOTO 150 1490 IF R$="F" THEN CLS:LOCATE 13,10:PRINT"AU REVOIR":END 1500 CLS:LOCATE 11,1:PRINT"VOULEZ-VOUS FAIRE ATTENTION AU TEXTE !!":PRINT:PRINT" RECOMMENCEZ !!!" 1510 LOCATE 24,30:PRINT"" 1520 X$=INKEY$:IF X$=CHR$(13) THEN CLS:GOTO 150 ELSE 1520