Как найти палиндромы паскаль

│




Deutsch (de) │
English (en) │



suomi (fi) │
français (fr) │

Palindrome

A palindrome is a word, phrase, number, or other sequence of symbols or elements,
whose meaning may be interpreted the same way in either forward or reverse direction

Examples

English

• racecar
• A man, a plan, a canal: Panama
• Madam I’m Adam

Arabic

• مودته تدوم لكل هول * وهل كل مودته تدوم

Armenian

• Արա իմ, առած դրամ՝ քաղաքեքաղաք մարդ ծառա մի արա
• Սերամա՜հ եթե համարես

Finnish

• saippuakivikauppias
• No niin, on aamu. Kehua sinua kai saan, ah, ihana Kristian. Nait Sirkan, ah, ihana asia, kaunis. Au, hekumaa. No niin on.
• No, oikotie vei Tokioon.

Russian

• А роза упала на лапу Азора
• луну дунул
• лак резала зеркал

Function IsPalindome

This function is suitable for both ASCII and UTF-8 encoding.

function IsPalindome(const a_text: string): boolean;
var
  i, j       :longint;
  s1, s2, s3 :string;
begin
  s1 := UTF8LowerCase( a_text );
  j := length( s1 );
  i := 1;
  s2 := '';
  s3 := '';
  while ( i <= j ) do
    begin
      if s1[i] < #$C0 then  // ASCII
        begin
          if (s1[i] >= #$30) and (s1[i] < #$7B)then
            begin
              if (s1[i] > #$60) or (s1[i] < #$3A) then
                begin
                  s2 := s1[i] + s2;
                  s3 := s3 + s1[i];
                end;
              end;
            inc( i );
          end
        else
        begin
          begin
            if s1[i] < #$E0 then  // two byte
              begin
                if ((s1[i] > #$C2) and ( not
                  // Armenian punctuation
                  ((s1[i] = #$D5) and ((s1[i+1] >= #$99) and (s1[i+1] < #$A0)))
                  )) then
                  begin
                    s2 := s1[i]+ s1[i+1] + s2;
                    s3 := s3 + s1[i] + s1[i+1];
                  end;
                inc( i ,2);
              end
            else
              begin
                if s1[i] < #$F0 then  // three byte
                  begin
                    if not (
                      // General punctuation
                      (s1[i] = #$E2) and ((s1[i+1]= #$80)
                      or ((s1[i+1]= #$81) and (s1[i+2]< #$B0)))
                      ) then
                      begin
                        s2 := s1[i]+ s1[i+1] + s1[i+2]+ s2;
                        s3 := s3 + s1[i] + s1[i+1] + s1[i+2];
                      end;
                    inc( i ,3);
                  end
                else
                  begin
                    s2 := s1[i]+ s1[i+1] + s1[i+2]+ s1[i+3] + s2;
                    s3 := s3 + s1[i] + s1[i+1] + s1[i+2] + s1[i+3];
                    inc( i ,4);
                  end
              end;
          end;
        end;
    end;
  if s2 <> '' then result := s2=s3 else result := false;
end;

while not eof(f) do //пока не конец файла
      begin
      readln(f,s);//читаем строки
      b:=true;//считаем что палиндром
      d:=length(s); //длина строки
      l:=d div 2;//середина строки
           for i:=1 to l do //смотрим символы первой половины
               if s[i]<>s[d+1-i] then b:=false;//если не совпадают с символом
                                               //симметричным от конца, меняем флаг
               if b=true then//если все совпадают
               begin
                    writeln (s,' palindrom'); //выводим да на экран
                    writeln(f1,s,' palindrom'); //и в файл
               end
               else //если нет, выводим нет
               begin
                    writeln(f1,s,' ne palindrom');
                    writeln(s,' ne palindrom');
               end;
      end;

Сегодня мы рассмотрим еще одну стандартную олимпиадную (уровня районной олимпиады) задачу: проверить, является ли НЕЧТО палиндромом.

Во-первых: что такое палиндром. Палиндром — это запись, которая одинаково читается слева направо и справа налево. Например, число 12321 можно считать палиндромом. Как и слово кабак. А бывают целые фразы — палиндромы: Аргентина манит негра; А роза упала на лапу Азора… Встречаются стихи — палиндромы и даже рассказы — палиндромы. О романах-палиндромах лично я не слышала, но я верю в людей.

Во-вторых: почему НЕЧТО. Потому, что в зависимости от того, исследуем мы на палиндромность число, слово или фразу — задача может быть решена по-разному. Давайте рассмотрим все варианты решений.

Итак, вариант 1.

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


Идея решения: вводим число a — то, которое будем проверять. Потом, используя цикл While — «пока» с помощью двух меняющихся в ходе выполнения цикла переменных b и c делаем следующую операцию: «откусываем» последнюю цифру от  a и запоминаем её как временное значение c. На следующем витке цикла мы умножаем полученное ранее  c на 10, и прибавляем следующую цифру… И так, пока не получим конечное число c,  которое по сути является числом a, записанным задом наперед.

Затем мы сравниваем a и c, и, если числа равны, выводим сообщение о том, что число — палиндром, или о том, что не палиндром, в противном случае.

Перед вами результат работы программы, реализовавшей эту идею решения:

Введите целое положительное число a=123456


c=6 b=12345


c=65 b=1234


c=654 b=123


c=6543 b=12


c=65432 b=1


c=654321 b=0


654321


Не палиндром


Понятен ли вам принцип? Возникает вопрос, как «откусить» цифру. Тут нам помогут функции div и  mod, о которых вы можете прочесть в Словарике. Коротко:

19:5=3 (остаток 4)

19 div 5 = 3

19 mod 5=4

Попробуйте решить задачу сами. Если не получится — смотрите в Решения к уроку 9.

Рассмотрим 2 вариант этой задачи. 

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

Тут в решении будет несколько интересных и новых моментов, так что я объясню прямо по ходу программы. Решение без комментариев вы можете увидеть в  Решения к уроку 9.

Итак:

Program pal_2;

Var

s: string;  — заводим переменную, в которой запомним наше слово.

i,f: byte; — две технических переменных: счетчик и «переключатель» «ДА» — «НЕТ»

begin 

write(‘String: ‘);  — запросили слово

 readln(s);            — запомнили слово

   f := 0;                   — обнулили переключатель 

for i := 1 to length(s) div 2 do  — ДЛЯ (for) i от 1 до ДЛИНЫ СЛОВА (length(s)) деленного на 2                                                       без остатка (div) ДЕЛАТЬ (do)

if s[i] <> s[length(s)-i+1] then — ЕСЛИ (if) дальше будет изменение в зависимости от номера                                                          шага: 
                                                     на первом шаге ПЕРВАЯ БУКВА (s[i], i=1) не равна                                                                          ПОСЛЕДНЕЙ БУКВЕ (s[длина слова — i, i=1, +1) 
                                                     на втором шаге ВТОРАЯ БУКВА (s[i], i=2) не равна                                                                          ПРЕДПОСЛЕДНЕЙ БУКВЕ (s[длина слова — i, i=2, +1)
                                                     и так до середины слова… 

   begin                                        — делать такой набор действий

writeln(‘No palindrome’);   — написать «Не палиндром»

        f := 1;                                   — присвоить f значение 1

 break                                   — прервать выполнение программы (ну смысл нам проверять                                                               слово до конца, если уже вторая пара букв, скажем, не                                                                    совпала?)

    end;                                            — конец блока действий, если » все плохо»

if f = 0 then write(‘Palindrome’);  — если к концу проверки не совпавших пар не нашлось, f                                                                         осталось равным 0, написать сообщение, что слово —                                                                       палиндром.

Перейти к содержанию