Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Арифметический сдвиг вправо на k позиций https://www.cyberforum.ru/ turbo-pascal/ thread2327503.html Арифметический сдвиг вправо на k позиций (k < n) из порядковых чисел. uses Crt; const N = 8; Var A:array of Integer; i, k, j: Integer; begin ClrScr; writeln(‘ Исходный массив:’); for i:= 1 to N do begin A:= I;	Определение истинности выражения (x=7) or (x=5) Turbo Pascal Составить алгоритм и программу 2. Определение истинности выражения (x=7) or (x=5)
Turbo Pascal Вывод значения суммы всех четных элементов последовательности 10 чисел Составить алгоритм и программу 1.Вывод значения суммы всех четных элементов последовательности 10 чисел; https://www.cyberforum.ru/ turbo-pascal/ thread2327476.html	Turbo Pascal Многозадачность в DOS https://www.cyberforum.ru/ turbo-pascal/ thread2327323.html Хочу написать что-то типа надстройки на DOS, но как-то неудобно, что там одновременно может выполняться ток одна программа. :( Можно как-то сделать многозадачность в MS-DOS?
Произведение двух матриц с комплексными коэффициентами, представленными в показательной форме записи Turbo Pascal Помогите написать программу, выполняющую произведение двух матриц с комплексными коэффициентами, представленными в показательной форме записи?	Turbo Pascal Нужно записать лог bat-ника в переменную через программу в Pascal https://www.cyberforum.ru/ turbo-pascal/ thread2327021.html Добрый день, появилась задача запустить bat файл и записать логи из него, конкретно результат "systeminfo" в переменную x begin var pinfo := new ProcessStartInfo('cmd.exe', '/c "1.bat"'); pinfo.CreateNoWindow := true; pinfo.UseShellExecute := false; pinfo.RedirectStandardOutput := true; var proc := Process.Start(pinfo); proc.OutputDataReceived += x;
Turbo Pascal Дан фрагмент программы https://www.cyberforum.ru/ turbo-pascal/ thread2326851.html Дан фрагмент программы Const n=5; Type Страна=(Россия,США, Франция, Германия, Китай, Гондурас) Персона=Record ФИО: string ; Родина: страна; Проживает: страна; End;	Типизированный файл содержит информацию Turbo Pascal Типизированный файл содержит информацию о файлах: имя файла, размер, дату создания. Создать текстовый файл-отчёт, содержащий список всех файлов с расширением «txt”, упорядоченный по имени. В качестве вспомогательной структуры данных использовать линейный список.
Turbo Pascal Сколькими способами можно покрасить некоторые шарики в желтый цвет (при соблюдении определенного условия)? https://www.cyberforum.ru/ turbo-pascal/ thread2326621.html Зеник и Маричка любят искать халяву. Вот она. В Зеника есть N синих шариков, на i-том шарике записано число Ai. Зенику интересно сколькома способами он сможет покрасить некоторые шарики в желтый цвет так, чтобы все числа, записаные на желтых шариках, были строго меньше за числа на синих шариках. Учтите, что Зеник должен покрасить хотя бы один шарик в желтый цвет(но все шарики он покрасить...	Turbo Pascal Pascal. Нужно сравнить 100 чисел https://www.cyberforum.ru/ turbo-pascal/ thread2326511.html Пытался создать программу по сравнению 100 чисел, но в итоге сравнивал не само число а его порядковый номер.
Turbo Pascal Вычислить с точностью Eps. Вычислить с точностью Eps - приближенное значения функции (е^x-e^(-x))/2 по формуле: S = x + (x^3/3!)+(x^5/5!)+... , используя формулу для вычисления члена ряда, - точное значение функции (е^x-e^(-x))/2, - абсолютную и относительную ошибки приближенного значения.	Turbo Pascal Поможет или нет? https://www.cyberforum.ru/ turbo-pascal/ thread2326365.html К Тойлет-мену очень часто обращаются за помощью разные люди. Но могучий гигант всем помочь не сможет. Именно потому, когда ему приходит какое-то SMS он согласится помочь тогда, когда найдется хотя бы K вхождений строки 'TOILET', КОТОРЫЕ НЕ ПЕРЕСЕКАЮТСЯ. За введеным сообщением S, выведите 'YES', если Тойлет-мен согласится помочь, если это не так - выведите 'NO'. Входные данные В первой строке...

Petro29

198 / 10 / 3

Регистрация: 30.04.2016

Сообщений: 733

Палиндром - Turbo Pascal - Ответ 12933781

30.09.2018, 10:58. Показов 3412. Ответов 5

Метки (Все метки)

Author24 — интернет-сервис помощи студентам

Ввести четырёхзначное целое число и определить,
является ли оно "палиндромом" или "перевёртышем" (такими, например, являются числа 6666 и 3223).
(Подсказка: для выделения отдельных разрядов числа используются операции div и mod)

Pascal

uses Crt;
var A, B, C, D, i: integer;
begin
ClrScr;
writeln(' Ввести число из 4-х цифр: ');
    for i:= 1 to 3 do begin
       readln(A, B, C, D);
if (A = B) and (B = C) And (C = D) and (D = A) then
writeln (' Введённые цифры – палиандром')
      else
