Практична робота № 21

ТЕМА: " Створення програм знаходження сум і добутків елементів"

МЕТА:  Навчитись використовувати оператор повторення для знаходження сум та добутків.

 

Короткі теоретичні відомості.

Існує багато прикладів застосування циклів для розв’язку різноманітних задач. Дуже важливим для математиків є знаходження різних сум та добутків чисел. Розглянемо кілька прикладів знаходження сум та добутків. В початковий момент вважаємо, що сума рівна 0, а добуток рівний 1. 

Приклад 1. Знаходження суми     S=1+2+3+ …98+99+100   Рrogram Suma;    const n=100;    var    s,i : Integer;   BEGIN s:=0; for i:=1 to n do S:=S+ i; Writeln(‘ suma=’ , S); END.   Приклад 2. Зн аходження  суми s=1+1/2+1/3+...+1/98+1/99 +1/100. s+ Рrogram Suma;    const n=100;    var    i : Integer;    S: REAL;   BEGIN s:=0; for i:=1 to n do S:=S+1/ i; Writeln(‘ suma=’ , S:8:6); END.

Приклад 3. Знаходження  суми s=1-1/2+1/3-1/4...-1/98+1/99 -1/100.   Рrogram  Suma3;  VAR    S : REAL;     i, k: Integer;  BEGIN   S:=0;   k:=1;   For i:= 1 to 100 do            Begin                    S:= S+k / i ;               k:= - k;               End;  Writeln(‘ suma=’ , S:8:6); END. Приклад 4. Знаходження добутку D=Sin(1)*Sin(2)*Sin(3)*...*Sin(n)   Рrogram Dobutok;    const n=20;    var    i : Integer;     d: REAL; BEGIN d:=1; for i:=1 to 20 do D:=D*Sin( i ); Writeln(‘ Dobutok =’ , D:8:5); END.

 

Хід роботи.

 

І. Ввести і запустити на виконання приклади програм знаходження сум і добутків.

ІІ.Дано натуральнее число n. Обчислити:

                 

 

ІІІ. Дано натуральне n та дійсне х. Скласти програму обчислення суми:

1.    cos x+ cos²x + cos³x+cos⁴x+ …+ cosⁿx

2,

 

Додаткові матеріали: файл практичної роботи №21

Завдання самостійної роботи №3