Лабораторная работа №7

Задание: Составить программу для вычисления функции F(x)

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

где =0,0003; 0,0001; 0,001; x= 2,37; 2,01; 3,01

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

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

program lab7;

var F,x,S,eps:real;

n:integer;

begin

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

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

F:=0; n:=1; S:=sin((n+1)*x)/(2*n+1);

while abs(S)>=eps do

begin

21

F:=F+S;

n:=n+1;

S:=sin((n+1)*x)/(2*n+1);

end;

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

readln;

end.

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

vvedite x=2.37

vvedite eps=0.0003

pri x= 2.37 eps=0.0003 summa F=-0.21661

vvedite x=2.01

vvedite eps=0.0001

pri x= 2.01 eps=0.0001 summa F=-0.23034

vvedite x=3.01

vvedite eps=0.001

pri x= 3.01 eps=0.0010 summa F=-0.04620

22