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
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é