Tom's Guide > Forum > Programmation > turbo pascal

turbo pascal

Forum Programmation : turbo pascal

TomsGuide.com : 800 000 inscrits répondent à toutes vos questions high-tech et informatique. Pour obtenir de l'aide, inscrivez-vous gratuitement !
Créer un nouveau sujet Répondre
Mot :    Pseudo :           
 
cyril0726   01-09-2006 à 09:40:35

Bonjour je souahaite faire un programme générant des calcul simple (addition de deux entiers) qui serot par la sutie vérifié par l'ordinateur puis validé avec un syteme de compteur qui contera les bonnes reponses et les mauvaises, voici ma syntaxe (en turbo pascal) :
var x,y,c,d : integer
var resultat : integer
BEGIN
c:=0
d:=0
x :=random(16)
y :=random(16)
write (x, '+', y);
readln(resultat);
if resultat=y+x then
c :=c+1 else
d :=d+1;
write ('vous avez', c, 'bonnes reponses et', d, 'mauvaises reponses')
until c=40;
write ('bravo');
end

lorsque je demande de lancer le programme i me trouve uen erreur ala fin du programme sur le end final j'ais le messega suivant "error 10: Unexpcted end of file".
Mon programme peut il marcher? pourquoi ais je ce message d'erreur? merci

Message cité 1 fois
Répondre
Liens sponsorisés
Inscrivez-vous ou connectez-vous pour masquer ceci.
Badge Programmation Bronze crazycat@idn   01-09-2006 à 09:47:05
- 0 +

il manque un . après END :)

------------------------------ Réseau IRC Francophone | g33k-zone
 Répondre à crazycat@idn
cyril0726   01-09-2006 à 09:58:14
- 0 +

daccord tout simplement merci beaucoup sinon sa tient la route?

Répondre à cyril0726
cyril0726   01-09-2006 à 10:07:44
- 0 +

et est ce que quelqu'un connait une autre fonction que "random"? car ce sont toujours les même chiffres qui sortent:S

Répondre à cyril0726
Badge Programmation Bronze crazycat@idn   01-09-2006 à 13:24:13
- 0 +

si tu faisais un petit Randomize; avant d'appeler ton random, ça aiderait surement...

------------------------------ Réseau IRC Francophone | g33k-zone
 Répondre à crazycat@idn
mosstiqa   14-09-2006 à 01:10:44
- 0 +

cyril0726 a écrit :

Bonjour je souahaite faire un programme générant des calcul simple (addition de deux entiers) qui serot par la sutie vérifié par l'ordinateur puis validé avec un syteme de compteur qui contera les bonnes reponses et les mauvaises, voici ma syntaxe (en turbo pascal) :
var x,y,c,d : integer
var resultat : integer
BEGIN
c:=0
d:=0
x :=random(16)
y :=random(16)
write (x, '+', y);
readln(resultat);
if resultat=y+x then
c :=c+1 else
d :=d+1;
write ('vous avez', c, 'bonnes reponses et', d, 'mauvaises reponses')
until c=40;
write ('bravo');
end

lorsque je demande de lancer le programme i me trouve uen erreur ala fin du programme sur le end final j'ais le messega suivant "error 10: Unexpcted end of file".
Mon programme peut il marcher? pourquoi ais je ce message d'erreur? merci


Répondre à mosstiqa
ndialtoo   27-02-2007 à 13:42:35
- 0 +

D'abord t'as oublié un repeat que tu dois placer juste après ton initialisation des compteurs c et d ensuite il faudra utiliser la fontions randomiise avant l'instruction x:=random(16); et enfin il manque un point après ton end
Pour d'autres informations en turbo pascal tu peux m'écrire un messge privé [:-D]

Répondre à ndialtoo
Anonyme   17-05-2009 à 12:33:45
- 0 +

bon voila il faut terminer le programme comme suit:
end.
le point est necessaire

Répondre à Anonyme
Créer un nouveau sujet Répondre
Tom's Guide > Forum > Programmation > turbo pascal
Aller à :

Il y a 391 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici.

Plan du forum
Forum Bestofmedia ©
2000-2009 Bestofmedia Group
Page générée en 0,415 secondes
Liens