Accueil     Soft. MacOSX     Soft. MacOS/PC     PHP     Python     ROMS GBA     TP d'info     DBZ-GT     Martingales     Galeries     Liens     @  

Exercice 2

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.





Haut de la page - Page précédente - Page générée en 0.00074 sec.
Recherche personnalisée
 

1845019 visiteurs.   ©2001-2023 All Rights Reserved to Software-DS.com
Made with a mac  
Confidentialité