Bonjour, voilà j'avais un programme à créer sur le quel je vais essayer de me débrouiller tout seul mais voilà, un petit problème survient.
Dans ce programme, je dois introduire une phrase , un caractère.
Et, dans la phrase, supprimer tous les caractères qui correspondent à la phrase écrite.
Je pensais que le problème venait de mon programme.
Vu qu'on ne doit choisir qu'un seul caractère, j'avais choisi char; mais même en string; le problème ne s'arrange pas.
Voilà le source :
Je vous rassure, ce n'est pas le fameux programme mais même ça, ça ne marche pas...
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 program ascii; uses crt; var phrase:string; caract:char; begin clrscr; writeln('veuillez introduire le caractere:'); read(caract); if length(caract)>1 then begin writeln('impossible'); end else writeln('veuillez introduire votre phrase:'); read(phrase); writeln('voici votre phrase',phrase); repeat until keypressed; end.
Problème : une fois introduit le caractère, il passe directement à la réponse sans que j'aie le temp d'ecrire la phrase.
Et si j'inverse, j'ai le même problème.
Merci d'avance.
Partager