FORUM MP | Pascal : equation du second degré

COMMUNAUTE MP

Identifiez vous ...

DOMAINE MP

Bavardages

Langages Généraux

Langages Web

Langages DotNet

Autres langages

Dev. Jeux Video

Sécurité

Sys. Exploitation

Graphismes

Logiciels

Réseaux

Bases de données

Méthodologies

Emplois High-tech

Aide juridique

Articles juridiques

FORUM

CHAT MP IRC

Votre pseudo ...

Srv: irc.moteurprog.com

Chan: #MoteurProg

PARTICIPER

Plus de 3500 emplois.

Visiteur MP

equation du second degré
	Forum : PASCAL Sous Catégorie : Aucune Type du sujet : Sujet Normale FAQ : FAQ PASCAL
		SUIVI PAR MAIL INACTIF
		SUJET NON RESOLU
		SUJET ACTIF
		N'APPARTIENT PAS A LA FAQ

PAGE : [1]

FORUM PASCAL
	Page précedente	Page suivante

Visiteur MP
Membre du club

Inscrit :
Messages : 1250

#115380 Posté le 09/11/06 à 22:09

Bonjour,

Alors voila à l'école j'apprend le pascal et comme exercice mon prof m'as donner a faire un programme qui puissent effectuer une equation du second degré mais dans le code qui suit que j'ai fait ben je sais pas pourquoi a la ligne 18 :"else if (delta=0) then " j'obtient cette erreur:
Fatal: Syntax error, ; expected but ELSE found
Que dois je faire? Et puis mon programme est il juste? (je pense que non lol mais je peux meme pas tester vu qu'il compile meme pas a cause de cett erreur)

program equation; uses crt; var a, b, c, x1, x2,x, delta: integer; begin writeln('Entrez l"equation a dont vous cherchez les solutions (sans les x ni les carré)'); readln(a,b,c); begin if (a<>0) then delta:= b*b - 4*a*c; end; begin if (delta>0) then x1:= (-b+trunc(sqrt(delta)))div(2*5); x2:= (-b-trunc(sqrt(delta)))div(2*5); writeln('Les solutions sont: ',x1,' et ',x2); end; begin else if (delta=0) then x:= -b div 2*a; writeln('La solution de votre équation est ',x); end; begin else if (delta>0) then writeln('equation impossible'); end; readln; readkey; end.

HAUT DE PAGE

Publicité

Inscrit : X
Messages : X

#Aucun

HAUT DE PAGE

Raekwon
Superviseur :
- Logiciel Gra.
Modérateur :
- Blender

Inscrit : 09/03/2005
Messages : 1755

#115418 Posté le 10/11/06 à 14:35

Salut à toi,

je débute également sous delphi, et a première vue...il y a Else devant If qui devrait pas être là...

begin if (delta>0) then writeln('equation impossible'); end; readln; readkey; end.

@+
__________________________
Blender est si excitant, que je blende tout le temps !

WIP Mettez vos créations en cours ICI !

Pensez à mettre la mention RESOLU lorsque vous pensez que l'on a répondu à vos attentes !!!

HAUT DE PAGE

pac
Co-Administrateur
Superviseur :
- Méthodologie.
Modérateur :
- Delphi
Chef de projet(s) :
- Jeu Awalé
- EcoSystem
- MySudoku

Inscrit : 08/04/2004
Messages : 6570

#115467 Posté le 11/11/06 à 10:37

Tu intervertis les if et les begin, il faut faire le begin après le if et non pas avant :

program equation; uses crt; var a, b, c, x1, x2,x, delta: integer; begin writeln('Entrez l"equation a dont vous cherchez les solutions (sans les x ni les carré)'); readln(a,b,c); if (a<>0) then begin delta:= b*b - 4*a*c; end; if (delta>0) then begin x1:= (-b+trunc(sqrt(delta)))div(2*5); x2:= (-b-trunc(sqrt(delta)))div(2*5); writeln('Les solutions sont: ',x1,' et ',x2); end else if (delta=0) then begin x:= -b div 2*a; writeln('La solution de votre équation est ',x); end else if (delta>0) then begin writeln('equation impossible'); end; readln; readkey; end.

De plus, il ne faut pas mettre de ; au end précédant un else.
Penses à mettre les balises [ code] [ /code ] pour que ce soit plus lisibles sur le forum.
Et penses à indenter ton code et à l'aérer pour qu'il soit plus lisible en général.
__________________________
Lisez la charte, pensez à regarder la FAQ, les tutoriaux, l'annuaire et faites une recherche dans les forums.
N'oubliez pas le Tag [Résolu]

.

Initiez-vous à Delphi avec Turbo Delphi Explorer, au C ou au C++ avec Code::Blocks et C# avec Visual C# 2005 Express.

HAUT DE PAGE


	Page précédente	Page suivante
FORUM PASCAL

PAGE : [1]

.: Site Web développé par Julien Pichot et l'équipe MPWG avec www.evolvia-web.com :.