Dev pascal

Fermé

th3geek - Modifié par baladur13 le 26/10/2015 à 14:00
domda91 Messages postés 4 Date d'inscription mardi 16 février 2010 Statut Membre Dernière intervention 7 novembre 2015 - 7 nov. 2015 à 14:43

Bonjour, je vois que dev pascal ne comprend pas des codes tres simple,

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

Réponse 1 / 1

domda91 Messages postés 4 Date d'inscription mardi 16 février 2010 Statut Membre Dernière intervention 7 novembre 2015 4
7 nov. 2015 à 14:43

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 ?

Discussions similaires

https://massgrave.dev/get/iex

probleme bluetooth avec sony mex-bt2500

controleur ethernet pci \ven-8086&DEV-103B&SU

[SUJET GROUPÉ] massegrave.dev activer gratuitement Windows.