Pascal
Fermé
iceberglca
Messages postés
2
Date d'inscription
dimanche 17 février 2013
Statut
Membre
Dernière intervention
17 février 2013
-
17 févr. 2013 à 21:34
iceberglca Messages postés 2 Date d'inscription dimanche 17 février 2013 Statut Membre Dernière intervention 17 février 2013 - 17 févr. 2013 à 21:36
iceberglca Messages postés 2 Date d'inscription dimanche 17 février 2013 Statut Membre Dernière intervention 17 février 2013 - 17 févr. 2013 à 21:36
A voir également:
- Pascal
- Turbo pascal download - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Dev-pascal - Télécharger - Édition & Programmation
- Le protocole assure que la communication entre l'ordinateur de pascal et le serveur de visiodoct est car les informations seront avant d'être envoyées. - Forum Réseau
- Pascal le grand frere streaming ✓ - Forum Cinéma / Télé
1 réponse
iceberglca
Messages postés
2
Date d'inscription
dimanche 17 février 2013
Statut
Membre
Dernière intervention
17 février 2013
17 févr. 2013 à 21:36
17 févr. 2013 à 21:36
excuzzé c'est plutot celui ci
PROGRAM discriminant;
VAR
a,b,c, sol, sol1, sol2: INTEGER;
sqrt:REAL;
delta: REAL;
v: REAL;
Begin
Writeln('veuillez saisir le nombre a');
Readln(a);
Writeln('veuillez saisir le nombre b');
Readln(b);
Writeln('veuillez saisir le nombre c');
Readln(c);
(*calcul du discriminant*)
delta:= b*b-4*(a*c);
v:= sqrt(discr);
(*affichage du r'sultat*)
Writeln(' le discriminant de ',a,'x^2+',b,'x^1+',c,'est:',delta);
If delta<0 then
Begin
Writeln('comme celui ci est n'gatif donc on ne peut pas le d'terminer');
Readln;
End
Else
(*affichons les solutions*)
if delta=0 then
Begin
Writeln('comme celui ci est nulle donc la solution est:X=',sol1);
sol1:= -b div (2*a);
readln;
end
Else
If delta>0 then
Begin
Writeln('les solutions sont:X1=', sol2);
Sol2:= -b -v / 2* a;
End
end.
PROGRAM discriminant;
VAR
a,b,c, sol, sol1, sol2: INTEGER;
sqrt:REAL;
delta: REAL;
v: REAL;
Begin
Writeln('veuillez saisir le nombre a');
Readln(a);
Writeln('veuillez saisir le nombre b');
Readln(b);
Writeln('veuillez saisir le nombre c');
Readln(c);
(*calcul du discriminant*)
delta:= b*b-4*(a*c);
v:= sqrt(discr);
(*affichage du r'sultat*)
Writeln(' le discriminant de ',a,'x^2+',b,'x^1+',c,'est:',delta);
If delta<0 then
Begin
Writeln('comme celui ci est n'gatif donc on ne peut pas le d'terminer');
Readln;
End
Else
(*affichons les solutions*)
if delta=0 then
Begin
Writeln('comme celui ci est nulle donc la solution est:X=',sol1);
sol1:= -b div (2*a);
readln;
end
Else
If delta>0 then
Begin
Writeln('les solutions sont:X1=', sol2);
Sol2:= -b -v / 2* a;
End
end.