Сборник заданий для практических занятий по информатике. Крупенников О.Г - 35 стр.

UptoLike

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. Составить программу, которая по названию месяца выдавала бы коли-
чество рабочих дней при пятидневной рабочей неделе с учетом госу-
дарственных праздников.