Поліваріантні розгалуження (вкладені оператори розгалуження)

Якщо в then- або else-гілці знаходиться більше одного оператора, то використовують операторні дужки, що складаються з зарезервованих слів begin і end.

If Умова

Then

Begin

Оператор1;

Оператор2;

……...

………

ОператорN;

end

else

Begin

ОператорЕ1;

ОператорЕ2;

………

………

ОператорЕN;

End;

Проблему виключення некоректних відповідей можна розв’язати, використовуючи ті ж оператори if…then якщо вкласти їх один в другий.

If Умова

Then

Begin

Оператор1;

Оператор2;

End

Else

If Умова

Then

Begin

Оператор11;

Оператор12;

end

else

Приклад 3.Дано три дійсні додатні числа. Визначити, чи можна побудувати трикутник з такими довжинами сторін.

program pr1;

var a,b,c:integer;

begin

writeln(‘введітьтричислаa,b,c’);

readln(a,b,c);

if (a<b+c) and (b<a+c) and (c<b+a)

then

writeln(‘трикутник побудувати можна’)

else

writeln(‘трикутник з такими сторонами побудувати неможливо’);

readln;

end.

Завдання

Скласти програму для розв’язання задачі. Набрати і налагодити цю програму, а також підібрати вхідні дані.

1. Дано тризначне число. Визначити, чи можуть цифри цього числа бути довжинами сторін трикутника.

2. Визначити чи є серед трьох чисел а,b,с хоча б одна пара рівних між собою чисел.

3. Поміняти місцями значення змінних x,y,z так, щоб вони утворили зростаючу послідовність.

4. Визначити, чи є серед цифр заданого тризначного числа однакові.

5. Визначити чи дорівнює сума двох перших цифр заданого чотиризначного числа сумі двох його останніх цифр.

6. Визначити, чи є серед чисел a,b,c число, рівне середньому арифметичному цих чисел.

7. Визначити, чи є даний рік високосним (рік з двома нулями в кінці високосний, коли число ділиться на 400).

8. Надрукувати фразу «мені n рік (роки, років)» так, щоб відмінок слова «рік» узгоджувався з числом n. N вводиться з клавіатури.

9. Визначити, чи буде сума цифр заданого тризначного числа парною.

10. Дано дійсні числа x,y. Якщо вони обидва від’ємні, то замінити кожне його модулем. Якщо від’ємним є лише одне з них, то обидва значення збільшити на 0.5. Якщо ж обидва значення невід’ємні та жодне з них не належить проміжку [0,5;2,0], то обидва числа зменшити у 10 разів. В решті випадків залишити числа без змін.

11. Дано два числа x,y (x<>y). Менше з двох чисел замінити півсумою, а більше – подвоєним добутком.

12. Визначити, яка з двох точок, задана своїми координатами, знаходиться далі від кола заданого радіусом з центром в початку координат.

13. Визначити кількість точок перетину прямої y=kx+b з колом x2+y2=r2.

14. Квадрати для гри у хрестики-нулики(3*3) занумеровані зліва направо та згори вниз. Задано номери трьох квадратів n1,n2,n3 (n1<n2<n3).Визначити, чи знаходяться квадрати на одній прямій.

15. Квиток буде«щасливим» тільки тоді, коли сума його цифр ділиться на 5. Перевірити, чи куплений квиток є щасливим.