Структура розгалуження. Частина 2. - Інформатика - Уроки, реферати, виховні роботи та багато іншого - Обмін досвідом


Форма входу

Вітаю Вас Гість!

Пошук

чат

200

Наше опитування

Чи потрібне зовнішнє оцінювання
Усього відповідей: 235

Статистика


Усього онлайн: 1
Гостей: 1
Користувачів: 0
Головна » Стаття » Інформатика

Структура розгалуження. Частина 2.

Якщо після слів then i else треба записати не один оператор, а кілька, тоді ці оператори беруться в так звані операторні дужки: відкриваюча дужка – begin, і закриваюча – end:

begin

{оператори}

end;

Перед словом else крапка з комою не ставиться. Кожну пару begin ... end записують в одному стовпці: так легше перевіряти наявність для кожної відкриваючої операторної дужки відповідної закриваючої.

Розв’яжемо задачу за допомогою умовного оператора:

Дано два числа. Вивести на екран більше із них.

Побудуємо спочатку блок схему до даної задачі.


Розв’яжемо тепер цю задачу на мові Паскаль.

program chislo;

var a,b:integer;

begin

    readln(a,b);

if b>a then writeln(b) else writeln(a);

end.

В умовному операторі може бути інший умовний оператор. Розглянемо таку задачу:

Введено два числа. Перевірити, чи корінь першого числа більший за друге число.

program chislo1;

var a,b:integer;

begin

  readln(a,b);

  if a>=0 then

if sqrt(a)>b then writeln(Корінь першого числа’)  else writeln(Друге число);

end.

Розглянемо з вами логічні вирази. В Паскалі можна використовувати такі логічні операції: and (і),  or (або), not (ні).

Розглянемо такі таблиці істиності. Позначимо через 1 істинне значення, а через 0 – хибне. Розглянемо спочатку таблицю істиності для операції and.

X

Y

X and Y

1

1

1

1

0

0

0

1

0

0

0

0

Таблиця істиності операції or.

X

Y

X or Y

1

1

1

1

0

1

0

1

1

0

0

0

Таблиця істиності операції not.

X

not X

1

0

0

1

Розглянемо на прикладі як можна застосовувати ці логічні операції.

Нехай потрібно перевірити, чи входить число a в проміжок (0, 3).

Це можна зробити так:

if (a>0) and (a<3) then writeln('Входить')

  else writeln('Не входить');

Розглянемо ще такий приклад. Перевірити чи входить число a в проміжки (-1, 3) і (7, 9).

if ((a>-1) and (a<3)) or ((a>7) and (a<9))

then writeln('Входить')

else writeln('Не входить');

Категорія: Інформатика | Додав: stdynzosh (23.03.2009) | Автор: Олександр
Переглядів: 646 | Рейтинг: 0.0/0
Усього коментарів: 0
Додавати коментарі можеть тільки зареєстровані користувачі.
[ Реєстрація | Вхід ]