Задания по теме «Ограниченный и перечисляемый тип данных»

Задания по теме «Ограниченный и перечисляемый тип данных»

Задание №1.

Имеется описание:

Type Season (Winter, Spring, Summer, Autumn);

Var X, Y : Season;

T : (Heart, Cold);

Дайте ответы на следующие вопросы:

а) Какие значения могут принимать переменные Х, Y и T? Допустимы ли присваивания: Х:= Spring; Y:=Х; T:= Heart; Y:=Т; ?

б) Вычислите значения выражений:

Spring < Summer; Winter <= Summer; Autumn < Winter; Spring <> Heart;

Succ(Spring); Pred(Spring); Succ(Autumn); Pred(Cold); .

в) Вычислите значения выражений:

Ord(Spring); Ord(Autumn) + Ord(Cold); .

г ) Допустим ли оператор цикла с заголовком:

For X := Spring To Autumn Do ?

д) .Допустимы ли следующие операторы ввода- вывода:

Read (X); Write (Summer); Writeln ('Зимой ', T); ?

Задание №2.

Укажите ошибки в следующем разделе типов:

Type Letter = ('a', 'b', 'c', 'd');

Vowel = (a, e, i, o, u);

Consonant = (b..d, f, g);

Card = (6, 7, 8, 9, 10, Knave, Queen, King, Ace);

Root = (1.00, 1.41, 1.73, 2.00);

Figure = (Elephant, Horse, Castle, Queen);

Animal = (Lion, Elephant, Giraffe);

Division = (div, mod);

Logic = Boolean; .

Задание №3.

Имеется описание:

Type Digit = '0' .. '9';

Var D : Digit;

K : 0 .. 9;

N : Integer;

Дайте ответы на следующие вопросы:

а) Каковы значения типа Digit? Каков базовый тип для этого ограниченного типа? Допустимы ли присваивания: D:='7'; D:='a'; D:=7; ?

б) Какие значения может принимать переменная К? Каков ее базовый тип? Допустимы ли присваивания: К:=5; К:=10; К:=-0; К:='5'; K:=Ord(D); R:=Ord(D)-Ord('0'); ?

в) Верно ли, что к значениям ограниченного типа можно применять те же операции, что и к значениям базового типа? Есть ли ошибки в операторе

If K + N > 7*K Then K:=Abs(N) Mod 10

Else D:=Chr(K + Ord('0')) ?

г) Можно ли в Паскале определить ограниченный тип, состоящий из простых чисел?

Задание №4.

Укажите ошибки в следующих описаниях:

Const N = 180; Pi = 3.14159;

Type Digit = '0' .. '9';

Letter = a .. z;

Angle = -N .. N;

Snippet = 0 .. N-1;

Period = -Pi .. Pi;

Plus = '+' .. '+';

Week = (Mn, Tu, Wn, Th, Fr, St, Sn);

WorkDays = (Mn .. Fr);

RestDays = St .. Sn;