Program zadacha3_6a;

var а,b:real;

Begin

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

Readln(а,b);

if (a>0) and (b>0) then writeln('числа одного знаку');

if (a<0) and (b<0) then writeln('числа одного знаку');

if (a>0) and (b<0) then writeln('числа різних знаків');

if (a<0) and (b>0) then writeln('числа різних знаків');

End.

На сьогоднішньому занятті ми не просто вивчатимемо нову тему, але і спробуємо з'ясувати для себе, що добрий програміст завжди уважно обдумує навіть вже написану і відладжену програму. Адже майже завжди можна застосувати правило: "Будь-яку програму можна переписати так, що вона стане більш короткою, або більш красивою".

Program zadacha3_6b;

var а,b:real;

Begin

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

Readln(а,b);

if ((a>0)and(b>0)) or ((a<0)and(b<0))

then writeln('числа одного знаку')

else writeln('числа різних знаків');

End.

Програма стала дійсно коротшою. Але в прикладі 3_6b складова умова складається у свою чергу з двох складових умов. Перегляньте, як розставлені дужки. А чи можна і цю програму зробити більш красивою або більш короткою? Можна. Приведемо нову версію перевірки умови для даної програми:

if a*b>0 then writeln('числа одного знаку')

else writeln('числа різних знаків');

Замініть умову в комп'ютері і переконайтеся, що воно працює вірно.

Дано натуральне число. Перевірити, чи є число двозначним, у якого перша цифра рівна останній.

program zadacha3_7;

var а:integer;

Begin

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

readln(a);

if (а mod 10=a div 10) and (a>9) and (a<=99)

then writeln('является') else writeln('не является');

End.

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

1.Що таке складова умова?

2. В чому відмінність складової умови від простої?

3. Які союзи використовуються при написанні складової умови?

4. Навіщо в задачі 3_6b використовуються подвійні дужки?

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

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

a) б)

2. Задано два числа. Чи є вони обидва великими 20?

3. Задано два числа. Чи є вони обидва парними?

4. Задано два числа. Чи є хоча б одне число парним?

5. Задано два числа. Чи є хоча б одне число позитивним?

6. Дано двухзначное число. Чи є обидві цифри числа парними?

7. Дано тризначне число. Чи входить в нього цифра 4?

8. Перевірити, чи є число тризначним, у якого перша цифра рівна останній.

9. Визначити, чи є дане ціле число N непарним чотиризначним числом.

10. Вивести на екран номер четверті, якій належить крапка з координатами (x,y), за умови, що x і у відмінні від 0.

11. Задані дійсні x і у. Чи належить точка (x, у) заштрихованої частини площини:

12. Дано натуральне число N (N<100), що визначає вік людини в літах. Дати для цього числа найменування: "рік", "роки", "літ".

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

Тема уроку:

Операторні дужки.

Складовий оператор.

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

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

2. Отримати навики використовування операторних дужок;

3. Закріпити знання і уміння по складанню програм на розгалудження.

Операторні дужки

Після службового слова then, або після службового else виконуватиметься тільки один оператор. Якщо необхідно, щоб виконувалося декілька операторів їх потрібно узяти в операторні дужки:

Begin

End;

Групу операторів що знаходиться усередині операторних дужок називатимемо складовим оператором. Фактично, всім розділом операторів, усередині операторних дужок, є один складовий оператор.

Для того, щоб при великій кількості операторних дужок, програма була більш читана, end бажано записувати під begin.

Дані дійсні числа x, у (x?y). Менше з цих двох чисел замінити їх сумою, а більше - їх добутком.