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

БЕЛОРУССКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ

ИНФОРМАТИКИ И РАДИОЭЛЕКТРОНИКИ

Кафедра программного обеспечения информационных технологий

Факультет ФНиДО

Специальность ПОИТ

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

по дисциплине «Основы алгоритмизации и программирования»

часть 1

Вариант № 28

Выполнил студент:

группа

Зачетная книжка №

Минск 2012

1). Задание

Задание №28

Для аргумента , изменяющегося от –0.6 с шагом 0.05 вычислить 20 значений функций:

;

.

PROGRAM task3;

var x,h,f1,f2:real;

i,k:integer;

e,sl1,sl2:real;

BEGIN

writeln('_______________________________');

writeln('| | | | |');

writeln('| n | x | f1(x) | f2(x) |');

writeln('|_____|_______|________|__________|');

x:=-0.6;

h:=0.05;

e:=0.0001;

for i:=1 to 20 do

begin

f1:=sin(x*PI/2)/cos(x*PI/2);

sl1:=1/((1-x)*(1+x));

f2:=0;

sl2:=sl1+2*e;

k:=1;

while (abs(sl1-sl2)>=e) do

begin

sl2:=sl1;

f2:=f2+sl1;

k:=k+1;

sl1:=1/((2*k-1-x)*(2*k-1+x));

end;

f2:=f2*x*4/PI;

writeln('| ',i:2,' | ', x:5:2,' | ',f1:12:9,'| ',f2:5:2,' | ');

x:=x+h;

end;

writeln('----------------------------------------');

readln

END.

Результаты работы программы:

____________________________

| | | | |

| n | x | f1(x) | f2(x) |

|__ |____ |______ ______|______|

| 1 | -0.60 | -1.376381920| -1.37 |

| 2 | -0.55 | -1.170849566| -1.16 |

| 3 | -0.50 | -1.000000000| -0.99 |

| 4 | -0.45 | -0.854080685| -0.85 |

| 5 | -0.40 | -0.726542528| -0.72 |

| 6 | -0.35 | -0.612800788| -0.61 |

| 7 | -0.30 | -0.509525449| -0.50 |

| 8 | -0.25 | -0.414213562| -0.41 |

| 9 | -0.20 | -0.324919696| -0.32 |

| 10 | -0.15 | -0.240078759| -0.24 |

| 11 | -0.10 | -0.158384440| -0.16 |

| 12 | -0.05 | -0.078701707| -0.08 |

| 13 | 0.00 | 0.000000000| 0.00 |

| 14 | 0.05 | 0.078701707| 0.08 |

| 15 | 0.10 | 0.158384440| 0.16 |

| 16 | 0.15 | 0.240078759| 0.24 |

| 17 | 0.20 | 0.324919696| 0.32 |

| 18 | 0.25 | 0.414213562| 0.41 |

| 19 | 0.30 | 0.509525449| 0.50 |

| 20 | 0.35 | 0.612800788| 0.61 |

--------------------------------------------

X:=A

I := 1

2

Нет

Да

f1:=sin(x*PI/2)/cos(x*PI/2);

sl1:=1/((1-x)*(1+x));

f2:=0;

sl2:=sl1+2*e;

k:=1;

Нет

Да

sl2:=sl1;

k:=k+1;

f2:=f2+sl1;

sl1:=1/((2*k-1-x)*(2*k-11+x));

1

1

Вывод результатов

x:=x+h;

2

Рис. 1 Схема алгоритма по ГОСТ 19. 701-9