Форум Файлы Пятница, 22.11.2024 , 13:02
bsuir.info
БГУИР: Дистанционное и заочное обучение
(файловый архив)
 Вход (быстрый)
Регистрация
Категории каталога
Другое [157]
АВС [6]
КПиЯП [80]
ОАиП [305]
ОКТ [79]
СиСПО [8]
Форма входа
Поиск
Статистика
Онлайн всего: 1
Гостей: 1
Пользователей: 0
Файловый архив
Файлы » ПОИТ » ОАиП
ИПР №1 В-26
Подробности о скачивании 24.05.2012, 12:11
Program L1;
uses crt;
Const
eps1 = 0.01; { Точность 10-2 }
eps2 = 0.01; { Точность 10-3 }
eps3 = 0.001; { Точность 10-4 }
a = -0.6; { Начальное значение Х}
b = 0.05; { Шаг}
N = 20; { Количество значений функции }
Var
k1, k2, k3, i: Integer; {Вспомогательные переменные}
f1, f2_1, f2_2, f2_3, step, slag, x: Real;

BEGIN

ClrScr;
{Рисуется шапка таблицы}
writeln('___________________________________________________________');
writeln('| | | e=0.01 | e=0.001 | e=0.0001 |');
writeln('| x | f1(x) |----------|-----------|------------|');
writeln('| | | f2(x | N | f2(x) | N | f2(x) | N |');
writeln('|_______|_____________|______|___|_______|___|________|___|');

x := a; {Начальное значение Х}

for i:=1 to N do

begin

f1:=(sqrt(3)*(sqr(x)/2)*arctan((x*sqrt(3))/(x+2)))+(((sqr(x)+2)*ln(1-(sqr(x)*x)))/4)-((3*sqr(x)*ln(1-x))/4);

{ Вычисляется значения функции f2}
step:=x*x*x; {Начальное значение степени Х}
f2_1:=X*x*x; {Начальное значение функции f2_1}
k1:=0;

repeat {Итерационный цикл для точности 10-2}
inc(k1);
step:=step*x*x*x; {Наращивается степень}
slag:=step/((k1+1)*(3*k1+1)); {Считается очередное слагаемое}
f2_1:=f2_1+slag; {Считается значение f2_1}
until abs(slag)<=eps1; {Выход из цикла, когда слагаемое становится меньше точности 10-2}

f2_2:=f2_1;
k2:=k1;

repeat {Итерационный цикл для точности 10-3}
inc(k2);
step:=step*x*x*x; {Наращивается степень}
slag:=step/((k2+1)*(3*k2+1)); {Считается очередное слагаемое}
f2_2:=f2_2+slag;
until abs(slag)<=eps2; {Выход из цикла, когда слагаемое становится меньше точности 10-3}

f2_3:=f2_2;
k3:=k2;

repeat {итерационный цикл для точности 10-4}
inc(k3);
step:=step*x*x*x; {Наращивается степень}
slag:=step/((k3+1)*(3*k3+1)); {Считается очередное слагаемое}

f2_3:=f2_3+slag;
until abs(slag)<=eps3; {Выход из цикла, когда слагаемое становится меньше точности 10-4}

{ Вывод результатов}
writeln('| ', x:5:2,' | ',f1:12:9,'| ',f2_1:5:2,'| ',
k1:2,'| ',f2_2:6:3,'| ',k2:2,'| ',f2_3:7:4,'| ', k3:2,'|');
x:=x+b;
end;

{ завершение таблицы }

write('-----------------------------------------------------------');
ReadKey
END.
Категория: ОАиП | Добавил: chigara
Просмотров: 1118 | Загрузок: 12
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]