Procedure en pascal...
Résolu/Fermé
A voir également:
- Procedure en pascal...
- Turbo pascal download - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Dev-pascal - Télécharger - Édition & Programmation
- Procédure héritage bara ✓ - Forum Vos droits sur internet
- Procedure de taxe bara ✓ - Forum Matériel & Système
2 réponses
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!!!
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!!!
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....
si ch= "afAbzKOiKvMx"
alors elle sera "FKMAObzkvxai"
c'est à dire elle rangera chacun de consonnes et voyelles majuscule et minuscule ...je vous remercie....