|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
24.08.2014, 22:09 | #1 |
Регистрация: 24.08.2014
Сообщений: 7
|
практическая
Задание №9 (совпадают)
Для аргумента , изменяющегося от –0.6 с шагом 0.05 вычислить 20 значений функций.. Функцию f2(x) вычислить для ряда точностей . Для указанных точностей определить количество N элементов ряда, суммируемых для достижения заданной точности. Результаты расчетов свести в таблицу. функции прикруплены в картинке. Проблема в том что f2 не сходится с имеющемися ответами ответами вот что получилось, И еще выделенное K1 наченать с 0 или -1 : Код:
Последний раз редактировалось Serge_Bliznykov; 25.08.2014 в 11:32. |
25.08.2014, 20:09 | #2 |
Регистрация: 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. |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Практическая по 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 |