Discussion :

[nmech]

salut tout le monde
je suis une etudiante en informatique et actuellement je suis entrain de faire un pgm en pascal, et je veux le faire en sorte qu'il demande a lutilisateur d'appuyer sur la touche 'c' par exemple pour executer une partie du pgm principale.. comment faire cette procedure aidez moi svp .Merci

[krachik]

bonjour et bienvenue
il suffit de lire la touche sur laquelle tu veux que l'utilisateur appuie par la fonction readkey et apres
tu pouras faire ce que tu veux exemple

Code :

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

1
2
3
4
5
6
7
8
9
 
  ........
  touche:=readkey;
  if(touche='c')
       writeln('c''est la touche ',c);
  else  
       writeln('autre touche');
  .........
  .......

ou bien

Code :

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

1
2
3
4
5
6
 
     if(touche='c')
     begin
          {      Execution de mon programme.........}
          {    instructionsssssssssss.........}
     end;

n'oublies pas que touche est un caractere
apres tu peux ecrire ta procedure avec les instructions que tu veux
@+

[Ultima]

Bonjour,
On rencontre souvent les logiciels qui donnent plusieurs choix à son utilisateur.
Voici un petit programme qui donne deux choix à son utilisateur, Oui ou Non.
Ce qui est intéressant ici, c’est que tout les choix autres que ceux attendus, ne sont pas pris en compte.

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
17
18
19
20
21
22
uses crt; // pour pouvoir utiliser Readkey
 
function YesOrNo : BOOLEAN;  // Le programme va attendre que l'utilisateur choisisse entre Oui et Non les autres choix ne seront pas considérés.
  var car : CHAR;
  begin
    repeat
      car:= ReadKey
    until (car = 'o') or (car = 'O') or (car = 'n') or (car = 'N');
 
  YesOrNo := (car = 'o') or (car = 'O');
end;  // YesOrNo vaut TRUE, si l'utilisateur appui sur O, ou sur o
 
 
begin
  writeln('Vous avez un choix');
  writeln('Quitter le programme? [O/N]');
 
  while not YesOrNo do
    writeln('Vous avez décidé de rester dans le programme');
 
  writeln('Vous quittez le programme');
end.

[CapJack]

Oooh, l'affreux !

Code :

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

    until car in ['O','o','N','n'];

mieux :

Code :

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

1
2
    car:= upcase(ReadKey)
    until car in ['O','N'];

C'est tout de suite mieux...

[Alcatîz]

Bonjour !

Oooh, l'affreux !

Code :

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

    until car in ['O','o','N','n'];

mieux :

Code :

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

1
2
    car:= upcase(ReadKey)
    until car in ['O','N'];

C'est tout de suite mieux...

Le "mieux" est discutable car remplacer deux tests de comparaison par un appel de fonction est peut-être plus élégant visuellement mais ne me semble pas très rentable dans l'exécutable final.

[droggo]

Kol,

Bonjour !

Le "mieux" est discutable car remplacer deux tests de comparaison par un appel de fonction est peut-être plus élégant visuellement mais ne me semble pas très rentable dans l'exécutable final.

Ce n'est pas le temps d'exécution d'une lecture du clavier, opération manuelle par définition, qui compte pour un programme, même sur de vieilles bécanes antédiluviennes.

Sauf cas particulier de calculs intensifs et/ou temps de réponse critique, il vaut mieux écrire du code "élégant" que de chercher la petite bête qui se compte au plus en microsecondes, et même moins, avec les machines modernes.

En l'occurrence, il est clair que l'entrée d'une donnée au clavier ne peut pas être considérée comme une partie de code critique pour le temps d'exécution, le temps de réaction de l'opérateur est très largement supérieur au temps d'exécution d'une petite fonction comme upCase