Пояснення до алгоритму. Кожний елемент вкладення обчислюється за рекурентною формулою:

Кожний елемент вкладення обчислюється за рекурентною формулою:

а потім обчислюється остаточне значення:

Рекурентною називають таку формулу, яка дає змогу за попереднім значенням функції одержати поточне.

Як і в попередньому прикладі, розв’язання мовою Паскаль здійснюється на основі циклу з передумовою while:

Program tgx;

var n: integer; u, x, y: real;

Begin

write (‘ Введіть х ‘);

readln (x);

n:=51; y:=n;

while n>0 do

Begin

n:=n – 2;

y:=n – x*x/u;

end;

y:=x/u;

writeln (‘x=’, x:8:2, ‘tg=’, y:8:2);

end.

ПОЧАТКОВЕ ЗНАЧЕННЯ n ФАКТИЧНО ЗАДАЄ КІЛЬКІСТЬ ПОВТОРЕНЬ У ЦИКЛІ, ТОБТО ВПЛИВАЄ НА ТОЧНІСТЬ ОТРИМАНОГО РЕЗУЛЬТАТУ. РЕКОМЕНДУЄМО СПРОБУВАТИ РОБОТУ ПРОГРАМИ ПРИ РІЗНИХ ЗНАЧЕННЯХ n І ПОРІВНЯТИ ОТРИМАНІ РЕЗУЛЬТАТИ З РЕЗУЛЬТАТАМИ, ОБЧИСЛЕНИМИ ЗА ДОПОМОГОЮ КАЛЬКУЛЯТОРА!

Приклад 4. Обчислити значення функції за формулою:

Алгоритм має вигляд:

АЛГ Значення функції (цілий N, дійсн X, Z)

АРГ N, X

РЕЗ Z

ПОЧ цілий і

Z:=0

для і від 1 до N

пц

кц

ДРУКУВАТИ Z

КІН

Поиск по сайту: