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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 22.06.2012, 14:34   #1
anast2594
Новичок
Джуниор
 
Регистрация: 22.06.2012
Сообщений: 3
Восклицание составить алгоритм и программу

составить алгоритм и программу вычисления и вывода первых 15 членов последовательности и их суммы.Последовательность задана формулой
An=(-1)^n * (2n)!/2n.
Просьба составить программу..

Последний раз редактировалось anast2594; 22.06.2012 в 14:49. Причина: просьба составить программу...
anast2594 вне форума
Старый 23.06.2012, 12:49   #2
VIK_aka_TOR
Участник клуба
 
Аватар для VIK_aka_TOR
 
Регистрация: 30.01.2011
Сообщений: 1,578
По умолчанию

решение влоб...
Код:
var
n: integer;
x : real;

function fact(x :integer) : uint64; // вычисление факториала
begin
  if x = 1 then
    fact := 1
  else fact := x * fact(x - 1);
end;

begin
  for n:=1 to 15 do
    begin
      x := (power(-1,n) * fact(2*n) / (2*n));
      writeln('А',n,' = ', x );
    end;
end.
пишу код не только за печеньки
VIK_aka_TOR вне форума
Старый 23.06.2012, 15:07   #3
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,285
По умолчанию

VIK_aka_TOR, совсем уж в лоб
Кстати, сумма не подсчитана.
(2n)!/(2n)=(2n-1)!
И считает неправильно
Мой вариант:
Код:
uses
  crt;

var
  n: integer;
  x, s: extended;

begin
  x := -1;
  s := x;
  writeln('А1 = ', x:0:0);
  for n := 2 to 15 do
  begin
    x := x * (-1) * (2 * n - 1) * (2 * n - 2);
    s := s + x;
    writeln('А', n, ' = ', x:0:0);
  end;
  writeln('S = ', s:0:0);
end.
http://ideone.com/DYukl
-8841761993739702000000000000000 (A15 в программе)
-8841761993739701954543616000000 (A15 в калькуляторе)

Цитата:
взаимности ради и вас поправю...) А1 в сумме не учли)
Точно) исправлено
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )

Последний раз редактировалось BDA; 23.06.2012 в 16:04.
BDA на форуме
Старый 23.06.2012, 15:53   #4
VIK_aka_TOR
Участник клуба
 
Аватар для VIK_aka_TOR
 
Регистрация: 30.01.2011
Сообщений: 1,578
По умолчанию

и вправду... что то точность в конце теряется...
взаимности ради и вас поправю...) А1 в сумме не учли)
пишу код не только за печеньки
VIK_aka_TOR вне форума
Старый 24.06.2012, 22:15   #5
anast2594
Новичок
Джуниор
 
Регистрация: 22.06.2012
Сообщений: 3
По умолчанию

Блин спасибо вам большое!)))
очень выручили!))))
anast2594 вне форума
Закрытая тема


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
составить программу и алгоритм на языке vba! Маришка бирюкова Microsoft Office Excel 6 19.12.2010 21:56
Составить алгоритм и программу vOvA vO Помощь студентам 3 19.05.2010 07:58
Составить алгоритм и программу vOvA vO Паскаль, Turbo Pascal, PascalABC.NET 1 17.05.2010 07:24
Сортировка.Составить алгоритм и реализовать программу: Lena-eg Фриланс 7 11.02.2010 15:54