if (A = D) and (B = C) then
writeln (' Введённые цифры – перевёртыш')
      else
write (' Это 4-хзначное число');
     end;
  readln
end.

На выходе имеем:

Pascal

 Ввести число из 4-х цифр:
7  7  7  7
    Введённые цифры – палиандром
4  5  5  4
    Введённые цифры – перевёртыш
5  6  8  7
     Это 4-хзначное число

1. Правильно ли я изобразил "Полиандром" и "Перевёртыш"?
2. Что это за подсказка про "разряды чисел" с использованием
div и mod? И как же их использовать?
Вот ваш ответ:

Pascal

uses Crt;
var a: integer;
begin
ClrScr;
   Read(a);
 writeln((a div 1000 mod 10=a mod 10) and (a div 100 mod  10=a  div 10 mod  10))
  readln
end.

Программа запустилась и пусто. Что дальше? Ввёл строку для ввода
числа "а", а какое это "а" : 10, 100 или 1000 или любое другое число.
Короче программа ничего не приняла.

Вернуться к обсуждению:
Палиндром Turbo Pascal

Следующий ответ

Заказать работу у эксперта

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

30.09.2018, 10:58

Готовые ответы и решения:

Палиндром
Для заданного натурального числа написать новое число теми же цифрами, взятыми наоборот (пример...

Рекурсия. Палиндром
Написать рекурсивную программу, которая проверяет является ли заданная строка символов палиндромом...

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

Программа Палиндром
Необходимо написать программу которая проверит, если слово является палиндром. При этом необходимо...

	30.09.2018, 10:58

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

30.09.2018, 10:58

Помогаю со студенческими работами здесь

Палиндром (перевёртыш)
Написать функцию, определяющую, является ли введенная пользователем строка - ПОЛИНДРОМОМ...

Палиндром в тексте
Программа работает,выделяет слова и каждое слово сравнивает функцией палиндрома,если выделенное...

Составить палиндром
Про вводимую строку с клавиатуры известно, что каждый её символ содержится в ней нечётное число...

Определение строки на палиндром
Написать программу определения, является заданная строка (фраза) палиндромом. (Палиндромом...

Новые блоги и статьи
В чем разница между px, in, mm, pt, dip, dp, sp InfoMaster 20.01.2025 В мире цифрового дизайна и разработки интерфейсов правильный выбор единиц измерения играет ключевую роль в создании качественного пользовательского опыта. История развития систем измерений для. . .	Как изменить адрес удалённого репозитория (origin) в Git InfoMaster 20.01.2025 В терминологии Git термин origin является стандартным именем для основного удаленного репозитория, с которым взаимодействует локальная копия проекта. Когда разработчик клонирует репозиторий с. . .	Как переместить последние коммиты в новую ветку (branch) в Git InfoMaster 20.01.2025 При работе над проектом часто возникают ситуации, когда необходимо изолировать определенные изменения от основной линии разработки. Это может быть связано с экспериментальными функциями, исправлением. . .	Как вернуть результат из асинхронной функции в JavaScript InfoMaster 20.01.2025 Асинхронное программирование представляет собой фундаментальную концепцию в JavaScript, которая позволяет выполнять длительные операции без блокировки основного потока выполнения программы. В. . .	Какой локальный веб-сервер выбрать InfoMaster 19.01.2025 В современной веб-разработке локальные веб-серверы играют ключевую роль, предоставляя разработчикам надежную среду для создания, тестирования и отладки веб-приложений без необходимости использования. . .	Почему планшеты и iPad уже не так популярны, как раньше InfoMaster 19.01.2025 Эра революционных инноваций История планшетных компьютеров началась задолго до того, как эти устройства стали привычными спутниками нашей повседневной жизни. В начале 1990-х годов появились первые. . .
Как самому прошить BIOS ноутбука InfoMaster 19.01.2025 BIOS (Basic Input/ Output System) представляет собой важнейший компонент любого компьютера или ноутбука, который обеспечивает базовое взаимодействие между аппаратным и программным обеспечением. . .	Какой Linux выбрать для домашнего компьютера InfoMaster 19.01.2025 Современные реалии выбора операционной системы В современном мире выбор операционной системы для домашнего компьютера становится все более важным решением, которое может существенно повлиять на. . .	Как объединить два словаря одним выражением в Python InfoMaster 19.01.2025 В мире программирования на Python работа со словарями является неотъемлемой частью разработки. Словари представляют собой мощный инструмент для хранения и обработки данных в формате "ключ-значение". . . .	Как без исключения проверить существование файла в Python InfoMaster 19.01.2025 При разработке программного обеспечения на Python часто возникает необходимость проверить существование файла перед выполнением операций с ним. Это критически важная задача, которая помогает избежать. . .	Как определить, содержит ли строка подстроку в JavaScript InfoMaster 19.01.2025 При разработке веб-приложений часто возникает необходимость выполнять различные операции со строками, среди которых особое место занимает поиск подстрок. JavaScript предоставляет несколько встроенных. . .	Что такое метаклассы в Python InfoMaster 19.01.2025 Метаклассы в Python представляют собой один из самых мощных и одновременно сложных механизмов языка, позволяющий программистам контролировать процесс создания классов. По своей сути, метакласс. . .

Наверх