Case (k Mod d ) Of

2,3,5..8: d := k; метки вариантов могут перечисляться через запятую

1: ; это пустой оператор – программа ничего не выполняет

4,9: Begin если в одной ветви переключателя несколько операторов,

k := 0; то они заключаются в операторные скобки

d := 2;

End; перед Else ставится точка с запятой

Else d := 1; если значение селектора не совпадает ни с одной из меток

End;

В этом случае значение селектора 4 Mod 5 = 4 , поэтому переходим на ветвь с меткой варианта, равной 4, отсюда k = 0 и d = 2.

Таким образом,

· в каждой ветви могут стоять по нескольку меток вариантов, разделенных запятыми: 2,3,

· можно использовать интервалы данных: 5..8

· в качестве оператора можно использовать пустой оператор

· если после метки вариантов следует несколько операторов, то необходимо заключать в операторные скобки Begin…End

· метки вариантов не должны повторяться.

Пример: написать программу с использованием переключателя, которая по введенному номеру месяца определяет количество дней в нем.

В данном случае у переключателя будут три ветви:

1. для месяцев с 30 днями

2. для месяцев с 31 днем

3. для месяца с 28 днями (вариант високосного года рассматривать не будем).

Program Mesjac;

Uses Crt;

Var Month: 1..12;

Begin

ClrScr;

Write(‘Введите номер месяца:’);

ReadLn(Month);








Дата добавления: 2015-08-08; просмотров: 502; ЗАКАЗАТЬ НАПИСАНИЕ РАБОТЫ


Поиск по сайту:

При помощи поиска вы сможете найти нужную вам информацию, введите в поисковое поле ключевые слова и изучайте нужную вам информацию.

Поделитесь с друзьями:

Если вам понравился данный ресурс вы можете рассказать о нем друзьям. Сделать это можно через соц. кнопки выше.
helpiks.org - Хелпикс.Орг - 2014-2022 год. Материал сайта представляется для ознакомительного и учебного использования. | Поддержка
Генерация страницы за: 0.015 сек.