Se connecter avec
S'enregistrer | Connectez-vous

turbo pascal

Dernière réponse : dans Programmation

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

Lassé par la pub ? Créez un compte

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

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]
Lassé par la pub ? Créez un compte
Tom's guide dans le monde