Прикиньте)) во все офигенно,но почему то ... прога выдает неправильный результат...(( вот код
Код:
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% ошибка в функции...ну я уже блин че тока не попробовал... все время чет не так...