Dev pascal
th3geek
-
domda91 Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
domda91 Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
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.
A voir également:
- Dev pascal
- Turbo pascal - Télécharger - Édition & Programmation
- Dev pascal - Télécharger - Édition & Programmation
- Massgrave dev - Accueil - Windows
- Dev c++ - Télécharger - Langages
- My pascal - Télécharger - Édition & Programmation
1 réponse
Ligne:
l'identificateur x est déclaré deux fois.
Lignes:
L'identificateur y n'est pas déclaré !
Lignes:
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 ?
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 ?