[TP] Condition d'arrêt = touche escape
Salut à tous
J'ai un programme qui a une condition d'arret = 0.
Comment puis-je la changer par la touche Esc (Echap) ?
Merci d'avance
Voici le programme principal
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| begin
WRITE('faite entrer votre nombre (0 pour arrêter):');
READLN(nbr);
while not (nbr='0') do
begin
nbr := Majuscules(nbr);
WRITE('Dans quelle base est-il exprimé ');
READLN(Base1);
if test(nbr,Base1) = false then
WRITELN('Le nombre n''est pas correct!')
else
begin
WRITE('Dans quelle base voudriez vous l''exprimer: ');
READLN(Base2);
WRITELN(nbr,' en base ',Base1, ' = ', Base_m(Base10(nbr,Base1),Base2), ' en base ',Base2);
end;
WRITE('Introduisez le nombre (0 pour arrêter):');
READLN(nbr);
end;
end. |
