Палиндром

вс, 03/20/2011 - 13:45 — tech

Темы учебника

Строковый тип данных в Паскале

Задача:

Определить, является ли строка палиндромом.

Палиндром – это число, слово или фраза, одинаково читающиеся в обоих направления.

Описание переменных:

s – строка;
f – флаг.

Алгоритм решения задачи:

Брать очередной символ с начала строки и сравнивать его с противоположным.
1. Если символы не равны, то выдать сообщение "не палиндром", изменить значение флага и остановить сравнение.
Если значение флага не было изменено, то выдать сообщение "палиндром".

Программа на языке Паскаль:

var
    s: string;
    i,f: byte;
begin
    write('String: ');
    readln(s);
    f := 0;
    for i := 1 to length(s) div 2 do
        if s[i]  s[length(s)-i+1] then begin
            writeln('No palindrome');
            f := 1;
            break
        end;
    if f = 0 then
        write('Palindrome');
readln
end.

Добавить комментарий

Внутри первого if можно создать второй, где переменным присваиваются сравниваемые буквы, затем вычисляется разность. Если разность равна разности по кодировке между малой и большой буквой, то это одна и таже буква.

ответить

Втр, 12/25/2012 - 09:04 — Гость

if s[i] s[length(s)-i+1]

if s[i] s[length(s)-i+1] then begin
Почему lenght(s)-i+1, строка что из 3 символов состоит?

ответить

пт, 02/22/2013 - 23:32 — Гость

потому что математика...

потому что математика... Допустим у нас строка из 5-ти символов, первыми на надо сравнить 1-й и 5-й элементы, в таком случае і=1, рассчитываем какой элементы будем с ним сравнивать: 5-і+1=5-1+1=5, получаем то что нам нужно.

ответить

Пнд, 04/23/2012 - 12:19 — tech