Напечатать те слова, которые являются симметричными

@кулема · Регистрация: 24.03.2010

Author24 — интернет-сервис помощи студентам

написать программу, включая функцию.
Текст задан строкой var St: string;
Напечатать те слова, которые являются симметричными (казак, шалаш).

@STRATEG · 27.03.2010, 20:54

Сори за неоптимизированный код,но пойдет,работает,захочешь подправишь

Delphi

function Simmetriya(txt:string):Boolean; {функция вернет True если это полиндром}
var i:integer;tmp:string;
begin
  for i:=1 to Length(txt) do tmp:= copy(txt,i,1) + tmp;
  if txt = tmp then Result :=True
  else Result :=False;
  end;
 
function Split(msg:string):string; 
  var
     i:Integer;
     Slova:string;
begin
      while i<>0 do
    begin
    i:=0;
    i:=Pos(' ',msg);
    if i<>0 then
    begin
    if Simmetriya(Copy(msg,1,i-1)) then Slova := Slova + ',' + Copy(msg,1,i-1);
    Delete(msg,1,i);
    end
    else
    if Simmetriya(msg) then Slova := Slova + ',' + msg;
  end;
  Result:=Copy(Slova,2,Length(Slova)-1);
end;

@кулема 0 / 0 / 0 Регистрация: 24.03.2010 Сообщений: 33
		1
	Напечатать те слова, которые являются симметричными 27.03.2010, 20:26. Показов 1368. Ответов 1 Метки нет (Все метки) написать программу, включая функцию. Текст задан строкой var St: string; Напечатать те слова, которые являются симметричными (казак, шалаш). 0

	27.03.2010, 20:54

Напечатать те слова, которые являются симметричными

Решение