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
- Le point d'entrée de procédure setdefaultdlldirectories introuvable kernel32.dll ✓ - Forum Windows 7
- Le point d'entrée de procédure est introuvable dans la bibliothèque de liens dynamiques ✓ - Forum Windows
- Dev-pascal - Télécharger - Édition & Programmation
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....
