слова с одинаковым началом и концом

[shelest]

дана строка состоящая из слов, вывести на печать слова которые начинаются и заканчиваются на одну и ту же букву

type
str50=string[50];
var
i,n,l,k:byte;
 s:str50; s1:str50;
begin
readln(s);
k:=0;
for i:=1 to length(s) do
begin
if ((s[i]<>' ') and (s[i-1]=' ') or ((i=1) and (s[1]<>' '))) then
inc(k); //считает слова
for n:=1 to k do
begin
if s[i]<>' ' then
if s[1]=s[length(s)] then




writeln(s);

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

[RUSt88]

с алгоритмом помогу

началом слова служит любая буква, т.е. сравниваем первый элемент строки на вхождение в массив букв, если это так, то присваиваем переменной напр B = 1 (т.е. щас начинается слово)
так например
case m[i]
'а'..'я': запоминаем первый элемент в переменную C типа char (не каждый раз, а только если B = 1, т.е. если начинается буква) здесь если B= 0 делаем B = 1
#32: это пробел (также надо предусмотреть точки, запятые и .п.), т.е. окончание слова, сравниваем последнюю букву слова с тем, что мы запомнили if m[i - 1] = C то говорим, что слово начинается и заканчивается с одной буквы, здесь делаем B = 0

ну эт так пример, его обмозговать хорошо и получится всё

не хочешь обмозговывать, пиши мне на мэйл, за 50 руб договоримся

[Лубышев]

Ладно сегодня я добрый
на паскале так:

var s:string;{глобальная переменная сюда вносим строку}

function Space(ch:char):boolean;{проверка на разделители}
const s=[' ', ',', '.', ':', ';', '!', '?', '"','	'];{резделяющие символы}
begin
  if ch in s then Space:=true else Space:=false;
end;

procedure words(s:string);{основная рабочая лошадка}
var i:integer;{счетчик символов}
slovo:string;{веделяемое в данный момент слово}
begin
  for i:=1 to length(s) do
  begin
    if Space(s[i])=false then slovo:=slovo+s[i]
    else
    begin
    {если первый и последний равны то выводим}
    if slovo[1]=slovo[length(slovo)] then writeln(slovo);
    slovo:='';{не забываем обнулить}
    end;
    {учитываем последнее слово тоже}
    if i=length(s) then if slovo[1]=slovo[length(slovo)] then writeln(slovo);
  end;

end;
begin{код программы в котором применяем функцию}
readln(s);{вводим строчку}
words(s);{анализируем ее и выводим на экран то что нужно}
readln;{ожидаем ответа пользователя}
end.

надеюсь хотяб спасибо скажешь. (отзыв)