Procedure en pascal...
Résolu
Profil bloqué
-
Profil bloqué -
Profil bloqué -
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 .
A voir également:
- Procedure en pascal...
- Turbo pascal - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Dev pascal - Télécharger - Édition & Programmation
- Procédure de frigo vide ✓ - Forum Consommation & Internet
- Le point d'entree de procedure est introuvable kernel32 dll ✓ - Forum Windows
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....