Paster Fob,
я переписал бы так:
Код: Выделить всё
function checkword(const arg: string): boolean;
var i, j: integer;
begin
checkword:=true;
j := (length(arg) + 1) div 2 + 1;
for i := length(arg) div 2 downto 1 do begin
if arg[i]<>arg[j] then begin
checkword:=false; break;
end;
inc(j);
end;
end;
3 отличия:
1) список параметров: переменная arg внутри функции не меняется, поэтому, если компилятор поддерживает const в списке параметров, то нет повода использовать var;
2) в цикле "for i := выражение1 to/downto выражение2 do" выражение1 вычисляется единожды, а выражение2 -- на каждой итерации цикла (если только оптимизатор не умеет выводить его независимость от тела цикла). В данном примере это несущественно, для коротких строк length(s) -- это всего лишь byte(s[0]), но вот операция деления, пусть и целочисленного, намного более ресурсоёмка.
3) в предварительном выполнении inc(j) мало смысла, начальному значению j вне цикла приходится давать значение заведо уменьшенное на 1, а это не способствует лёгкости понимания кода.
Первые 2 замечания -- они скорее из области оптимизации, поэтому сразу оговорьсь, что преждевременная оптимизация зло, если она затрудняет понимание кода. Но это не наш случай.
Добавлено спустя 15 минут 36 секунд:Но мне более нравится другой вариант, вообще без делений и каких бы то ни было расчётов, просто идём навстречу с разных концов слова, сравнивая символы. Если встретились, то палиндром:
Код: Выделить всё
function IsPalindrom(s: string): boolean;
var
i, j: integer;
begin
i := 1; j := length(s);
while (i < j) and (s[i] = s[j]) do begin
inc(i); dec(j);
end;
IsPalindrom := i >= j;
end;
deka47 писал(а):как бы сделать так, чтобы "запоминались" все местоположения?
Например, если речь идёт о показе отличающихся символов:
Код: Выделить всё
procedure ShowPalDiff(const s: string; MarkSame, MarkDiff: char);
var
i, j: integer;
p: boolean;
begin
writeln(s);
j := length(s); p := true;
for i := 1 to length(s) do begin
if s[i] = s[j] then write(MarkSame)
else begin
write(MarkDiff); p := false;
end;
dec(j);
end;
if p then writeln(^M'Это палиндром.', '':length(s)-14)
else begin
writeln; writeln('Это НЕ палиндром.');
end;
end;
var
s: string;
begin
write('Введите слово: '); readln(s);
ShowPalDiff(s, '_', '^');
end.
И прогоны:
Код: Выделить всё
Введите слово: pascal
pascal
^_^^_^
Это НЕ палиндром.
Введите слово: potop
potop
Это палиндром.
