Когда количество альтернатив больше двух применяется оператор выбора Case.
Его вид:
выражение любого типа (кроме типов REAL и STRING)
Принцип работы
Принцип работы
Case (N mod 2) of
0 : writeln (N, ‘ - число четное‘)
else writeln (N, ‘ - число нечетное‘);
end;
Case N of
‘а’..’я’ : writeln (‘Это прописные буквы ‘);
‘А’..’Я’: writeln (‘Это заглавные буквы’);
end;
NB! Переменная N имеет тип char
Принцип работы
Program svetofor;
var cvet:char;
Begin
writeLnCвведите символ цвета');
Read(cvet);
case cvet of
'з': writeLn(’зеленый цвет, движение разрешено’);
'ж': writeLn ('желтый цвет, внимание');
'к': writeLn('красный цвет, движение запрещено’);
Else writeLn('Светофор не работает’);
End;
Case N of
12, 1, 2 : writeln (‘Зима‘);
3, 4, 5 : writeln (‘Весна‘);
6, 7, 8 : writeln (‘Лето‘);
9, 10, 11 : writeln (‘Осень‘)
Else writeln(‘Ошибка ввода данных – число должно быть от 1 до 12’);
end;
Принцип работы
Конец
6, 7, 8
9, 10, 11
1, 2, 12
3, 4, 5
Это сайт презентаций, где можно хранить и обмениваться своими презентациями, докладами, проектами, шаблонами в формате PowerPoint с другими пользователями. Мы помогаем школьникам, студентам, учителям, преподавателям хранить и обмениваться учебными материалами.
Email: Нажмите что бы посмотреть