Langage pascal
Résolu/Fermé
le major
-
1 déc. 2008 à 13:22
Benz37 Messages postés 83 Date d'inscription vendredi 5 décembre 2008 Statut Membre Dernière intervention 3 mai 2014 - 5 déc. 2008 à 20:34
Benz37 Messages postés 83 Date d'inscription vendredi 5 décembre 2008 Statut Membre Dernière intervention 3 mai 2014 - 5 déc. 2008 à 20:34
A voir également:
- Langage pascal
- Turbo pascal download - Télécharger - Édition & Programmation
- Pascal langage - Télécharger - Édition & Programmation
- Langage ascii - Guide
- Langage pascal - Télécharger - Édition & Programmation
- Langage binaire - Guide
1 réponse
Benz37
Messages postés
83
Date d'inscription
vendredi 5 décembre 2008
Statut
Membre
Dernière intervention
3 mai 2014
23
5 déc. 2008 à 20:34
5 déc. 2008 à 20:34
procedure solv(a,b,c:real; var x1,x2:real)
var Delta:real;
begin
if a=0 then
if b=0 then
if c=0 then
writln("il y a une infinité de solution");
else
writln("pas de solution");
else
x1:=-c/b;
else
begin
Delta:=sqr(b)-4*a*c;
if delta<0 then
writeln("Pas de solution réelles");
else
begin
x1=(-b-sqrt(delta))/(2*a);
x2=(-b+sqrt(delta))/(2*a);
end;
end;
end;
var Delta:real;
begin
if a=0 then
if b=0 then
if c=0 then
writln("il y a une infinité de solution");
else
writln("pas de solution");
else
x1:=-c/b;
else
begin
Delta:=sqr(b)-4*a*c;
if delta<0 then
writeln("Pas de solution réelles");
else
begin
x1=(-b-sqrt(delta))/(2*a);
x2=(-b+sqrt(delta))/(2*a);
end;
end;
end;