Субота, 02.08.2025, 21:15
Сайт вчителя інформатики КЦМГ Бажан Лариси Володимирівни
Приветствую Вас Гість | RSS
Главная Умовний оператор Регистрация Вход
Меню сайта

Статистика

Онлайн всього: 1
Гостей: 1
Користувачів: 0

Block title
Block content

Умовний оператор в Паскале

Оператор умовного переходу в Турбо Паскаль має вигляд:

if умова then оператор 1 else оператор 2;

умова - це логічний вираз, в залежності від якого обирається одна з двох альтернативних гілок алгоритму. Якщо значення умови істинно (TRUE), то буде виконуватися оператор 1, записаний після ключового слова then. В іншому випадку буде виконуватись оператор 2, що слідує після слова else, при цьому оператор 1 пропускається. Після виконання зазначених операторів програма переходить до виконанню команди, яка стоїть безпосередньо після оператора if.

Необхідно пам'ятати, що перед ключовим словом else крапка з комою ніколи не ставиться!

else - частина в операторі if може бути відсутня:

if умова then оператор 1;

Тоді, в разі невиконання логічної умови, керування відразу передається оператору, який стоїть у програмі після конструкції if.

Слід пам'ятати, що синтаксис мови допускає запис тільки одного оператора після ключових слів then і else, тому групу інструкцій обов'язково треба поєднувати в складений оператор (обмежовувати оператор дужками begin ... end). В іншому випадку виникає, найчастіше, логічна помилка програми, коли компілятор мови помилок не видає, але програма, проте, працює неправильно.

Приклади.

if x > 0 then modul := x else modul := -x;

if k > 0 then WriteLn('k - число додатнє');

if min > max then begin
 t := min;
 min := max;
 max := t;
 end;

 

 

Умовний оператор в мові програмування Паскаль використовується для реалізації розгалужень у програмах. Структурна схема базової конструкції наведено на рис.

 

 

 

 

 

У Паскале допускається коротка форма умовного оператора, відповідна структурі наведеної на рис. 2.

 

 

Приклад 2. Скласти програму обчислення функції y для заданого значення x в мові програмування Паскаль.

Program Ex_1; 
Uses crt;
Var
x, y :real;
Begin
clrscr;
Writeln("Уведіть x");
Read(x);
If x>0 then y:=cos(x) 
else 
Ifx<0 then y:=exp(x);
Writeln("Результат");
Writeln(‘ y=’, y:10);
End.

 


 

Поиск

Календарь
«  Серпень 2025  »
ПнВтСрЧтПтСбНд
    123
45678910
11121314151617
18192021222324
25262728293031

Архив записей

Друзья сайта
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz

  • Copyright MyCorp © 2025 Безкоштовний конструктор сайтів - uCoz