If then else – зарезервовані слова (якщо, то, інакше) Розглянемо декілька прикладів:

Дано два числа. Знайти більше з них.

program zadacha3_1;

var max,x,y:real;

Begin

writeln('Введіть число x '); readln(x);

writeln(' Введіть число у '); readln(y);

if x>y then max:=x else max:=y;

writeln('більше з двох = ',max);

End.

Дано три числа. Знайти максимальне.

program zadacha3_2;

var max,x,y,z:real;

Begin

riteln(' Введіть три числа ');

readln(x,y,z);

if x>y then max:=x else max:=y;

if z>max then max:=z;

writeln('більше з трьох =',max);

End.

Задано число а. Чи кратне воно 3.

program zadacha3_3;

var а:longint;

Begin

writeln('Введіть число');

readln(а);

if а mod 3 =0 then writeln(а,' кратне 3’)

else writeln(а,' не кратне 3’);

End.

Замість умови а mod 3 = 0 напишіть умова int(a/3) = a/3. Придумайте свої умови і перевірте їх правильність.

Дано число. Дати характеристику числа:

• позитивне, негативне;

• парне, непарне;

• ціле, не ціле.

program zadacha3_4;

var а:real;

к,m,p:string;

Begin

writeln('Введіть число');

readln(a);

if a<0 then до:='негативне' else до:='позитивне';

if a=int(a) then m:='ціле' else m:='не ціле';

if a/2=int(a/2) then p:='парне' else p:='непарне';

writeln('число ',a,' ; ',k,' ; ',m,' ; ',p);

End.

Дано три числа x, у, z. Обчислити суму тільки позитивних чисел з трьох даних.

program zadacha3_5;

var x,y,z,sum:real;

Begin

writeln('Введіть три числа');

readln(x,y,z);

sum:=0;

if x>0 then sum:=sum+x;

if y>0 then sum:=sum+y;

if z>0 then sum:=sum+z;

writeln('сумма позитивних чисел = ',sum);

End.

Питання для повторення:

1. Які форми запису оператора if вам відомі?

2. Поясніть виконання оператора if.

3. Для чого в задачі 3 5 змінну sum спочатку була обнулено?

Завдання для самостійної роботи:

1. Заданеx. Обчислити у

a) б)

2. Дано два числа. Знайти менше з них.

3. Дано три числа. Знайти мінімальне число.

4. Задано натуральне число а. Чи є воно парним? Вирішіть задачу

а) використовуючи операцію mod;

b) використовуючи функцію int.

5. Задано натуральне число а. Чи є воно кратним 7?

6. Задано натуральне число а. Чи закінчується воно на 0?

7. Дано тризначне число. Чи кратна сума його цифр шести?

8. Дано ціле число a>9. Чи більше цифра десятків цифри одиниць?

9. Дано двозначне число. Чи є сума його цифр

а) однозначним числом;

b) двозначним числом.

10. Задано двухзначное число. Дайте характеристику числа по наступному плану:

• сума цифр числа;

• число парне (непарне);

• число більше (менше) п'ятдесяти;

• перша цифра рівна (нерівна) другій цифрі.

11. Дано два дійсні числа. Зменшити перше число в п'ять разів, якщо воно більше другого за абсолютною величиною.

12. Задано три числа x, у, z. Обчислити твір тільки негативних чисел з трьох даних.

13. Задано чотири цілі числа x, у, z, w. Обчислити суму тільки парних чисел з чотирьох заданих.

14. Дано три числа x, у, z. Обчислити кількість чисел великих 7.

Вивчаємо “Розгалуження в Pascal”

Тема уроку:

Умовний оператор.

Прості і складові умови.

Мета заняття:

1. Закріпити навики використовування умовного оператора;

2. Сформувати поняття про складову умову;

3. Отримати навики запису складових умов.

Умови, які ми дотепер використовували, є простими. Якщо після службового слова if перевіряється тільки одна умова (а mod 3=0; a>b; k=1), то таку умову називатимемо простою умовою.

Якщо після службового слова if виникає необхідність перевірити відразу декілька умов, то групу таких простих умов називатимемо складовою умовою. При написанні складових умов, кожна з простих умов, що входять в складове, береться в дужки. Можна використовувати союзи and(і) або or(або).