Здравствуйте, гость ( Вход | Регистрация )
| 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 |
3.4.2008, 11:39
Сообщение
#2
|
|
Студент ![]() ![]() Группа: Продвинутые Сообщений: 121 Регистрация: 28.10.2007 Город: Екатеринбург Учебное заведение: УГТУ-УПИ Вы: студент |
А вроде задание было другим (IMG:style_emoticons/default/wink.gif).
Пишем функцию, вычисляющую ряд до заданного члена n в точке x. Код function f(x:real; n: integer): real; var s: real; i: integer; begin s:=0; for i:=1 to n do s:=s+(exp((2*n-1)*ln(x)))/(2*n-1); f:=s; end; Функция вычисляющая при каком n погрешность станет меньше eps. Если, например, fn(0.2, 0.001) вернет 2, то уже при 2 членах ряда погрешность менее 0.001 в точке 0.2. Код function fn(x: real; eps: real): integer; var y: real; n: integer; s: real; begin y:=(1/2)*ln((1+x)/(1-x)); n:=1; s:=x; while abs(y-s) > eps do begin n:=n+1; s:=s:=s+(exp((2*n-1)*ln(x)))/(2*n-1); end; fn:=n; end; Думаю теперь Вы сможете составить программу (IMG:style_emoticons/default/smile.gif). |
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
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![]() ![]() |
|
Текстовая версия | Сейчас: 19.4.2026, 12:37 |
Зеркало сайта Решебник.Ру - reshebnik.org.ru