[AVaTaPA]

блин завтра экзамен по программированию дельфи

никак не получается составить процедуру нахождения слова заканчивающегося на 2 одинаковые буквы в строке и самого длинного слова

может кто знает ? ops:

буду очеееень благодарен

[Dolphin]

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

[AVaTaPA]

var
st,st1,st2 : shortstring;
stdop,slmax : shortstring;
n,i,kol,nmax:byte;

begin
writeln ('input string st=');
readln (st);
st1:=st;
stdop:=' ';
nmax:=0;
for i:=1 to length(st1)-1 do
if (st[i]<>' ') and (st[i+1]<>'.') then stdop:=stdop+st[i]
else
begin
if length(stdop)>nmax then
begin
nmax:= length(stdop);
slmax:= stdop;
end;
end;
writeln('the longest word', slmax:3);
writeln ('number of letters in this word =',nmax:3);

readln;

end.

это поиск самого длинного слова

а как найти слово с 2мя последн одинаковыми буквами я хз ((

[Imp]

for idx:=1 to length(str)-1 do
if (str[idx] = str[idx+1]) and (str[idx+2] = ' ') then
{слово кончается на 2 одинаковые буквы}

[Dolphin]

опередил)

[AVaTaPA]

а самое длинное слово?

[Peter Green]

перебираешь все слова, сравниваешь каждое с последующим и из пары выбираешь самое длинное и так до конца. Как кубок уефа. Надеюсь, помог ))))