[Burk]

Описать рекурсивную логическую функцию sim(s:string;i,j:integer) проверки на симметричность части строки от i-го до j-го элемента.Ума не приложу как это сделать(( помогите плиз,а то беда((

[guranvir]

А что значит симметричность?

[Asinkrit]

Да, действительно несовсем понятно что имел ввиду автор вопроса, но вот как вариант, единственное решение которое пришло мне на ум)

Код:

function sim(const S:String; const i,j:integer):boolean;
begin
  Result:=(S[i] = S[j]);
  if (Result) and (i < j-1) then Result:=sim(S, i+1,j-1);
end;

[Burk]

Ну я насколько понял дается допустим слово , "информатика" ,задается ..ну пусть от 3 до 8 , т.е. "формат" остается... не симметрично, или взято допустим , "мама" от 1 до 3 , "мам" - симметрично...думаю такая тема... я просто убей не пойму как такую функцию описать ((

[lmikle]

Код:

function IsStrSim(S : String; i, j : Integer) : Boolean;
begin
  Result := S[i] = S[j];
  If j-i > 1 Then Result := Result And IsStrSim(S,i+1,j-1);
end;

ЗЫ. Проверки правильности параметров нету, если надо - сделай сам.

[Asinkrit]

Результат работы и первого и второго из предложенных вариантов - одинаков.

[Burk]

Прикиньте)) во все офигенно,но почему то ... прога выдает неправильный результат...(( вот код

Код:

function sim( s: string; i,j: integer) : boolean ;
begin
result:=s[i]=s[j] ;
if ((j-1 > 1) then result:=result and isstrsim (s,i+1,j-1) ;
end;
procedure TForm1.Button1Click (Sender:TObject) ;
var i,j:integer;s:string; s2:boolean;
begin
s:= Edit1.Text ;
i:= Strtoint (Edit2.Text) ;
j:= Strtoint (Edit3.Text) ;
s2:= sim(s,i,j) ;
if s2 = true then Edit4.Text:= 'sim'
else
Edit4.Text:= 'not sim' ;
end;
end.

Короче абсолютно случайно наткнулся на пример неправильной работы: если ввести "ykcoc" и задать 3-5 ,то почему то результат not sim ... мне сказали что 100% ошибка в функции...ну я уже блин че тока не попробовал... все время чет не так...

[Asinkrit]

Используй функцию что я написал, она работает верно.. проверил..

[lmikle]

Гы, функции одинаковы до безобразия. Скорее всего там одна из 'c' русская, а вторая - английская.