Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.08.2014, 22:09   #1
RADik_bo
 
Регистрация: 24.08.2014
Сообщений: 7
По умолчанию практическая

Задание №9 (совпадают)
Для аргумента , изменяющегося от –0.6 с шагом 0.05 вычислить 20 значений функций.. Функцию f2(x) вычислить для ряда точностей . Для указанных точностей определить количество N элементов ряда, суммируемых для достижения заданной точности. Результаты расчетов свести в таблицу.
функции прикруплены в картинке.
Проблема в том что f2 не сходится с имеющемися ответами ответами вот что получилось, И еще выделенное K1 наченать с 0 или -1 :
Код:
Program Ex1;
uses crt;
const
eps1=0.01;{точность  10^-2}
eps2=0.001;{точность 10^-3}
eps3=0.0001;{точность 10^-4}
a=-0.6;{начальное значение X}
b=0.05;{шаг}
n=20;{количество значений функций}
var 
k1,k2,k3,i,j: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;{начальное значение X}
for i:=1 to N do
begin
{вычисление функции F1}
 F1:=((1-x*x)*(1-x*x)*ln(((1+x)/(1-x)))+2*(1+x*x)*(1+x*x)*arctan(X)-4*x)/32;
{вычисление функции F2}
step:=x
Изображения
Тип файла: jpg Безымянный.jpg (6.7 Кб, 141 просмотров)

Последний раз редактировалось Serge_Bliznykov; 25.08.2014 в 11:32.
RADik_bo вне форума Ответить с цитированием
Старый 25.08.2014, 20:09   #2
RADik_bo
 
Регистрация: 24.08.2014
Сообщений: 7
По умолчанию

Program Ex1;
uses crt;
const
eps1=0.01;{точность 10^-2}
eps2=0.001;{точность 10^-3}
eps3=0.0001;{точность 10^-4}
a=-0.6;{начальное значение X}
b=0.05;{шаг}
n=20;{количество значений функций}
var
k1,k2,k3,i,j: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;{начальное значение X}
for i:=1 to N do
begin
{вычисление функции F1}
F1:=((1-x*x)*(1-x*x)*ln(((1+x)/(1-x)))+2*(1+x*x)*(1+x*x)*arctan(X)-4*x)/32;
{вычисление функции F2}
step:=x; {начальное значение степени X}
F2_1:=0; {начальное значение функции F2_1}
k1:=-1;
repeat {итерационный цикл для точности 10^-2}
inc(k1);
step:=step*x*x*x*x;{наращивается степень}
slag:=step/((4*k1+1)*(4*k1+3)*(4*k1+5));{счита ется очередное слагаемое}
F2_1:=F2_1+slag;{считается значение F2_1 }
until abs(slag)<=eps1; {выход из цикла когда слогаемое становится меньше
точности 10^-2}
F2_2:=F2_1;
k2:=k1;
repeat
inc(k2);
step:=step*x*x*x*x;{наращивается степень}
slag:=step/((4*k2+1)*(4*k2+3)*(4*k2+5));{счита ется очередное слагаемое}
F2_2:=F2_2+slag;
until abs(slag)<=eps2; {выход из цикла когда слогаемое становится меньше
точности 10^-3}
F2_3:=F2_2;
k3:=k2;
repeat
inc(k3);
step:=step*x*x*x*x;{наращивается степень}
slag:=step/((4*k3+1)*(4*k3+3)*(4*k3+5));{счита ется очередное слагаемое}
F2_3:=F2_3+slag;{считается значение F2_3 }
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.
RADik_bo вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Практическая по Exсel Rainer082 Фриланс 4 08.02.2013 17:11
практическая по классам Natasha)) Общие вопросы C/C++ 1 17.01.2012 23:07
практическая работа LexRE5PECT Общие вопросы Delphi 0 16.06.2011 23:26
практическая с циклами по BC++ Juice_TKD Помощь студентам 2 17.05.2011 03:17
Практическая работа лузер1408 Помощь студентам 2 01.05.2010 20:24