Commit 7fdce8da authored by Pascal J. Bourguignon's avatar Pascal J. Bourguignon

Included equa2 program.

parent 5fb1afb7
1*BOURGUIGNON PASCAL 5*7 25 06 1976
2*BOUR
3*EXERCICE DE RESOLUTION D'EQUATION DU PREMIER DEGRE.
4*
5*TOURNE
6 AFFICHER 'FAIT PAR PASCAL BOURGUIGNON LE 25.6.1976 '
10 AFFICHER 'DONNEZ 4 NOMBRES , MAIS A>1 '
15 AFFICHER 'A=';LIRE A
17 SI A<=1 ALORS DEBUT AFFICHER 'FAUX';ALLER EN 15 FIN SINON ALLER EN 20
18*
20 AFFICHER 'B=';LIRE B
30 AFFICHER 'C=';LIRE C
40 AFFICHER 'D=';LIRE D
50 AFFICHER 'A*(B+X-C)=D'
60 H_D/A-B+C
70 AFFICHER 'X= '
71 T1_TEM()
72 LIRE X
75 T2_TEM()
79 T3_T2-T1
80 SI H=X ALORS AFFICHER 'EXACT VOUS AVEZ MIS ',T3,' " ' SINON ALLER EN 84
81*
84 SI X#H ALORS DEBUT AFFICHER 'FAUX ';ALLER EN 70 FIN
90 AFFICHER 'SI VOUS VOULEZ CONTINUER REPONDEZ 1 SINON REPONDEZ 0 '
91 AFFICHER 'R=';LIRE R
92 SI R=1 ALORS ALLER EN 10 SINON ALLER EN 95
95 AFFICHER 'DOMMAGE C''EST UN BEAU PROGRAMME ';ALLER EN 100
100 TERMINER
110 CHAINE TEXT
111 LIBERER TEXT
190 X_&P(H,2+H)
192 TERMINER
200 PROCEDURE &P(A,B) LOCAL B
210 A_A+1;RESULTAT A+B
1*BOURGUIGNON PASCAL 5*7 25 06 1976
2*BOUR
3*EXERCICE DE RESOLUTION D'EQUATION DU PREMIER DEGRE.
4*
5*TOURNE
6 AFFICHER 'FAIT PAR PASCAL BOURGUIGNON LE 25.6.1976 '
10 AFFICHER 'DONNEZ 4 NOMBRES , MAIS A>1 '
15 AFFICHER 'A=';LIRE A
17 SI A<=1 ALORS DEBUT AFFICHER 'FAUX';ALLER EN 15 FIN SINON ALLER EN 20
18*
20 AFFICHER 'B=';LIRE B
30 AFFICHER 'C=';LIRE C
40 AFFICHER 'D=';LIRE D
50 AFFICHER 'A*(B+X-C)=D'
60 H_D/A-B+C
70 AFFICHER 'X= '
71 T1_TEM()
72 LIRE X
75 T2_TEM()
79 T3_T2-T1
80 SI H=X ALORS AFFICHER 'EXACT VOUS AVEZ MIS ',T3,' " ' SINON ALLER EN 84
81*
84 SI X#H ALORS DEBUT AFFICHER 'FAUX ';ALLER EN 70 FIN
90 AFFICHER 'SI VOUS VOULEZ CONTINUER REPONDEZ 1 SINON REPONDEZ 0 '
91 AFFICHER 'R=';LIRE R
92 SI R=1 ALORS ALLER EN 10 SINON ALLER EN 95
95 AFFICHER 'DOMMAGE C''EST UN BEAU PROGRAMME ';ALLER EN 100
100 TERMINER
110 CHAINE TEXT
111 LIBERER TEXT
190 X_&P(H,2+H)
192 TERMINER
200 PROCEDURE &P(A,B) LOCAL B
210 A_A+1;RESULTAT A+B
1*auteur: Pascal Bourguignon
2*resolution d'une equation du 2e degre
10 AFFICHER[/,'resolution d''ene equation du second degre',/]
12 AFFICHER[/,'A*X^2+B*X+C=0',/]
20 AFFICHER[/,'A='];LIRE A
22 AFFICHER[/,'B='];LIRE B
24 AFFICHER[/,'C='];LIRE C
30 DELTA_B^2-4*A*C
32 SI DELTA<0 ALORS DEBUT AFFICHER 'pas de solution';TERMINER FIN
34 SI DELTA=0 ALORS DEBUT AFFICHER[/,'solution: x=',U,/]-B/2*A;TERMINER FIN
36 X1_(-B-RAC(DELTA))/2*A;X2_(-B+RAC(DELTA))/2*A
38 AFFICHER[/,'deux solutions: x1=',U,' et x2=',U,/]X1,X2
40 TERMINER
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment