Решение задач машиностроения средствами Turbo Pascal. Крупенников О.Г - 28 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

27
Здесь < СЕЛЕКТОР > – это выражение какого-либо простого порядкового
типа (например, INTEGER или CHAR), значение которого вычисляется в про-
грамме заранее. < ВАРИАНТ ...> – некоторая константа, представляющая собой
одно из возможных значений селектора.
В конструкции оператора CASE строку ELSE можно опускать. Если же
ELSE присутствует в операторе выбора, то перед этой строкой в отличие от IF
точку с
запятой можно ставить.
Каждый вариант в CASE может быть представлен более чем одной кон-
стантой. В этом случае возможные значения селектора данного варианта отде-
ляются друг от друга запятыми, образуя список. При этом элементом такого
списка может быть не только константа, но и отрезок значений (тип-диапазон).
В любом случае в конструкции
оператора CASE должны быть заданы все
возможные значения селектора – либо явным их упоминанием, либо отнесени-
ем к пункту ELSE .
Пример 3.1. Составить тест – программу по выбору компонентов латунно-
го сплава.
PROGRAM TEST;
USES CRT;
VAR X: BYTE;
BEGIN
CLRSCR;
WRITELN(‘ЛАТУНЬ – ЭТО:’);
WRITELN(‘1. СПЛАВ МЕДИ С ЖЕЛЕЗОМ’);
WRITELN(‘2. СПЛАВ МЕДИ С ОЛОВОМ’);
WRITELN(‘3. СПЛАВ МЕДИ С ЦИНКОМ’);
WRITELN;
WRITE(‘ВЫБЕРИТЕ ОДИН ПРАВИЛЬНЫЙ ОТВЕТ:’);
READLN(X);
CASE X OF
1: WRITELN(‘ОТВЕТ НЕПРАВИЛЬНЫЙ
!’);
2: WRITELN(‘ОТВЕТ НЕВЕРНЫЙ!’);
3: ERITELN(‘ПРАВИЛЬНЫЙ ОТВЕТ!!!’);
ELSE WRITELN(‘ВЫ ВВЕЛИ СИМВОЛ, НЕ СООТВЕТСТВУЮЩИЙ
НОМЕРУ ОТВЕТА’);
END;
READKEY
END.

Страницы