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

Страницы работы

Содержание работы

Цель работы:

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

Задачи:

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

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

 

при с шагом 0.2

и с шагом 0.2

b=3.5

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

Блок-схемы:

б)

 


                                                                       Нет                                                                        Да

 



F=-C/f

 
Выноска 1 (без границы): НЕТВыноска 1 (без границы): ДАБлок-схема: решение: K mod 2=0Блок-схема: решение:

K=K+1

 

S=C/f

 

F=f*(n-1)*n

 

n=n+2

 
Блок-схема: альтернативный процесс: конецБлок-схема: данные: Y

Y=cos(x)

 
Блок-схема: данные: ПроверкаВыноска 1 (без границы): ДАВыноска 1 (без границы): НЕТ

C=C*X2

 
Блок-схема: данные: Значение функции равно SumБлок-схема: решение:

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

 

Sum=0

 
Блок-схема: ручной ввод: x,  Блок-схема: данные: Введите значения x и  Блок-схема: данные: Суммирование членов рядаБлок-схема: альтернативный процесс: началоа)


Программы:

а) 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

Вывод:

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

Похожие материалы

Информация о работе