Dev pascal
th3geek
-
domda91 Messages postés 4 Statut Membre -
domda91 Messages postés 4 Statut Membre -
Bonjour, je vois que dev pascal ne comprend pas des codes tres simple,
comme celui ci:
program abcdelta;
s'il vous plais, corrigez mois ce code. merci d'avance.
comme celui ci:
program abcdelta;
var a,b,c,d,j,x,x:real;
begin
clrscr;
write('give the value of a');
readln(a);
write('give the value of b');
readln(b);
write('give the value of c');
readln(c);
d := b*b-4*a*c;
if( d > 0 ) then
j := sqrt(d);
x := (-b-j)/2*a;
y := (-b+j)/2*a;
write('x1=',x,'and x2=',y);
end.
s'il vous plais, corrigez mois ce code. merci d'avance.
1 réponse
-
Ligne:
var a,b,c,d,j,x,x:real;
l'identificateur x est déclaré deux fois.
Lignes:y := (-b+j)/2*a; write('x1=',x,'and x2=',y);
L'identificateur y n'est pas déclaré !
Lignes:x := (-b-j)/2*a; y := (-b+j)/2*a;
Vérifie bien les règles de précédence des opérateurs.
Ici 'a' est multiplié au résultat de la division et non à 2.
Est-ce bien ce que tu veux ?
