Pascal: Проверь себя (решенные задачи, логический тип, pascal max и min)

Решенные задачи по Паскалю: логический тип Boolean

Тип boolean в Паскале

Примеры программ на Паскале с использованием логического типа Boolean

Boolean 1: Дано целое положительное число. Проверить истинность высказывания: «Данное число является четным двузначным».

Boolean 2: Дано целое положительное число. Проверить истинность высказывания: «Данное число является нечетным трехзначным».

Boolean 3: Дано трехзначное число. Проверить истинность высказывания: «Все цифры данного числа различны».

Boolean 4: Дано трехзначное число. Проверить истинность высказывания: «Цифры данного числа образуют возрастающую последовательность».

Boolean 5: Даны координаты поля шахматной доски x, y (целые числа, лежащие в диапазоне 1–8). Учитывая, что левое нижнее поле доски (1, 1) является черным, проверить истинность высказывания: «Данное поле является белым».

Boolean 6: Даны координаты двух различных полей шахматной доски x1, y1, x2, y2 (целые числа, лежащие в диапазоне 1–8). Проверить истинность высказывания: «Король за один ход может перейти с одного поля на другое».

В Pascal max и min

Проверьте свои знания в решении задач поиска максимального и минимального элементов заданного числового ряда.

Pascal max 1: Дано целое число N и набор из N прямоугольников, заданных своими сторонами — парами чисел (a,b). Найти минимальную площадь прямоугольника из данного набора. (Не использовать массивы)

* Из задачника М. Э. Абрамян (Minmax2)

Pascal max 2: Дано целое число N и набор из N пар чисел (m,v) — данные о массе m и объеме v деталей, изготовленных из различных материалов. Вывести номер детали, изготовленной из материала максимальной плотности, а также величину этой максимальной плотности. Плотность P вычисляется по формуле P=m/v.

* Из задачника М. Э. Абрамян (Minmax5)

Pascal max 3: Дано целое число N и набор из N целых чисел. Найти номера первого минимального и последнего максимального элемента из данного набора и вывести их в указанном порядке.

* Из задачника М. Э. Абрамян (Minmax6)