Пример решения задачи. Задание: Вычислить сумму элементов ряда

Задание: Вычислить сумму элементов ряда

При x=0,24; e=0,001

до выполнения условия

Решение. 1.Блок-схема алгоритма решения приведена на рисунке.

Рисунок 7.1

Нет

Да

2.Текст программы:

var F,x,S,eps,Fact:real;

n:integer;

begin

write('vvedite x=');readln(x);

write('vvedite eps=');readln(eps);

F:=0; n:=1; Fact:=1; S:=cos(n*x)/Fact;

while abs(S)>eps do

begin

F:=F+S;

n:=n+1;

Fact:=Fact*n;

S:=cos(n*x)/Fact;

end;

write('pri x=',x:5:2,' eps=',eps:5:3,' summa F=',F:7:3);

readln;

end.

3.Результат выполнения контрольного примера:

pri x=0.24 eps=0.001 summa F= 1.567

Дата добавления: 2015-07-11