[Pascal] lire une variable Char ???
watson
-
koukou -
koukou -
Bonjour;
mon problème est de lire une variable char!!! le copilateur ascal ne prends pas en considération le lecture de ce variable!!!
en breif, j'ai déclaré une variable char comme suit:
var C: char;
s:integer;
et puis je dois lire ce variable donc :
write('donnez la valeur de s:');
read(s);
write('entrez votre choix');
read(C);
et apres selon la valeur de la variable "c" je vais exicuter l'une des instriction la 'case";
case c of
'a': write('.......');
'b': write('.....');
'c': write('.............')
else write ('.....');
end;
mais le problème c'est que il me laisse pas saiser la valeur de c même quand j'ai fait un readkey pour arrêter le compilateur et saisir la valeur de c il la prends pas en considération.
merci de m'aider pour dépasser ce problème qui m'embête!!
alors je compte sur vous mes amis comme d'habitude.
watson;
mon problème est de lire une variable char!!! le copilateur ascal ne prends pas en considération le lecture de ce variable!!!
en breif, j'ai déclaré une variable char comme suit:
var C: char;
s:integer;
et puis je dois lire ce variable donc :
write('donnez la valeur de s:');
read(s);
write('entrez votre choix');
read(C);
et apres selon la valeur de la variable "c" je vais exicuter l'une des instriction la 'case";
case c of
'a': write('.......');
'b': write('.....');
'c': write('.............')
else write ('.....');
end;
mais le problème c'est que il me laisse pas saiser la valeur de c même quand j'ai fait un readkey pour arrêter le compilateur et saisir la valeur de c il la prends pas en considération.
merci de m'aider pour dépasser ce problème qui m'embête!!
alors je compte sur vous mes amis comme d'habitude.
watson;
A voir également:
- [Pascal] lire une variable Char ???
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Turbo pascal - Télécharger - Édition & Programmation
- Lire epub - Guide
- My pascal - Télécharger - Édition & Programmation
- Lire fichier bin - Guide
3 réponses
Program ... ;
uses wincrt ;
var C: char;
s:integer;
begin
write('donnez la valeur de s:');
read(s);
write('entrez votre choix');
readln(C);
case c of
'a': write('......');
'b': write('......');
'c': write('.........');
else write ('........');
end;
end.
Read(c)=== change it with ===> readln(c)
Hope that's right ...
uses wincrt ;
var C: char;
s:integer;
begin
write('donnez la valeur de s:');
read(s);
write('entrez votre choix');
readln(C);
case c of
'a': write('......');
'b': write('......');
'c': write('.........');
else write ('........');
end;
end.
Read(c)=== change it with ===> readln(c)
Hope that's right ...