Для заданных трех строк S1, S2 и S3 определить, какая из них является палиндромом

[megas666]

Для заданных трех строк S1, S2 и S3 определить, какая из них является палиндромом. Назовем строку палиндромом, если его запись читается одинаково с начала и с конца (как, например, ‘казак’, ‘алла’, ‘fffjjjfff’). Указание: определить булевскую функцию f(s) для проверки, является ли строка s палиндромом. Результатом должен быть ответ «да» или «нет».


(Помогите решить в паскале)

[Plague]

Вот вам функция с самым простым алгоритмом

function f(s:string):boolean;
var i:integer;
    x:string;
begin
  x:='';
  for i:=1 to length(s) do
  x:=s[i]+x;
  f:=x=s;
end;

[digitalis]

Проще надо ....

function f(s:string):boolean;
var i,l:integer;
begin
  f:=True;
  l := length(s) ;
  for i:=1 to (l div 2) do
      if s[i] <> s[l-i+1] then
	begin
		f := False ; Break
	end ;
end;

[megas666]

Добрый день! это и есть все решение?

[Aleksandr H.]

Нет. Ето помощь, о которой Вы просили, а не решение

[megas666]

А можно решение, я в этом совсем не разбираюсь..

[digitalis]

Прикрутить ввод-вывод к готовой подпрограмме - проблема ? Тогда - в мукомольный техникум. Если уж "совсем не разбираюсь.."

[newerow1989]

function f(s:string):boolean;
var i:integer;
    x:string;
begin
  x:='';
  for i:=1 to length(s) do
     x:=s[i]+x;
  Result:=x=s;
  Write(s,' - ');
  If Result then
     Writeln('palindrom') else
     Writeln('NO palindrom');
end;

var s1,s2,s3:string;
begin
   Write('s1 = '); Readln(s1);
   Write('s2 = '); Readln(s2);
   Write('s3 = '); Readln(s3);
   f(s1);
   f(s2);
   f(s3);
   Readln;
end.

[Аватар]

function f(s:string):boolean;
var i,k:integer;
begin
  k:=length(s);
  Result:=True;
  for i:=1 to k div 2 do begin
    Result:=s[i]=s[k-i+1];
    if not Result then Break;
  end;
  Write(s,' - ');
  If Result then 
     Writeln('palindrom') else
     Writeln('NO palindrom');
end;