Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 12.10.2021, 13:31   #1 (permalink)
dozkordmit
Новичок
 
Регистрация: 12.10.2021
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Помогите написать программу на Паскаль

Помогите, пожалуйста! Cоставить алгоритм и программу нахождения суммы ряда с заданной точностью е. Использовать реккурентные соотношения при вычислении очередного члена ряда. Для оценки правильности результата предусмотреть вычисление по контрольной формуле 1/sqrt((1+x)^5) Вычисление суммы заканчивается, елси модуль очередного слагаемого оказывается меньше заданного значения точности (е), причём для этих рядов (при |x|<1) абсолютная величина суммы всех отброшенных членов ряда при этом оказываются меньше е.
Миниатюры
aacuiyiiue.png  
dozkordmit вне форума   Ответить с цитированием

Старый 12.10.2021, 13:31
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Участники нашего форума ранее создавали подобные топики, отсылаю вам ссылки

Помогите написать программу, Паскаль
паскаль, помогите написать программу
Помогите написать программу. Паскаль
Помогите написать программу на Паскаль

Старый 12.10.2021, 13:44   #2 (permalink)
dozkordmit
Новичок
 
Регистрация: 12.10.2021
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

var x,eps,y,z,S: real;
i:integer;
begin
write ('x='); readln(x);
write ('eps='); readln(eps);
i=2;
z:=x;
S:=z;
repeat
z:=-exp(ln(x)*(2*i))*((1/i!)+(1/((2i)!))
S:S+z;
i:=i+1
until (abs(z)> eps);
writeln('S=',S);
y:=2-(exp(ln(e)*(exp(ln(-x)*2))))-cos(x);
writeln('Y=',y);
end.
моя формула
dozkordmit вне форума   Ответить с цитированием
Старый 12.10.2021, 15:13   #3 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Да... плохи Ваши дела! Мало того, что Вы в Паскале слабоваты, но и математику знаете так... вот именно! Все эти бессмысленные экспоненты от логарифмов, а уж перл типа "ln(e)" и вовсе ни в какие ворота (к Вашему сведению, это ТОЖДЕСТВЕННАЯ ЕДИНИЦА по определению). Прочтите, что ли, вот это моё стародавнее эссе. А что до Паскаля, так он, такой-сякой, ни малейшего представления о факториалах не имеет, так что факториалы извольте программировать сами. Ручками. Равно как и постоянную Эйлера (число e), уж если Вы хотите, за каким-то лешим, её вводить в программу, нужно тоже задавать вручную. Впрочем, повторю, здесь она и нафиг не нужна.

Ну ладно, вот Вам программа, отлаженная и оттестированная. Уж и не знаю, сколь Вам это поможет.
Код:
var
 x,eps,z,a,b,c,S: real;
 i:integer;

function f(t:real):real;
begin
 f:=2.0-Exp(-Sqr(t))-Cos(t);
end;

begin
 write ('eps = '); readln(eps);
 Repeat
  write ('x = (enter "0" to quit) '); readln(x);
  if x<>0 then
   begin
    i:=1;
    a:=1/i;
    b:=1/(2*i);
    c:=a+b;
    z:=SQR(x)*c;
    S:=z;
    repeat
     Inc(i);
     z:=z/c;
     a:=a/i;
     b:=b/((2*i-1)*2*i);
     c:=a+b;
     z:=-z*SQR(x)*c;
     S:=S+z;
    until Abs(z)<eps;
    Writeln('Result: ',S:0:5,'    Pure value: ',f(x):0:5);
   end;
 Until x=0;
end.
P.S. А смысла вот этой сентенции:
Цитата:
Сообщение от dozkordmit Посмотреть сообщение
Для оценки правильности результата предусмотреть вычисление по контрольной формуле 1/sqrt((1+x)^5)
извините, не улавливаю.
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 11:11.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.