Условие задачи:
Разработать функцию Add(const S1,S2:string):string, дописывающую все гласные латинские буквы из строки S1 в конец S2 и выдающей получившуюся строку в качестве результата. С помощью данной функции в каждую строку из введенного набора дописать все гласные латинские буквы из предыдущей строки. Гласными считаются следующие буквы: aeiouyAEIOUY.
Вход
В первой строке входа дано количество строк N. Затем следуют N строк, по одной в каждой строке.
Выход
На выход напечатать строки результата, по одной в каждой строке.
Пример
Вход:
3
abc
abd
as
Выход:
abc
abda
asa
Вот мой код...
function Add(S1, S2:string):string;
var i:integer;
begin
for i:=Length(S1) downto 1 do
begin
if (S1[i]='A') or (S1[i]='E') or (S1[i]='I') or (S1[i]='U') or
(S1[i]='O') or (S1[i]='Y') or (S1[i]='a') or (S1[i]='e') or
(S1[i]='u') or (S1[i]='o') or (S1[i]='y') then Insert(S1[i],S2,Length(S2)+1);
end;
Result:=S2;
end;
var
S1,S2:string;
N,i:integer;
Mas: array [1..100] of string;
begin
Write('');
ReadLn(N);
for i:=1 to N do
begin
Write('');
ReadLn(Mas[i]);
end;
for i:=1 to N-1 do
begin
S1:=Mas[i];
S2:=Mas[i+1];
S2:=Add(S1,S2);
WriteLn(S2);
ReadLn;
end;
end.
Что-то у меня на выходе не то получается... ;(( Help !
Сообщение отредактировано: мисс_граффити -