![]() |
Здравствуйте, гость ( Вход | Регистрация )
![]() |
otherside |
![]()
Сообщение
#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 |
![]()
Сообщение
#2
|
Студент ![]() ![]() Группа: Продвинутые Сообщений: 121 Регистрация: 28.10.2007 Город: Екатеринбург Учебное заведение: УГТУ-УПИ Вы: студент ![]() |
А если так? Цифр стало больше (IMG:style_emoticons/default/smile.gif).
Код Program laba4; Var x,y,n,s:real; Begin x:=0.2; while x<=0.8 do begin y:=(1/2)*ln((1+x)/(1-x)); s:=x+exp(3*ln(x))/3+exp(5*ln(x))/5+exp(7*ln(x))/7; write('При x=', x:1:1, ', s=',s:8:8, ', y=', y:8:8,'. '); if abs(y-s)<0.01 then writeln('Погрешность менее 0.01.') else writeln('Погрешность более 0.01.'); x:=x+0.2; end; end. |
![]() ![]() |
![]() |
Текстовая версия | Сейчас: 25.5.2025, 18:42 |
Зеркало сайта Решебник.Ру - reshebnik.org.ru