Оператор выбора используется в тех случаях, когда в зависимости от значения какого-либо выражения необходимо выполнить один из нескольких последовательных операторов. Форма записи оператора выбора: Case выражение of константа 1: оператор 1; константа 2: оператор 2;... константаN: операторN End; Здесь CASE (в случае), OF (из), END (конец) - служебные слова.
Задача 1: заменить числовую отметку ее текстовой формой («отлично», «хорошо», «удовлетворительно», «неудовлетворительно») Program otmetka; Var а: integer; Begin Write('Введите оценку '); Readln(a); Case a of 2 : writeln('неудовлетворительно'); 3 : writeln('удовлетворительно'); 4 : writeln('хорошо'); 5 : writeln('отлично'); end; readln(a); End.
Проверка Д/З. Написать программу, которая спрашивает «Который час?» и, в зависимости от введенного времени, выводит на экран приветствие: «Доброе утро», «Добрый день», «Добрый вечер», «Спокойной ночи».
Задание 6. Написать программу, которая определяет, принадлежит ли точка с координатами (X, Y) заштрихованной области, ограниченной точками (X1, Y1) (X2, Y2) (X1, Y1) (X2, Y2)
«Оператор выбора» Тема урока:
Задача 2 : перевести римскую цифру в арабское представление.
Задача 3: В старояпонском календаре был принят двенадцатилетний цикл. Годы внутри цикла носили названия животных: крысы, коровы, тигра, зайца, дракона, змеи, лошади, овцы, обезьяны, петуха, собаки и свиньи. Написать программу, которая позволяет ввести номер года и печатает его название по старо японскому календарю. Справка: 1996 г. год крысы.
Program zadacha; Var a: integer; BEGIN Writeln (Введите год); Readln ( а ); Case а mod 12 of 0 : writeln(год обезьяны); 1 : writeln(год петуха); 2 : writeln(год собаки ); 3 : writeln( год свиньи); 4 : writeln( год крысы); 5 : writeln( год коровы); 6 : writeln( год тигра); 7 : writeln( год зайца); 8: writeln( год дракона); 9 : writeln( год змеи); 10 : writeln( год лошади); 11 : writeln( год овцы); end; Readln(а); END.
Задания: 1. Определить истинны или ложны следующие условия: а) 7>=7; b) 0<>9; c) not ((6 8)); d) (а 0). 2. Известно, что а=3, b=4, c=2. Определить результат: а) (a<b) and (a<c); b) (a<b) xor (a<c); c) not (a<c).