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. Закріпити знання і уміння по складанню програм на розгалудження.