| Код |
program polindrome;
function IsPalindrome(const s : string) : boolean;
var
i, j : integer;
begin
i := 1;
j := length(s);
IsPalindrome := false;
repeat
if s[i] <> s[j] then
exit;
inc(i);
dec(j)
until i > j;
IsPalindrome := true;
end;
var
s : string;
begin
write('Enter string: ');
readln(s);
if IsPalindrome(s) then
writeln('Word ' + s + ' - palindrome')
else
writeln('Word ' + s + ' - not palindrome');
readln;
end.
|
Поясняю:
| Код |
function IsPalindrome(const s : string) : boolean;
|
Функция которая будет проверять является ли слово полиндромом или нет.
Теперь, что происходит внутри этой функции:
| Код |
i := 1;
j := length(s);
|
Присваиваем переменной i единицу, а переменной j - длину переданной в функцию строки.
| Код |
IsPalindrome := false;
|
Присваиваем результату функции false, то есть слово палиндромом не является.
Теперь запускаем цикл:
| Код |
repeat
if s[i] <> s[j] then
exit;
inc(i);
dec(j)
until i > j;
|
Идем в нем от начала строки до середины и от конца строки тоже до середины.
Например, возьмем слово топот, которое является палиндромом.
В самом начале переменные i, j равны единице и пяти соответственно.
Теперь смотрим что происходит во время цикла:
1. сравниваются буквы топот.
Они одинаковы поэтому мы не выходим из функции возвращая результат о том, что слово не палиндром, а идем дальше:
i = 1.
j = 5.
2. На этом шаге сикла проверяем буквы: топот.
Они тоже равны. Идем дальше.
i = 2.
j = 4.
3. На этом шаге сравниваем букву топот ней же самой. Идем дальше.
i = 3.
j = 3.
4. Условием выхода из цикла является:
Посмотрим же чему у нас равны переменные i и j:
i = 4.
j = 2.
Все. Цикл завершен, слово палиндром.
Спокойно присваиваем результату значение true:
Если бы в функцию поступило слово, в котором какието противоположные буквы не равны, то мы просто вышли бы из цикла и строчка
просто не выполнилась бы, а значит функция вернула бы false что соответствует слову-непалиндрому.
|
