If а>b
Then Begin S:=а; а:=Ь; b:=S; End;
If a>c
Then Begin S:=a; a:=c; c:=S; End;
If b>c
Then Begin S:=b; b:=c; c:=S; End;
{Впорядкування розмірів отвору)
If x>y
Then Begin S:=x; x:=y; y:=S; End;
If (a<=x) and (b<=y)
Then writeln(‘Цеглина пройде у отвір.’)
else writeln(‘Цеглина не пройде у отвір.’)
End;
Readkey;
End.
Домашнє завдання:
• Прочитати сторінки 59—65 запропонованого підручника;
• Задачі № 120, 122, 123, 125, 126 (4,5), 128 (2), 129 (1).
Мета уроку: Дати поняття про форми вказівки вибору
Теоретичний матеріал
Цей оператор є узагальненням оператора
case < вираз-селектор > of
список констант вибору1 > : < оператор 1 >;
список констант вибору 2 > : < оператор 2 >;
. . . .
список констант вибору n > : < оператор n >
else < оператор >
end;
Оператор
Селектор повинен відноситися до одного з перелічувальних типів (цілого, булівського або літерного). Дійсні та рядкові типи використовувати в якості селектора заборонено. Список констант вибору складається з довільної кількості значень або діапазонів, відділених один від одного комами. Межі діапазону записуються двома константами через складений символ діапазону «..». Тип констант у будь-якому випадку повинен збігатися з типом селектора. Щоб краще зрозуміти використання оператора вибору, розглянемо кілька типових задач.
1) від 1 до 10 років — дитина;
2) від 11 до 15 років - підліток;
3) відіб до 20 років - юнак (юнка);
4) від 21 до 30 років - молода людина;
5) після 31 року - доросла людина.
Особливих пояснень ця задача не потребує, адже її можна розв’язати і за допомогою команди розгалуження. Однак зробимо її за допомогою команди вибору, причому, щоб скористатися гілкою Else