|
program exo2;
var
i, s: integer;
chaine: string[255];
begin
writeln('Think Different !!! ( www.Software-DS.com )');
writeln('Entrer une chaine de caractere (max:255)');
readln(chaine);
s := 0;
for i := 1 to length(chaine) do
begin
if chaine[i] = 'a' then
write('A')
else if chaine[i] = 'e' then
write('E')
else if chaine[i] = 'u' then
write('U')
else if chaine[i] = 'i' then
write('I')
else if chaine[i] = 'o' then
write('O')
else if chaine[i] = 'y' then
write('Y')
else if chaine[i] = 'c' then
begin
if (i + 1) < length(chaine) then
begin
if chaine[i + 1] = 'h' then
begin
write('g');
i := i + 1;
end
else
write('c');
end
else
write('c');
end
else if chaine[i] <> 's' then
write(chaine[i])
else
s := s + 1;
end; { fin de la
boucle for }
writeln;
writeln('il y a eu ', s : 0, ' suppressions de s');
writeln;
writeln('©2001 All Rights Reserved to
www.Software-DS.com');
{ ©2001 All
Rights Reserved to http://www.Software-DS.com
16/10/01 }
end.
|
