ВУЗ:
Составители:
Рубрика:
34
Пример 3.1. Составить тест–программу по выбору компонентов ла-
тунного сплава. Алгоритм программы представлен в приложении Г.3.
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: WRITELN (‘ПРАВИЛЬНЫЙ ОТВЕТ!!!’);
ELSE WRITELN (‘ТАКОГО НОМЕРА ОТВЕТА НЕТ !’);
END;
READKEY
END.
3.2. Задания к практическому занятию
1. В меню записан список деталей: болт, винт, гайка, шайба, ось, вал. Со-
ставить программу, обеспечивающую распечатку названия детали по
указанному номеру.
2. Используя исходные данные к задаче 1, составить программу, обеспе-
чивающую распечатку названия детали по первой букве.
3. Составить программу, которая по названию месяца выдавала бы коли-
чество рабочих дней при пятидневной рабочей неделе с учетом госу-
дарственных праздников.
Страницы
- « первая
- ‹ предыдущая
- …
- 33
- 34
- 35
- 36
- 37
- …
- следующая ›
- последняя »
