§ 5.4 Організація розгалужень в програмах

При програмній реалізації розгалужень проблем практично не буде, якщо ви детально розібрались з матеріалом попереднього параграфу та запропонованими завданнями. Виникає питання, а що краще використовувати: команду розгалуження, чи команду вибору? Дати відповідь на це запитання рівнозначно вирішенню проблеми – що корисніше: мед чи овочі? Адже і те і інше потрібно для людини, причому в одних випадках перше, а в інших – друге. Більше того, існують такі ситуації коли не буде корисним ні перше, ні друге. Тому все повинно бути в міру, так само як і використання вище згадуваних команд. Для прикладу розглянемо ще одну задачу, яку розв’яжемо як з використанням команди розгалуження, так і з використанням команди вибору. На наш погляд розв’язки рівноцінні, але не найкращі, а який з них вам сподобається більше, то вже справа ваших уподобань.

Задача 59 Задано ціле число (не більше 100). Використовуючи лише дію множення піднести дане число до заданого степеня (не більшого 4).

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

program step1;

var n,m,res : longint;

begin

write(‘Введiть цiле числo (не бiльше 100): ’);

readln(n);

write(‘До якого цiлого степеня пiднести (1-4): ’);

readln(m);

if m = 1 then res := n

else if m = 2 then res := n*n

else if m =3 then res := n*n*n

else if m = 4 then res := n*n*n*n;

writeln(res);

readln;

end.

Приведемо повну реалізацію останньої поставленої задачі з використанням команди вибору.

program step2;

var n,m,res : longint;

begin

write(‘Введiть цiле число (не бiльше 100): ’);

readln(n);

write(‘До якого цiлого степеня пiднести (1-4): ’);

readln(m);

case m of

1 : res := n;

2 : res := n*n;

3 : res := n*n*n;

4 : res := n*n*n*n;

end {case};

writeln(res);

readln;

end.

§ 5.5 Вправи та завдання

60 Скласти програму знаходження більшого серед: а) двох чисел; б) трьох чисел; в) чотирьох чисел.

61 На площині задано трикутник координатами своїх вершин. Знайти найменшу сторону трикутника.

62 Точку А задано на площині своїми координатами (X,Y). Знайти номер координатної чверті, якій належить дана точка.

63 Дві точки на площині А (X₁ ,Y₁ ) і В (X₂ ,Y₂ ) задано своїми координатами. Перевірити, чи лежать ці точки в одній координатній чверті.

64 Дано дійсні додатні числа X, Y, Z. Чи існує трикутник з довжинами сторін X, Y, Z.

65 Три точки на площині задано своїми координатами (X₁,Y₁), (X₂,Y₂), (X₃,Y₃). Знайти радіус найменшого кола (з центром в початку координат), якому належать данні точки.

66 Дано коло радіусом R і прямокутник зі сторонами A, B. Визначити, чи поміститься коло в прямокутнику.

67 Дано натуральне число N (N < 100), що визначає вік людини в роках. Після цього числа потрібно дописати одне з слів: "рік", "роки" або "років". Наприклад: 1 рік, 23 роки, 97 років.

68 Три точки на площині задано координатами A(X₁,Y₁), B(X₂,Y₂), C(X₃,Y₃). Чи належить початок координат трикутнику ABC.

69 Задано розміри прямокутних дверей А, B та розміри шафи, що має форму прямокутного паралелепіпеда X,Y,Z. Перевірити, чи можна шафу пронести через двері. а) Проносити шафу через двері дозволяється лише так, щоб кожне з її ребер було паралельно або перпендикулярно кожній з сторін дверей. б) Проносити шафу крізь двері можна під кутом.

70 На площині в прямокутній системі координат задано три точки Вважаючи, що вони є вершинами деякого прямокутника, знайти координати четвертої вершини.

71 На координатній площині задано два прямокутника, сторони яких паралельні координатним вісям. (X₁,Y₁), (X₂,Y₂) – координати діагоналей першого, а (X₃,Y₃), (X₄,Y₄) – другого прямокутника. У випадку, якщо прямокутники мають спільну частину, визначити її площу або вивести повідомлення про те, що прямокутники не перетинаються.

72 Чотири точки S, A, B, C на площині, довільні три з яких не лежать на одній прямій, задані своїми координатами (X₁,Y₁), (X₂,Y₂), (X₃,Y₃), (X₄,Y₄). Розглядаючи фігуру SABC як зображення трикутної піраміди на площині, визначити, які з точок потрібно з’єднати пунктирною лінією.