[Débutant] Problème de lecture au clavier
Bonjour à tous,
Je débute totalement en prog est j'essaies d'apprendre avec des tutos sur le net, ce qui m'a amené à vouloir réaliser un petit programme pour amuser mes enfants, mais voilà quelque chose ne fonctionne pas bien et je n' arrive pas à résoudre le problème. Je n'attends pas forcément une réponse toute faite mais au moins des avis pour savoir si la structure de mon prog est bonne et si il y a une autre manière de faire plus simple ou plus correcte. Merci par avance pour vos commentaires... tout seul ca n'est vraiment pas évident de débuter surtout quand ca n' est pas forcément son domaine de prédilection :) .
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
| progran qui_es_tu ;
uses crt ;
var prenom : string ;
reponse : char ;
BEGIN
repeat
clrscr ;
write('entrez votre prénom :') ;
readln(prenom) ;
if prenom = 'marc'
then
begin
write('blablabla') ;
readkey ;
end
else
if prenom = 'julie'
then
begin
write('reblablabla') ;
readkey;
end
else
write('vous etes inconnu de ce programme.') ;
readkey ;
clrscr ;
write('continuez [o,n] ? : ') ;
read(reponse) ;
until reponse = 'n' ;
END. |
Mon problème est que quand je recommence avec 'o' il s'affiche :" entrez votre prénom : vous etes inconnu de ce programme " si j appuie sur entrer pour recommencer ca m'affiche :"entrer votre prenom :" mais là quelque soit le prenom que je tape ca m'affiche :"vous etes inconnu de ce programme"...
J'avoues etre un peu perdu... si quelquun a une idée merci d'avance.
