complimento,complimento...sei il mago del C!
cmq io ho fatto così:
function palindr2(i,j:integer): boolean;
begin
palindr2:=true;
if (i>=1) then begin
palindr2(i-1,j+1);
if (stringa[i]<>stringa[j]) then
palindr2:=false;
end;
end;
function palindr1(n:integer): boolean;
var i,j:integer;
begin
if (n mod 2) <> 0 then begin
i:=n div 2;
j:=(n div 2) + 2;
end
else begin
i:=n div 2;
j:=n div 2 + 1;
end;
if (palindr2(i,j)) then
palindr1:=true
else palindr1:=false;
end;
"n" è la lunghezza della parola, la funzione chiamata dal programma è palindr1...
lo so è un po' incasinato però funziona...cionci nn mi sparare!
