Discussion :

[Druks8]

Bonjour, petit up

Je viens enfin de trouver quelqu'un qui a le meme probleme que moi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program division;

var
  i : integer;
  cont : string;

begin;
    repeat;
    write ('i :');
    readln (i);
    writeln ('quotient de i/5=',i div 5,'   reste de i/5=',i mod 5,'     pour i=',i);
    writeln ('pour quitter taper : exit sinon taper : tout sauf exit');
    readln (cont);
    until (cont='exit');
end.

A chaque fois il me zappe le readln (cont)
Sauf que lorsque je mets le readln (cont) avant le readln (i) CA MARCHE!!

Donc je comprends pas le problème, alors si vous pouvez m'aidé ce serait sympa.

[krachik]

Bonjour

A chaque fois il me zappe le readln (cont)
Sauf que lorsque je mets le readln (cont) avant le readln (i) CA MARCHE!!

logiquement ça devrait faire ce que tu dis,alors pour m'en assurer j'ai testé ton code et chez moi ça marche comme tu le souhaite
Ta condition de sortie est peu orthodoxe il suffit d'une petite erreur de frappe et on risque de jamais sortir de cette boucle,un caractere suffira amplement ,dans le style (write('Continuez?(O/N)'); et utiliser un readKey()(plus adapté) ou un readln()
Sinon juste pour savoir tu utilises quel compilateur et sous quel systeme?
@+

[droggo]

Sio,

Je ne vois rien qui empêche ton programme de faire ce que tu souhaites.

Et comme krachik, je trouve ton moyen de sortir plutôt contraignant.

[JetliMohamed]

Slt tout le monde, je voi que ce programme marche bien sauf de préciser la bibliothéque que vous appelé (uses wincrt ou dos) c'est l'erreur N° 105 et pour tout çava.

[krachik]

Bonjour

auf de préciser la bibliothéque que vous appelé (uses wincrt ou dos) c'est l'erreur N° 105

Quel est l'utilité d'appeler ces librairies?
Dans ce code il y a rien qui fait appel a ces librairies en tout cas pour TP7 ,pour un autre compilateur peut etre (tu peux me dire quel compilateur tu utilises pour avoir cette erreur)?
@+

[Druks8]

Merci pour vos réponses, je vais essayer de changer la fin de mon programme en changeant le readln par un readkey.

Krachik : j'utilise windows XP et Turbo pascal 7. Est-ce qu'il y a des problèmes au niveau de certaines commandes?