задача со словами,оканчивающимися на -онок,-енок

[Милено4ка]

Народ,помоги решить задачку,никак не могу додумать как сделать задачку.....


дан текстовый файл,в нем написаны слова,оканчивающиеся на -онок,-енок, например, утенок, котенок. нужно получить файл,с этими словами во множественном числе на - ата,-ята. (утята,котята) помогите,пожалста,не дойдет до меня как делать.....всем огромное пасибки

да,забыла сказать,задача на паскале....

[vitalik007]

cчас сделаю.ЖДИ!
и в асю обратись

[А. Долматов]

находишь в файле слова утята, функция POS. Затем копируешь часть этого слова в новый файл, добавляешь нужное окончание. Опять таки сравниваешь какое из условия if okon='ята' then slovo:='ут'+'енок' else 'кот'+'енок'

[-=<[Evklidd]>=-]

Что конкретно не можете додумать? Алгоритм такой:
1) считываем очередную строчку из файла
2) выделяем из нее слова и записываем их в массив типа string
3) преобразуем полученные слова с помощью функций Delete и Insert
4) выводим строковый массив с измененными словами в тесктовый файл
Попытайтесь его реализовать, что-то будет не понятно - спрашивайте

[Милено4ка]

вот что у меня получилось......

Program menu;
uses CRT, m_sd, m_tip;
var n:integer; f, t:text; {sl:array [1..10] of integer;}
sl, s:string; i:integer;
begin
clrscr;
writeln ('бЇЁб®Є б«®ў:'); writeln;
assign (f,'prav.txt'); reset (f);
while not eof (f) do
begin readln (f,s); writeln (s);

n:=length(s);
if copy(s,n-3,4)=['¦','и','й'] then begin
sl:=copy (s,n-3,4)+'*в*';
delete(s,n-3,4);
s:=s+copy(s,n-3,4)+'*в*' ;
if copy(s,n-3,4)=[] then
sl:=copy (s,n-3,4)+'пв*';
delete(s,n-3,4);
s:=s+copy(s,n-3,4)+'пв*'; end;


writeln ('¬*®¦Ґб⢥**®Ґ зЁб«®:'); writeln;
writeln(s); readln;end;
writeln;
{readln;}

{n:=length(s);
sl:=copy (s,n-3,4)+'*в*';
delete(s,n-3,4);
s:=s+copy(s,n-3,4)+'*в*';
writeln ('¬*®¦Ґб⢥**®Ґ зЁб«®:'); writeln;
writeln(s); readln;}
end.




но этот вариант что-то не идет...

[Милено4ка]

вот что у меня получилось......

Program menu;
uses CRT, m_sd, m_tip;
var n:integer; f, t:text; {sl:array [1..10] of integer;}
sl, s:string; i:integer;
begin
clrscr;
writeln ('бЇЁб®Є б«®ў:'); writeln;
assign (f,'prav.txt'); reset (f);
while not eof (f) do
begin readln (f,s); writeln (s);

n:=length(s);
if copy(s,n-3,4)=['¦','и','й'] then begin
sl:=copy (s,n-3,4)+'*в*';
delete(s,n-3,4);
s:=s+copy(s,n-3,4)+'*в*' ;
if copy(s,n-3,4)=[] then
sl:=copy (s,n-3,4)+'пв*';
delete(s,n-3,4);
s:=s+copy(s,n-3,4)+'пв*'; end;


writeln ('¬*®¦Ґб⢥**®Ґ зЁб«®:'); writeln;
writeln(s); readln;end;
writeln;
{readln;}

{n:=length(s);
sl:=copy (s,n-3,4)+'*в*';
delete(s,n-3,4);
s:=s+copy(s,n-3,4)+'*в*';
writeln ('¬*®¦Ґб⢥**®Ґ зЁб«®:'); writeln;
writeln(s); readln;}
end.




но этот вариант что-то не идет...