learn delphi sql server access

Ecrire une algorithme qui resoudre une équation de 1ere degré

écrire une algorithme qui resoudre une équation de 1ere degré

0 77

Enocé

écrire une algorithme qui resoudre une équation de 1ere degré

Solution

PROGRAM Eq_1er_degre;

VAR a, b : REAL;

BEGIN

WRITELN(‘Résolution de ax + b = 0’);

WRITE(‘Introduisez a: ‘);

READLN(a);

WRITE(‘Introduisez b: ‘);

READLN(b);

IF a=0 THEN IF b=0 THEN WRITELN(‘Equation indéterminée.’)

ELSE WRITELN(‘Equation impossible.’)

ELSE WRITELN(‘x = ‘, -b/a:5:2)

END.

 

 

Leave A Reply

Your email address will not be published.