Программирование алгоритмов разветвляющейся структуры. Самойлова Н.И - 7 стр.

UptoLike

ВУЗ: 

ТюмГНГУ | Тюмень

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

Рубрика: 

7
взаимоисключающих проверок, то удобнее воспользоваться оператором
выбора варианта.
Общий вид оператора варианта:
CASE <ключ выбора> OF
<список меток>: <оператор(ы)>;
…
<список меток>: <оператор(ы)>;
ELSE <оператор(ы)>
END;
Ключ выбора (селектор) представляет собой выражение скалярного
типа (но не вещественного). Выполнение оператора варианта начинается с
вычисления значения ключа выбора. Затем для использования выбирается
оператор, одна из меток которого совпадает с полученным значением. После
выполнения
этого оператора (он может быть простым или составным)
управление передаётся на оператор, следующий за оператором варианта.
Если же значение ключа выбора не совпало ни с одной из меток, управление
передаётся оператору, стоящему за словом Else. Часть Else может
отсутствовать.
Задача 2: Написать программу для вывода дня недели, который
следует за тем днём недели, номер которого ввел пользователь.
• Введём обозначения:
N – номер дня недели.
• Блок-схема:
• Листинг программы:
Program Z2;
Label nm;
Var a, b, P, S: real;
Begin
nm: write(‘Введите номер дня недели: ’);
read (N);
N:=N+1;
Case N Of
2: write(‘Вторник’);
3: write (‘Среда’);
4: write (‘Четверг’);
5: write (‘Пятница’);
6: write (‘Суббота’);
7: write (‘Воскресенье’);
8: write (‘Понедельник’);
Else Begin writeln(‘
Номер дня недели введён
не верно
’);
writeln(‘
Повторите ввод ’);
Goto nm;
End;
End.
конец
начало
N
N:
=
N
+
1
N
Вто
р
ник 2
С
р
еда 3
Ч
етве
р
г 4
Пятница 5
С
у
ббота 6
Воск
р
есенье 7
Понедельни8
№ дня
недели
введён
не верно
Другое
значение

Страницы