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
сообщение 2.4.2008, 18:33
Сообщение #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.
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
otherside
сообщение 3.4.2008, 4:41
Сообщение #3


Студент
**

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



Цитата(creer @ 3.4.2008, 2:33) *

А если так? Цифр стало больше (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.


мне нужен цикл чтобы он прогонял через формулу суммы каждое число n раз. и потом выдавал их решение. более подходящее к погрешности. то есть при х=0.2 s должно быть равно 0,2 , 0,2066666 и 0,207777. и так со всеми
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения

Сообщений в этой теме
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, 21:33

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




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