Паскаль

DoctorHouse · 16 Мар 2012

Паскаль

Дорогие и уважаемые программисты мне нужна срочная помощь в решении этой задачи буду очень благодарен, а то я совсем не понимаю как это делать.

http://www.tehnari.ru/attachment.php?attachmentid=71588&stc=1&d=1331928537

Vladimir_S · 17 Мар 2012

DoctorHouse написал(а):
Дорогие и уважаемые программисты мне нужна срочная помощь в решении этой задачи буду очень благодарен, а то я совсем не понимаю как это делать.

http://www.tehnari.ru/attachment.php?attachmentid=71588&stc=1&d=1331928537

А вот по этой схеме, только к другой функции адаптировать:
http://www.tehnari.ru/f43/t70115/

Уважаемый Доктор Хаус, у меня к Вам есть сугубо медицинское поручение - выяснить, что за идиот(-ка) составлял(-а) методичку, затем означенную персону изловить, снять штаны, выпороть, потом посыпать попу солью и выпороть повторно. Нет, ну это черт-те что, в короткой формуле налепить столько ошибок! Интересно, чему могут научить студентов эти горе-преподаватели с подобным отношением к делу? Объясняю. Формула в задании представлена в виде

1. Правая часть не соответствует средней - куда делся член х³/3?
2. В средней части (где знак суммы) - тоже ляп: начинать суммирование с n = 0 недопустимо, поскольку там сразу образуется ноль в знаменателе.
Короче говоря, правильно так:

Зла не хватает...

Ну ладно, вот Ваша программка:

Код:

Const
 Eps=0.0001;
 Xbeg=-1;
 Xfin=0.9;
 DX=0.1;
VAR
 N,i,k:Word;
 S,X,a,b:Real;

BEGIN
 N:=Round((Xfin-Xbeg)/DX);
 WriteLn('   X        Result      Number of items     Accurate value');
 For i:=0 to N do
  begin
   X:=Xbeg+DX*i;
   a:=1;
   S:=0;
   k:=0;
   Repeat
    Inc(k);
    a:=a*X;
    b:=a/k;
    S:=S+b;
   Until Abs(b)<Eps;
   WriteLn(X:6:3,-S:12:6,k:12,Ln(1-X):24:6);
  end;
 Readln;
END.

Если будете повышать точность, то советую исключить -1, т.е. поставить Xbeg=-0.9; Иначе там придется учитывать слишком много членов разложения, и возможна ошибка в связи с вылетом за разрядную сетку.

Паскаль

DoctorHouse

Ученик

Вложения

Vladimir_S

Ученик

Похожие темы