Erreur en pascal, je pige pas???

Erreur en pascal, je pige pas??? - Delphi/Pascal - Programmation

Marsh Posté le 24-01-2003 à 16:53:57    

Voilà, quand j'essaie de compiler ce code avec turbo pascal 7, il n'y a aucun problème, la compilation se passe bien, mais quand je veux utiliser le programme, c'est là que ça commence à foirer. Le premier "read", celui qui se trouve dans la procédure "menu" passe sans problème, mais le second "read", qui se trouve dans la procédure "saisir_part", il l'ignore complétement, je comprends pas pk.
 
Voilà le code incriminé :
 
 

Code :
  1. program musique_editeur(input,output);
  3.         uses wincrt;
  5.         var
  6.            intro_mess:string;
  7.            commande:char;
  9.         procedure saisir_part;
  10.                   var machin:char;
  11.         begin
  12.              clrscr;
  13.              writeln('Veuillez entrez la partition sous la forme:');
  14.              writeln('tempo octave do ré mi fa sol la si +do');
  15.              writeln('');
  16.              writeln('Pour revenir à l''écran précédent entrez : r');
  17.              writeln('');
  18.              write('Entrez la partition ou la commande r >');
  19.              read(machin);
  20.              writeln(machin);
  21.         end;
  23.         procedure menu;
  24.         begin
  25.              clrscr;
  26.              intro_mess := 'Programme de Zik';
  27.              writeln(intro_mess);
  28.              writeln('');
  29.              writeln('Le programme accepte les commandes suivantes :');
  30.              writeln('s : Saisir une nouvelle partition au clavier.');
  31.              writeln('j : Jouer la partition en cours.');
  32.              writeln('l : Lire une partition depuis un fichier.');
  33.              writeln('e : Enregistrer une partition dans un fichier.');
  34.              writeln('b : Changer l''octave de la partition en cours.');
  35.              writeln('t : Changer le tempo de la partition en cours.');
  36.              writeln('c : Configurer le format de l''enregistrement dans un fichier.');
  37.              writeln('h : Aide.');
  38.              writeln('');
  39.              write('Entrez la commande >');
  40.              read(commande);
  41.              case commande of
  42.                   's': saisir_part;
  43.              else
  44.                  writeln('La commande n''existe pas, veuillez recommencer.');
  45.                  write('Entrez la commande >');
  46.                  read(commande);
  47.              end;
  48.         end;
  51. begin
  52.      menu;
  53. end.

Reply

Marsh Posté le 24-01-2003 à 16:53:57   

Reply

Marsh Posté le 24-01-2003 à 16:56:35    

Tu appuies sur Enter après avoir entré la valeur quand il fait le Read ?


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Marsh Posté le 24-01-2003 à 17:00:15    

Oui
C'est de la que vient l'erreur?

Reply

Marsh Posté le 24-01-2003 à 17:11:24    

Je pense, oui
Je crois que tu devrais plutôt lire la valeur dans une chaine (string) avec readln, et ensuite en extraire ce qui t'intéresse (ici le première caractère)


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Marsh Posté le 24-01-2003 à 18:14:10    

Ok, merci je vais essayer.

Reply

Marsh Posté le 24-01-2003 à 18:15:42    

Excellent, ça marche merci bien.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed