IPB

Здравствуйте, гость ( Вход | Регистрация )

> программа по вичислению рядов в паскале, сравнение двух функций
otherside
сообщение 1.4.2008, 15:05
Сообщение #1


Студент
**

Группа: Продвинутые
Сообщений: 98
Регистрация: 29.2.2008
Город: красноярск
Учебное заведение: КрижтИрГупс
Вы: студент



подскажите пожалуйста как сделать, нужно в паскале написать программу, которая бы высчитывала значения функций y=(1/2)*ln{(1+x)/(1-x)} и s=x+(x^3)/3+(x^5)/5+(x^7)/7 при x{0,2;0.8} с шагом dx=0,2. после всех вычислений программа должна сравнить значения у и s, так чтобы разница между ними не превышала 0,01, и если такое значение получилось, то программа должна вывести то значение х при котором погрешность равна 0,01. я так поняла что s это сумма {x^(2n-1)}/2n-1
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Ответить в эту темуОткрыть новую тему
Ответов
creer
сообщение 1.4.2008, 19:47
Сообщение #2


Студент
**

Группа: Продвинутые
Сообщений: 121
Регистрация: 28.10.2007
Город: Екатеринбург
Учебное заведение: УГТУ-УПИ
Вы: студент



Я немного переформулирую задачу, поскольку чем ближе к 0, тем меньше разница между s и y. Найти максимальное значение x с точностью epsx, при котором погрешность не превышает eps.
Данное значение находится между 0 и 1.

min:=0;
max:=1;

eps:=0.01;
epsx:=0.0001;

Вычтем s из y. Данная функция возрастает. Для учета погрешности вычтем eps из разности y и s. Фукция (y-s-eps) меняет знак в одной точке на интервале от 0 до 1. Найдем эту точку с погрешностью epsx делением отрезка пополам. Мы делим отрезок, и в зависимости от знака, используем либо левую часть отрезка, либо правую. Когда ширина отрезка станет меньше epsx, необходимое значение будет найдено.

Пишем цикл:

repeat
y:=(1/2)*ln((1+(max+min)/2)/(1-(max+min)/2));
s:=(max+min)/2+exp(3*ln((max+min)/2))/3+exp(5*ln((max+min)/2))/5+exp(7*ln((max+min)/2))/7;
if (y-s-eps)<0 then
min:=(max+min)/2
else
max:=(max+min)/2;
until max-min<epsx;

Значение (max+min)/2 и будет искомым значением.
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения

Сообщений в этой теме
otherside   программа по вичислению рядов в паскале   1.4.2008, 15:05
creer   Вначале несложно, степень можно вычислить через ло...   1.4.2008, 16:37
otherside   Вначале несложно, степень можно вычислить через л...   1.4.2008, 17:09
creer   Я немного переформулирую задачу, поскольку чем бли...   1.4.2008, 19:47
otherside   Я немного переформулирую задачу, поскольку чем бл...   2.4.2008, 3:51
otherside   Program laba4; Var x,y,n,s:real; Begin x:=0.2; Whi...   2.4.2008, 5:43
creer   Добавлю свои комментарии :) Хотя судя по всему, ...   2.4.2008, 7:09
otherside   Добавлю свои комментарии :) Хотя судя по всему, н...   2.4.2008, 13:09
creer   А если так? Цифр стало больше :). Program laba4; ...   2.4.2008, 18:33
otherside   А если так? Цифр стало больше :). Program laba4;...   3.4.2008, 4:41
creer   А вроде задание было другим ;). Пишем функцию, выч...   3.4.2008, 11:39
otherside   Думаю теперь Вы сможете составить программу :). ...   3.4.2008, 12:08
creer   Хм. А чем плохи функции? С ними же удобнее... var...   3.4.2008, 13:02
otherside   Хм. А чем плохи функции? С ними же удобнее... va...   3.4.2008, 13:07
creer   Вместо for n:=1 to 5 do //Для n от 1 до 5 выводим ...   3.4.2008, 13:26
otherside   Вместо for n:=1 to 5 do //Для n от 1 до 5 выводим...   3.4.2008, 14:10
creer   Мне так захотелось :). Можно поставить любое число...   3.4.2008, 14:24
otherside   Мне так захотелось :). Можно поставить любое числ...   3.4.2008, 14:43
creer   Это число знаков после запятой при выводе и табул...   3.4.2008, 15:32
otherside   Это число знаков после запятой при выводе и табул...   3.4.2008, 15:35
creer   Удачи в изучении Паскаля :yes:   3.4.2008, 16:03
otherside   Удачи в изучении Паскаля :yes: спасибо огромное...   3.4.2008, 16:45


Ответить в эту темуОткрыть новую тему
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия Сейчас: 25.5.2025, 15:57

Книжки в помощь: "Сборник заданий по высшей математике" Кузнецов Л.А., "Сборник заданий по высшей математике" Чудесенко В.Ф., "Индивидуальные задания по высшей математике" Рябушко А.П., и другие.




Зеркало сайта Решебник.Ру - reshebnik.org.ru