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

[Виталий_Сигов]

Здравствуйте, уважаемые форумчане.
Подскажите, пожалуйста, как из строки из слов, разделенных пробелом, вывести слова, которые начинаются и заканчиваются на одну и ту же букву, и при этом не использовать процедуру или функцию?

[sheka]

считывать строку посимвольно, и если это буква(а не пробел) увеличивать текущее слово(дополнительную переменную) на эту букву, если пробел, то if slovo[1]=slovo[length(slovo)] then вывести слово; и не зависимо от предидущего условия slovo:='';.

Сообщение отредактировано: sheka - 10.10.2009 20:47

[Виталий_Сигов]

А можете код привести ?

[sheka]

могу.

[volvo]

Ну вот тут же практически готовое решение лежит: Разбиение на слова. Все способы. ... Что, неужели так трудно вынести действия из функции в основную часть программы, и убрать все лишнее???

var
  s: string;
  i, back: integer;
begin
  s := 'aga not non stop begin end assa';

  i := 1;
  while i <= length(s) do begin
    while(i <= length(s)) and (s[i] = ' ') do inc(i);
    if i <= length(s) then begin
      back := i;
      while(i<=length(s)) and (s[i] <> ' ') do inc(i);
      if s[back] = s[i - 1] then writeln(copy(s, back, i - back));
    end;
  end;
end.

Ну, получил ты готовый код, и что? Программировать научился? Нет... Тогда ЗАЧЕМ тебе это, если сам думать не хочешь?