Використання вкладеного оператора if

Як значення строкової константи може виступати будь-яка послідовність символів. Ця послідовність полягає в апострофи. Строкова константа відрізняється від символьного константи тим, що тут в якості значення константи можна.

Ми вже знаємо, які існують функції для цілих змінних. Це - знаходження модуля числа (Функція Abc), а також зведення числа в квадрат (Функція Sqr). У цьому уроці ми розглянемо функції, що застосовуються до дробовим числам. Це функції Sqr - квадрат.

Умовні оператори в Pascal можна вкладати один в одного. Для цього використовується вкладений оператор IF. Розглянемо це на прикладі програми, яка буде рахувати кількість коренів квадратного рівняння.

У рядку №8 вводимо формулу для розрахунку дискримінанту. Як відомо, він обчислюється за формулою D = b 2 - 4ac. При записи на мові Паскаль виходить вираз «sqr (B) 4 * A * C». Результат цього виразу зберігаємо в змінної «D»

У рядку №9 перевіряємо 1-е умова: якщо «D» більше або дорівнює 0, тоді починає перевірятися 2-е умова (рядок №10) про те, що «D» більше 0. Якщо 2-е умова виконується, то на екран виводиться повідомлення «Два речових кореня» (рядок №11). Якщо 2-е умова не виконується (рядок №12), то на екран виводиться повідомлення в рядку №13.

Рядок №14. Якщо не виконується 1-е умова, то на екран виводиться повідомлення в рядку №15.
Таким чином, нам необхідно засвоїти, що якщо ми використовуємо вкладений оператор If, то останній Else в програмі відноситься до першого If, передостанній Else - до другого If і т.д.

Використання вкладеного оператора if

Запускаємо і вводимо, наприклад, 4, 8, 2 через пробіл і натискаємо Enter.

При використанні умовного оператора If слід враховувати, що після службового слова Then може стояти тільки один оператор (наприклад, оператор виведення на екран Writeln, як в прикладі №20). Якщо ж нам необхідно використовувати кілька операторів, то їх необхідно взяти в блок begin..end. Для наочності розглянемо наступний приклад.

Використання Begin ... end для If.

Даний приклад відрізняється від попереднього прикладу тим, що тут крім знаходження кількості коренів квадратного рівняння, потрібно порахувати ці коріння і вивести їх на екран. Таким чином, при виконанні умови в рядку №9, тобто коли дискримінант більше 0 (і відповідно рівняння містить 2 кореня) у нас після слова Then має виконуватися відразу 3 дії: операції присвоювання (рядок №12 і №13) і операція виведення на екран (рядок №14). Всі ці 3 оператора ми повинні укласти в складовою оператор Begin..end. Якщо цього не зробити, то при виконанні умови в рядку №10 буде виконаний лише один оператор, який безпосередньо стоїть після слова Then. Всі 3 оператора повинні розділятися між собою крапкою з комою. Перед словом End крапку з комою ставити не обов'язково. Зверніть увагу, що в рядку №14 ми виводимо на екран значення відразу 2-х змінних: «X1» і «X2». Ці змінні розділяються між собою комою.

У рядку №17 ми виводимо на екран не конкретну змінну, а результат операції «-B / 2 * A». Ця дія буде виконано в тому випадку, якщо рівняння має один дійсний корінь.

Використання вкладеного оператора if

Схожі статті