Prob dev-pascal

[rut1269]

Bonjour a tous !

Voila j'essaie de commencer a programmer un peu en pascal mais j'ai deja un problème...

Voila mon (minuscule et ridicule) programme :

 

program rut;

uses wincrt;

var a,b,c,d:integer;

begin;

writeln ('a + b + c = d');

write ('Entrez le premier chiffre (a) : ');

readln(a);

write ('Entrez le deuxième chiffre (b) : ');

readln(b);

write ('Entrez le troisième chiffre © : ');

readln©;

d:=b+a+c;

readln(d);

write (d);

end.

 

Quand je le compile il ne trouve pas d'erreur.

Je le lance,tout fonctionne correctement jusqu'au moment d'afficher le résultat...

Quand j'entre le troisième chiffre et que je pousse sur enter,le curseur va a la ligne mais ne m'affiche rien....

j'utilise Windows xp pro

help me please !

[super gag]

c'est normal

après avoir entré le triosième nombre © l'ordi veut que tu tape une valeur pour d

readln(d);

 

essaie ça pour la fin de ton programme

d:=b+a+c;;
writeln (d);
readln;
end.

 

dis nous si ça marche

 

edit : le dernier readln permet de ne pas fermer la fenètre tout de suite après avoir affiché le résultat. appuie juste sur entrée pour quitter ton programme

 

edit2: j'ai modifié le code que je t'ai marqué pour que le résultat apparaisse sur la ligne suivante

Modifié le 18 mai 2003 par super gag

[KewlCat]

Le dernier write ne va pas à la ligne, donc le prompt se réaffiche en début de ligne et "écrase" l'affichage du résultat...

ajoute un dernier writeln() (après le write(d) ) et tu verras ton résultat à l'écran...

[rut1269]

wééééé j'ai essayé le système proposé par super gag et ça marche !

merci !

Normalement j'utilise un autre prog et apparement il ne va pas de la meme façon

[KewlCat]

Ou sinon c'est qu'il manque un flush() mais en Pascal je sais plus comment on le force...

Voilà voilà.... content que tu aies trouvé une solution