Создание программ, выполняющих в цикле вычисление значения функции, представленной в виде ряда и вычисление значения функции по двум заданным параметрам

Цель работы:

создать программы, выполняющие в цикле следующие действия: вычисление значения функции, представленной в виде ряда, вычисление значения функции по двум заданным параметрам.

Задачи:

а) набрать в окне редактирования программу, вычисляющую приближённые значения функции для заданного X с точностью до , если функция представлена в виде ряда.

б) Составить алгоритм и программу для вычисления значения функции. Вывести таблицу значений аргументов и значений функции.

 

при с шагом 0.2

и с шагом 0.2

b=3.5

в) в новом окне редактирования создать программу вычисления значения функции на заданном отрезке с заданным шагом. Результат вычисления вывести в виде таблицы.

Блок-схемы:

б)

 

                                                                       Нет                                                                        Да

 

F=-C/f

K=K+1

S=C/f

F=f*(n-1)*n

n=n+2

Y=cos(x)

C=C*X2

F=1,  n=0, c=1, k=1, s=1

Sum=0

а)

Программы:

а) Program Dolphin_10;

var C, S sum, x, eps, y:real;

k, n, f: integer;

t:char;

begin

writeln (‘ПРГРАММА ВЫЧИСЛЕНИЯ ЧИСЕЛ РЯДА, АБСОЛЮТНАЯ ВЕЛИЧИНА КОТОРЫХ < eps’);

repeat

write (‘введите x=’);

readln (x);

write (‘введите eps=’);

readln (eps);

writeln;

sum:=0;

c:=1;

f:=1;

n:=0;

k:=1;

S:=1;

while abs(s)>eps do

begin

sum:=sum+s;

C:=C*sqr(x);

n:=n+2;

f:=f*(n-1)*n;

if k mod 2=0 then S:=c/f else S:=-c/f;

end;

writeln (‘Сумма чисел ряда, модуль которых больше ‘,eps:15:4,’  равна’,sum:15:8);

y:=cos(x);

writel (‘Проверка’);

writeln (‘y=’,y:15:8);

write (‘Повторить вычисления? (Y/N)’);

readln (t);

t:=upcase (t);

until t<>’Y’;

readln;

end.

б) Program Dolphin_11;

ues crt;

var yx,t,:real;

const b=3.5;

begin

clrscr;

writeln;

writeln;

x:=1;

repeat;

writeln (‘’:6,’x’,’’:3,’|’,’’:4,’t’,’’:3,’|’,’’:3,’s’);

writeln (‘’:2,’________|________|________’);

t:=0;

repeat

s:=b*x*sqrt(t+b)*tg(t*x+2.1);

writeln (‘’:4,x:4:2,’’:2,’|’,’’:2,t:4:2,’’:2,’|’,’’:2,y:4:2);

t:=t+0.2;

until t>1;

readln;

x:=x+0.2;

until x>2.1;

end.

Результаты:

а) x=0.65, EPS=0.94: S=1, Y=0.79608380;

б)

-1	0.00	-11.20
-1	0.20	-7.53
-1	0.40	-5.16
-1	0.60	-3.35
-1	0.80	-1.79
-1	1.00	-0.31

1.20	0.00	-13.44
1.20	0.20	-8.34
1.20	0.40	-5.22
1.20	0.60	-0.71
1.20	0.80	1.42
1.20	1.00

1.40	0.00	-15.67
1.40	0.20	-8.99
1.40	0.40	-5.06
1.40	0.60	-2.03
1.40	0.80	0.80
1.40	1.00	3.89

1.60	0.00	-17.91
1.60	0.20	-9.48
1.60	0.40	-4.70
1.60	0.60	-0.93
1.60	0.80	2.82
1.60	1.00	7.42

1.80	0.00	-20.15
1.80	0.20	-9.83
1.80	0.40	-4.14
1.80	0.60	0.49
1.80	0.80	5.50
1.80	1.00	12.66

2.00	0.00	-22.39
2.00	0.20	-10.06
2.00	0.40	-3.41
2.00	0.60	2.26
2.00	0.80	9.07
2.00	1.00	21.14

Вывод:

Я научился создавать программы, выполняющие в цикле следующие действия: вычисление значения функции, представленной в виде ряда, вычисление значения функции по двум заданным параметрам.