Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.11.2011, 08:37   #1
stupid_
Новичок
Джуниор
 
Регистрация: 01.11.2011
Сообщений: 3
По умолчанию Не могу понять часть условия задачи

Доброе утро. Есть такое задание:

При некоторых заданных x, N, E, определяемых вводом, вычислите сумму N слагаемых заданного вида, а также сумму тех слагаемых, которые по абсолютной величине больше E. Для второго случая выполните суммирование для двух значений, отличающихся на порядок, и при этом определите количество слагаемых, включенных в сумму. Сравните результаты с точным значением функции, для которой данная сумма определяет приближенное значение при x, лежащем в интервале (-R, R).

Конкретно моё уравнение я приложил во вложения. Часть задачи я понял и решил. А именно условие от и до:
При некоторых заданных x, N, E, определяемых вводом, вычислите сумму N слагаемых заданного вида, а также сумму тех слагаемых, которые по абсолютной величине больше E.
Дальше я тупо не могу понять, что нужно сделать.

Решение:
Код:
program task_last;

{$APPTYPE CONSOLE}

uses
  Windows;

var
  i, x, N, k: Integer;
  S1, S2, a, c, E, z: Extended;

begin
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);

  Write('Ââåäèòå x: ');
  ReadLn(x);
  Write('Ââåäèòå N: ');
  ReadLn(N);
  Write('Ââåäèòå E: ');
  ReadLn(E);

  // arcsin(x) = x + 1/2 x^3

  c := x*x*x;
  a := 0.5;
  S1 := x + a * c;
  S2 := 0;
  k := 0;

  for i := 2 to N do
  begin
    c := c * x * x;
    a := a * (2 * i - 1) / 2 * i;
    z := a * c / (i*2 - 1);

    S1 := S1 + z * b;
    if z > E then
    begin
      S2 := S2 + z;
      Inc(k);
    end;

  end;

  ReadLn;
end.
Спасибо.
Изображения
Тип файла: jpg test.JPG (3.7 Кб, 15 просмотров)
stupid_ вне форума Ответить с цитированием
Старый 01.11.2011, 09:23   #2
stupid_
Новичок
Джуниор
 
Регистрация: 01.11.2011
Сообщений: 3
По умолчанию

Всё, я разобрался.
stupid_ вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Не могу совместить 2 условия ruffer Помощь студентам 2 23.10.2011 19:55
Не могу понять условие задачи! Filia Помощь студентам 0 10.10.2011 18:46
Сумма ряда (Pascal). Не могу понять смысл задачи :( DsDevis Помощь студентам 9 26.03.2009 01:16
не могу понять как решать задачи по паскалю! aiktz Помощь студентам 10 11.03.2009 16:43
Не могу понять как решить задачи. Нужна помощь Студент заочник Помощь студентам 9 30.12.2008 23:49