Слід знати:
при вкладеності операторів кожне else відповідає тому then, яке безпосередньо йому передує (варіант 3);
конструкцій із ступенем вкладеності більше 2—3 необхідно уникати через складність їх аналізу при відладці програми;
- в умовних операторах часто використовують Складений оператор begin.. .end;
в умовних операторах крапка з комою не ставиться після then і перед else;
Задача 4.
Порівняння віку
var agel,age2: integer;
begin
write('Введіть вік брата: '); readln(agel);
write('Введіть вік сестри: '); readln(age2);
if agel>age2 then writeln('Брат старше.')
else if agel<age2 then writeln('Сестра старше.')
else writeln('Вони близнята.');
end.
Задача 5.
.Перевірка числа на парність
var n: integer;
begin
write('Введіть ціле число: '); readln(n);
write('Число ',n, ' — ');
if n mod 2=0 then writeln('парне')
else writeln('непарне');
end.
Оператор вибору case.
Оператор вибору case є узагальненням оператора if і використовується для вибору одного з декількох напрямів подальшого ходу програми.
case <вираз>
<список значень 1> : < оператор 1>;
. . .
< список значень n> : < оператор n>
else < оператор n+1>
end;
де
вираз — це проста змінна цілого, символьного, переліченого або логічного типів;
списки значень - константи або діапазони, тип яких повинен співпадати з типом виразу. Якщо список значень складається з декількох елементів, то вони перераховуються через кому, діапазони записуються через «..».
else < оператор n+1> можна не писати, тоді одержуємо коротку форму команди case.
крапка з комою не ставиться після останнього елементу списку вибору.
Дія оператора. Якщо значення виразу співпадає з деяким значенням із списку, то виконується оператор відповідний цьому значенню, а інші оператори цієї конструкції не виконуються. Якщо значення виразу не співпадає ні з одним значенням з будь-якого списку значень, то виконується оператор n+1. У разі короткої форми—наступна команда після команди case.
Задача 6.
Хай населені пункти позначені номерами від 1 до 8. Вартість одного квитка до пункту N визначається так:
2
Cena=
25, N = 2,3,4
30, N = 5,6
35, N = 7,8.
Скільки коштує т квитків до населеного пункту, номер якого користувач повинен ввести з клавіатури?
program Biletі;
uses Crt;
var N, m, сеna : integer;
begin
clrscr;
writeln('Введіть номер пункту і кількість квитків:'); readln(N, m);
case N
1 : сеna:=22;
2..4 : сеna:=25;
5,6 : cena:=30
else сеna:=35
end;
write(m, ' квитків до пункту ', N, ' коштують '); writeln(m * сеna);
end.
Питання для самоконтролю.
Що таке розгалуження?
Як записується складений оператор?
Що таке порожній оператор?
Що таке логічний вираз?
Які логічні вирази ви знаєте?
Нехай х = 3, у = -9 яке значення приймає вираз: not (y<=-50)
Нехай х = 3, у = -9 яке значення приймає вираз: (1<x) and (x<5)
Нехай х = 3, у = -9 яке значення приймає вираз: (x > 4) or (у < -15)
Нехай х = 3, у = -9 яке значення приймає вираз: (x > 4) or (у > -15)
Нехай х = 3, у = -9 яке значення приймає вираз: 7 mod 3=1
Нехай х = 3, у = -9 яке значення приймає вираз: у div 2 = 4
Нехай х = 3, у = -9 яке значення приймає вираз: у div 2 = 4
Повна форма оператора розгалуження if.
Нехай а = 5. Тоді що отримаємо в змінних b і с в результаті виконання команд
if а < 7 then
begin
b := а - 2; с := 1 + 2 * а
end
else
begin
b := 2 + 5* а; с := 12 - 4 * (а - 3)
end;
Коротка форма команди розгалуження if має вигляд:?
Нехай х = 25. Тоді що отримаємо в змінних у і z в результаті виконання команд
if х > 12 then у := 2 * х; z := 10;
if х < 5 then z := 10 + х / 2;
Для чого призначений оператор безумовного переходу?
В якому розділі потрібно оголосити мітки?
Чи можна передавати управління команді, яка знаходиться в середині підпрограми або в середині складової команди?
Вкладений IF.
Оператор вибору case.
Що містять списки значень у операторі case?
Що містить вираз у операторі case?