Найти в Дзене

Палиндром в Pascal. Как его найти?

В этой публикации мы разберем программу, которая определяет, является ли число, введенное пользователем палиндромом.
Палиндром - это число, слово, текст, которые читаются одинаково в обоих направлениях.
Оглавление

Добрый день, товарищи!

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

Палиндром - это число, слово, текст, которые читаются одинаково в обоих направлениях. Вот пару примеров:

  • 1221
  • Шалаш
  • Топот
  • А роза упала на лапу Азора
  • 404

Сегодняшняя программа будет находить числа - палиндромы. Разумеется, программу можно модифицировать под то, чтобы она находила так же и слова и даже текст, но это уже усложненные модификации.

В конце будет ссылка на скачивание кода программы.

Поэтому поехали!

1. Типы данных

Определим типы данных
Определим типы данных

В этой программе возьмем тип longint вместо обычного integer. Сделано это по причине того, что пользователь может ввести палиндром, состоящий из очень большого числа цифр.

Num - наше введенное число

A, B, C - вспомогательные переменные для определения, относится ли число к палиндромам.

2) Организуем ввод

Здесь пользователь будет вводить число
Здесь пользователь будет вводить число

Так же задаем начальные значения для трех вспомогательных переменных.

3) Цикл, который будет находить палиндром

Цикл While
Цикл While

Этим благим делом будет заниматься цикл While. Здесь мы просто сравниваем первую цифру с последней, потом отсекая ее от числа - и по кругу.

4) Финальный вердикт программы

Обычное условие if
Обычное условие if

Завершаем мы нашу программу простым условием If. Если, в итоге, переменная С будет равна Num, то число является палиндромом. Иначе - нет. Давайте проверим это в тестах.

5) Тест программы

Как видим, программа работает правильно с разными наборами данных, и находит число-палиндром.

Полный код программы выглядит так:

-7

6) Заключение

Спасибо, что прочитали эту статью. Надеюсь, ока оказалась вам полезной.

В заключении даю вам ссылку на скачивание этого кода с Яндекс.Диска:

Скачать программу с Яндекс.Диска

-8

Данный человек всегда открыт для обсуждения контента и общения с подписчиками, если найдутся какие либо вопросы то я обязательно постараюсь ответить на них.

По возможности я попросил бы подписаться и оценить публикацию. Сейчас это критически важно для развития канала. Так то!

Доброго вам всем здоровьица в эти трудные времена!