Задачи.

Присвоить логической переменной t значение следующего логического выражения:

16. Целое число x чётно и отрицательно.

17. Хотя бы одно из трёх целых чисел x, y, z равно 0.

18. Из двух целых чисел только одно кратно 3.

19. Сумма двух первых цифр четырёхзначного целого числа x равна сумме двух его последних цифр.

20. Цифра 5 входит в десятичную запись целого трёхзначного числа x.

21. Вещественное число x принадлежит отрезку [2, 5].

22. Среди цифр целого трёхзначного числа x есть одинаковые.

23. Четырёхзначное целое число n является палиндромом.

24*. Среди первых трёх цифр из дробной части заданного положительного вещественного числа х есть цифра 0.

Перечислимый тип

Перечислимый тип задаёт упорядоченное множество значений путём перечисления имён, обозначающих эти значения.

Например:

type color = (black, green, yellow, blue, red, white);

var a, b : color;

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

При работе с переменными перечислимого типа можно использовать операторы присваивания, операции отношения, они могут быть параметром цикла for. Так как перечислимый тип является порядковым типом, то к переменным этого типа применимы функции succ, pred, ord. Порядковый номер первой из перечисленных в описании типа констант равен 0. В нашем примере ord(black)=0. Однако в Object Pascal нельзя непосредственно вводить и выводить значения перечислимых типов.

Пример 5.

type color = (black, green, yellow, blue, red, white);

var a, b, c : color; k1, k2 : byte;

begin

a:=blue; b:=pred(a); c:=succ(a);

k1:=ord(b); k2:=ord(c);

writeln(k1:5, k2:5); readln

end.

В результате выполнения данной программы переменная b получит значение yellow, а переменная c – значение red. Поэтому k1=2, k2=4. Числа 2 и 4 будут выведены на экран.

Тип-диапазон

Тип-диапазон можно определить, накладывая ограничения на какой-либо порядковый тип – его называют базовым типом.

type <имя типа> = <минимальная константа>..<максимальная константа>;

Например,

type

digit = 0 .. 9;

symb = A  Z;

К переменным типа-диапазона применимы все операции и стандартные функции, которые допустимы для соответствующего базового типа.

Пример 6. Составить программу для вычисления среднего балла, полученного абитуриентом по результатам трёх экзаменов.

type ball = 2..5;

var m1, m2, m3 : ball; sr : real;

begin

readln(m1, m2, m3);

sr:=(m1 + m2 + m3)/3;

writeln(sr:7:2); readln

end.