VPF::[Pascal]Вычисление сумм - Форум программистов

AntonPavlov

Дата 7.3.2011, 22:28 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 86
Регистрация: 28.5.2010

Репутация: нет
Всего: нет

Помогите, пожалуйста, написать программу, которая бы вычисляла сумму по следующим формулам:
user posted image

, при х=3,3, точность вычислений - 10 в -3.
и
user posted image

, точность вычислений та же.
Как это все вообще сделать?
Насчет первой формулы есть следующие мысли:

Код


program Summa;
var x, f, s: real;
i,l: integer;
begin
l := 1;
x := 3.3;
while s < 0.001 do
begin
for i := 1 to l do f := f * i;
s := s + ln(x*l)/ln(10) / (f - l + x);
l := l + 1;
end;
write('Summa = ', s:7:4);
readln;
end.

Но по-моему, оно не правильно. По второй формуле я вообще в прострации... помогите, плиз!

ФедосеевПавел

Дата 8.3.2011, 11:42 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 291
Регистрация: 7.2.2009

Репутация: 2
Всего: 10

Для первой задачи сделано почти правильно. Только условие окончания вычислений нужно выбрать другим - с заданной точностью сравнивается не результат (сумма), а очередное слагаемое (член ряда). Также, НУЖНО ИНИЦИАЛИЗИРОВАТЬ ВСЕ ПЕРЕМЕННЫЕ ПЕРЕД ИСПОЛЬЗОВАНИЕМ. Ну, и, желательно, оформить текст программы без "магических чисел". Например, так

Код

PROGRAM Summa;

{Функция вычисления десятичного логарифма}
FUNCTION Log10(x: Real): Real;
BEGIN
  Log10:=Ln(x)/Ln(10);
END;

VAR
  l     : Integer;
  f,
  y,
  x,
  Eps,
  Sum   : Real;
BEGIN
  {Входные данные}
  x:=3.3;
  Eps:=1e-3;
  {Инициализация переменных}
  f:=1;
  Sum:=0;
  l:=1;
  repeat
    f:=f*l;                {вычисляем факториал}
    y:=Log10(l*x)/(f-l+x); {вычисляем очередное слагаемое}
    Sum:=Sum+y;            {и добавляем его к сумме}
    Inc(l);
  until Abs(y)<Eps;
  WriteLn('Summa: ', Sum);
END.

Для второго выражения всё аналогично. Я бы сделал так: вычисление суммы по j оформил как отдельную функцию SumByJ с двумя параметрами на входе (i, eps), а в теле основной программы организовал бы цикл for по i

Код

  for i:=1 to 9 do begin
    Sum;=Sum+Sqrt(i)*SumByJ(i, eps);
  end;
  Sum:=2.3*Sum;

Ну, вот как-то так...

Это сообщение отредактировал(а) ФедосеевПавел - 8.3.2011, 11:52

ФедосеевПавел

Дата 8.3.2011, 14:18 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 291
Регистрация: 7.2.2009

Репутация: 2
Всего: 10

Sorry.

Я невнимательно прочитал условие второй задачи. Конечно же, здесь нужно сначала провести математические преобразования, а потом набрасываться на клавиатуру...

Нужно преобразовать исходное выражение к следующему виду user posted image

А потом создавать два цикла. Внутренний for i, а внешний repeat по j. Условие выхода из внешнего цикла - очередное слагаемое меньше eps.

AntonPavlov

Дата 8.3.2011, 20:43 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 86
Регистрация: 28.5.2010

Репутация: нет
Всего: нет

Павел, большущее спасибо!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »