Erreur en pascal, je pige pas???

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Erreur en pascal, je pige pas???

boom

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 :

program musique_editeur(input,output);
uses wincrt;
var
intro_mess:string;
commande:char;
procedure saisir_part;
var machin:char;
begin
clrscr;
writeln('Veuillez entrez la partition sous la forme:');
writeln('tempo octave do ré mi fa sol la si +do');
writeln('');
writeln('Pour revenir à l''écran précédent entrez : r');
writeln('');
write('Entrez la partition ou la commande r >');
read(machin);
writeln(machin);
end;
procedure menu;
begin
clrscr;
intro_mess := 'Programme de Zik';
writeln(intro_mess);
writeln('');
writeln('Le programme accepte les commandes suivantes :');
writeln('s : Saisir une nouvelle partition au clavier.');
writeln('j : Jouer la partition en cours.');
writeln('l : Lire une partition depuis un fichier.');
writeln('e : Enregistrer une partition dans un fichier.');
writeln('b : Changer l''octave de la partition en cours.');
writeln('t : Changer le tempo de la partition en cours.');
writeln('c : Configurer le format de l''enregistrement dans un fichier.');
writeln('h : Aide.');
writeln('');
write('Entrez la commande >');
read(commande);
case commande of
's': saisir_part;
else
writeln('La commande n''existe pas, veuillez recommencer.');
write('Entrez la commande >');
read(commande);
end;
end;
begin
menu;
end.

Publicité

antp

Super Administrateur
Champion des excuses bidons

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

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

boom

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

antp

Super Administrateur
Champion des excuses bidons

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

boom

Ok, merci je vais essayer.

boom

Excellent, ça marche merci bien.

FORUM HardWare.fr

Programmation

Delphi/Pascal

Erreur en pascal, je pige pas???

Sujets relatifs
Où est l'erreur??	[JS] aidez moi a trouver l'erreur svp
[PHP] Erreur dans MyNews v1.2 ! [Résolu]	Arrrghh elle est ou l'erreur ???
ASP - jscript gestion d'erreur avec exception	java2D avec MediaTracker , erreur difficile , aidez moi SVP !!! merci
[Delphi, Pascal] Manipulation de bits	[ XHTML ] Grrr je pige rien au div et au positionnement...
test de primalité : erreur dans le code	[oracle+unix] comment récupérer un message d'erreur ?
Plus de sujets relatifs à : Erreur en pascal, je pige pas???

Page générée en 0.055 secondes