Паскаль

DoctorHouse · 17.03.2012, 00:10

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

http://www.tehnari.ru/attachment.php...1&d=1331928537

Vladimir_S · 17.03.2012, 10:01

Цитата:

Сообщение от DoctorHouse

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

http://www.tehnari.ru/attachment.php...1&d=1331928537

А вот по этой схеме, только к другой функции адаптировать:
Вычисление суммы функционального ряда

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

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; Иначе там придется учитывать слишком много членов разложения, и возможна ошибка в связи с вылетом за разрядную сетку.

17.03.2012, 00:10	#1 (permalink)
DoctorHouse Новичок Регистрация: 17.03.2012 Сообщений: 1 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Паскаль Дорогие и уважаемые программисты мне нужна срочная помощь в решении этой задачи буду очень благодарен, а то я совсем не понимаю как это делать. http://www.tehnari.ru/attachment.php...1&d=1331928537 Миниатюры

17.03.2012, 00:10
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Вам должны быть интересны данные обсуждения Турбо Паскаль или Фри Паскаль. Задание по теме Типизированный файл Паскаль

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