задача по строкам

[D_K_]

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

[Alar]

алгоритм:
1)создаёшь слово-буфер, обнуляешь его.
2)добавляешь побуквенно в слово-буфер, если следующий символ пробел, то добавляешь слово в массив слов. обнуляешь слово-буфер
3)ищешь символ отличный от пробела и начинаешь с пункта 2 и так до точки.
3)прогоняешь через цикл массив полученных слов, сравнивая первую и последнюю букву, вторую и предпоследнюю и т.д. тоже лучше в цикле.
4)если слово семметричное выводишь его в memo, например.

какой из пунктов не понятен? или нужен код?

[D_K_]

лучше код... если не затруднит... спасибо.

[mihali4]

1. Выделяем последнее слово и сохраняем в переменной.
2. Поочередно выделяем слова, создаем их "перевертыши" (если я правильно понял выражение "симметричные слова").
3. Проверяем "перевертыша" и оригинал на совпадение с последним словом. Если нет совпадения - п.4.
4. Осуществляем поиск "перевертыша" в оставшейся части строки.
5. Опять на п.2.

Основной оператор - CompareStrings

Или опять готовый листинг требуется?

[D_K_]

mihali4
Алгоритм я и сам примерно так представлял. Только вот как его оформить в коде - увы. В Дельфях не силен (знаю на уровне начальной школы: циклы, массивы и т.п.), а прога нужна моему знакомому. Поэтому самому сидеть и листать доки, вспоминая правила записи команд некогда. Если можешь - дай готовый листинг.

[Alar]

перевёртыши это что?
deged - перевёртышь? я так понял задачу.

[D_K_]

Ага. Оно же abccba, abbba. Хотя уже самого начали брать сомнения в значении этого термина. Первое слово вроде как симметрично относительно промежутка между буквами сс. А второе - относительно самой буквы, хотя тоже по идее симметрично.
В общем пусть симметричные те, которые читаются одинаково справа налево и слева направо.

[SuperVisor]

И опять под листинг попадаю я...
Я беру за основу то, что пользователь вводит всю эту беду в memo...
На форме - 2 memo, 1 Button.

 
procedure TForm1.Button1Click(Sender: TObject);
var
  i,c: SmallInt;
 LastWord, BufWord, RevWord, s: String;
begin
 memo2.Lines.Clear;
 LastWord:='';
  BufWord:='';
  RevWord:='';
 S:=memo1.Text;
  if s = '' then exit;
  for i:=length(S)-1 downto length(S)-10 do
   if S[i]<>#32 then LastWord:=s[i]+LastWord else Break;
  for i:=1 to Length(s) do
  begin
   if s[i]<>#32 then BufWord:=BufWord+s[i] else
     if BufWord<>'' then
      begin
       for c:=1 to Length(BufWord) do RevWord:=BufWord[c]+RevWord;
        if BufWord=RevWord then memo2.Lines.Add(BufWord);
        BufWord:='';
        revWord:='';
    end;
  end;
end;

[D_K_]

SuperVisor
Благодарю! Только для полного выполнения условия задачи "...и не совпадают с последним словом" следует написать так:

if BufWord=RevWord then if BufWord<>LastWord then memo2.Lines.Add(BufWord);

[SuperVisor]

Странно, вроде-бы писал.. Но это не столь важно, если ты это заметил, а еще лучше немного поправить сторку: из

if BufWord=RevWord then memo2.Lines.Add(BufWord);

в

if (BufWord=RevWord) and (BufWord<>LastWord) then memo2.Lines.Add(BufWord);

Да и вообще он все еще подлежит оптимизации.
Обращайся, если что.