Localize file www.TrSek.com/zadania/samohlas.pas{ SAMOHLAS.PAS }
{ Program nahradi vsetky samohlasky v slove pismenom a. }
{ }
{ Author: Juraj Pupak }
{ Date : 27.10.2006 http://www.trsek.com }
program Samohlasky;
uses crt;
var
Cstr_slovo : string;
index : integer;
Cstr_1,Cstr_2 : string;
dlzka_slova : integer;
slovo : string;
begin
clrscr;
writeln('Program nahradi vsetky samohlasky v slove pismenom a.');
writeln('-----------------------------------------------------');
write('Zadaj slovo : ');
readln(Cstr_slovo);
dlzka_slova := length(Cstr_slovo);
For index := 1 To dlzka_slova Do
begin
Cstr_1 := Cstr_slovo[index];
IF (Cstr_1 = 'i') or (Cstr_1 = 'o') or (Cstr_1 = 'u') or (Cstr_1 = 'e') THEN
begin
Cstr_2 := Cstr_2 + 'a';
end else
begin
Cstr_2 := Cstr_2 + Cstr_1;
end;
end;
writeln(' zmenene : ',Cstr_2);
readln;
end.