Procedure en pascal...
Résolu
Bonjour,
je cherche le solution d'une procédure quo saisir une chaine de caractère ch avec long de ch ne dépasse pas 50 et ch contient juste des lettre .
je cherche le solution d'une procédure quo saisir une chaine de caractère ch avec long de ch ne dépasse pas 50 et ch contient juste des lettre .
Configuration: Windows XP Safari 532.0
2 réponses
-
Vraiment merci beaucoup xmaster2216...c'est vraiment ce ça que je cherche...et si possible si tu peu me donne une autre procédure qui permet de trier cette chaine comme ça :
si ch= "afAbzKOiKvMx"
alors elle sera "FKMAObzkvxai"
c'est à dire elle rangera chacun de consonnes et voyelles majuscule et minuscule ...je vous remercie.... -
soit (ch) la chaine a saisir
donc la procedure sera:
procedure saisir_chaine(var ch:string);
var i:integer; test:boolean;
begin
repeat
write('donner une chaine ');
readln(ch);
for i:=1 to length(ch) do
begin
if (ch[i] in ['a'..'z']) or (ch[i] in ['A'..'Z']) then
test:=true
else test:=false;
end;
until (length(ch) <= 50) and (test=true);
end;
j'espere que ça vous aide!!!
