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

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

Задача 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.

Читайте також:

<== попередня сторінка	\|	наступна сторінка ==>
Інструкція Case	\|	Вправи та завдання

Не знайшли потрібну інформацію? Скористайтесь пошуком google:

Генерація сторінки за: 0.005 сек.