Votre question

turbo pascal

Tags :
  • Programme
  • Programmation
Dernière réponse : dans Programmation
1 Septembre 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

Autres pages sur : turbo pascal

a c 145 L Programmation
1 Septembre 2006 09:47:05

il manque un . après END :) 
1 Septembre 2006 09:58:14

daccord tout simplement merci beaucoup sinon sa tient la route?
Contenus similaires
1 Septembre 2006 10:07:44

et est ce que quelqu'un connait une autre fonction que "random"? car ce sont toujours les même chiffres qui sortent:S
a c 145 L Programmation
1 Septembre 2006 13:24:13

si tu faisais un petit Randomize; avant d'appeler ton random, ça aiderait surement...
14 Septembre 2006 01:10:44

cyril0726 a dit :
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

14 Septembre 2006 01:12:06

bonne réponse
27 Février 2007 13:42:35

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]
Anonyme
17 Mai 2009 12:33:45

bon voila il faut terminer le programme comme suit:
end.
le point est necessaire
Tom's guide dans le monde
  • Allemagne
  • Italie
  • Irlande
  • Royaume Uni
  • Etats Unis
Suivre Tom's Guide
Inscrivez-vous à la Newsletter
  • ajouter à twitter
  • ajouter à facebook
  • ajouter un flux RSS