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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 08.07.2014, 15:49   #1
aleksch
Новичок
Джуниор
 
Регистрация: 08.07.2014
Сообщений: 3
По умолчанию Pascal - Программу вычисления суммы/произведения

Написать программу вычисления суммы (произведения) конечного ряда. При разработке программы предусмотреть пропуск слагаемых (множителей), равных нулю или бесконечности.
P/S Значение k ввести с клавиатуры
aleksch вне форума Ответить с цитированием
Старый 08.07.2014, 18:27   #2
flance
Форумчанин
 
Регистрация: 31.05.2011
Сообщений: 184
По умолчанию

Добрый день.

Если еще актуально, пишите, обсудим

Почта flancejob собака ya.ru
Скайп flancejob

Лучше по скайпу.
Программист-фрилансер, готовый рассмотреть предложения на постоянную удаленную работу... Ответственный, трудолюбивый
telegram: flancejob
flance вне форума Ответить с цитированием
Старый 08.07.2014, 20:21   #3
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Код:
var
  s, z, f: real;
  i, k: integer;

begin
  s := 0;
  write('k=');
  readln(k);
  f := 1;z := -1;
  for i := -2 to k do
  begin
    z := -z;
    f := f * (i + 3);
    if (i - 4) <> 0
      then s := s + z * f / 2 / (i - 4);
  end;
  writeln('s=', s:6:3);
end.
Цитата:
k=5
s=-19826.633
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Программирование вычисления суммы и произведения irischka-ps Паскаль, Turbo Pascal, PascalABC.NET 4 01.04.2012 21:58
Составить алгоритм вычисления суммы и произведения ряда FOrus101 Помощь студентам 1 19.02.2012 19:33
Составить программу вычисления суммы. Obender13 Помощь студентам 0 05.11.2009 18:14
составить программу для вычисления скалярного произведения векторов a и b zxspec Фриланс 11 21.09.2009 15:49
Составить программу вычисления суммы Ленка Помощь студентам 8 28.05.2009 13:29