Program pascal chaine.

Fermé
amiral18 Messages postés 2 Date d'inscription mardi 19 mai 2009 Statut Membre Dernière intervention 19 mai 2009 - 19 mai 2009 à 21:51
Bonjour,
le but du program est de saisir une chaine(ch) puis de l'afficher dans une autre(res) de façon ke les consonnes majuscules sont suivies par les voyelles majuscules puis les consonnes minuscules et enfin les voyelles minuscules .eske kelkun peut me dire pourquoi ce program ne marche pas?
program bac;
uses wincrt;
var ch,res:string;
procedure trait(ch:string;var res :string);
var i,j:integer;
begin
j:=1;
for i:=1 to length(ch) do
begin
if (ch[i] in['Z','R','T','P','Q','S','D','F','G','H','J','K','L','M','W','C','V','B','N']) then
begin
res[j]:=ch[i];
j:=j+1;
end;
end;
for i:=1 to length(ch) do
begin
if (ch[i] in['A','E','Y','U','I','O']) then
begin
res[j]:=ch[i];
j:=j+1;
end;
end;
for i:=1 to length(ch) do
begin
if (ch[i]in['z','r','t','p','q','s','d','f','g','h','j','k','l','m','w','x','c','v','b','n'])
then
begin
res[j]:=ch[i];
j:=j+1;
end;
end;
for i:=1 to length(ch) do
begin
if (ch[i]in['a','e','y','u','i','o'])
then
begin
res[j]:=ch[i];
j:=j+1;
end;
end;
end;
begin
writeln('entrer ch');
readln(ch);
trait(ch,res);
writeln(res);
end.


Merci infinement
A voir également: