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

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

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

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 24.12.2011, 22:12   #1
Nikki_Fantomkhayv
Новичок
Джуниор
 
Регистрация: 24.12.2011
Сообщений: 2
По умолчанию Как решить задачу в паскале с факториалом

Натуральное число n вводится с клавиатуры в пределах от 10 до 100. Вычислить S
Изображения
Тип файла: jpg норй.JPG (3.3 Кб, 89 просмотров)
Nikki_Fantomkhayv вне форума Ответить с цитированием
Старый 24.12.2011, 22:22   #2
whatever
a.k.a. Skull
Форумчанин
 
Регистрация: 17.11.2009
Сообщений: 963
По умолчанию

факториал считается так:
Код:
function fact(a:integer):Real;
begin
  result:=1;
  while a<>0 do
    begin
      result:=result*a;
      dec(a);
    end;
end;
возведение в числа a в степень n:
Код:
power(a,n);
Все остальное в цикле.
Все тривиальное просто

Последний раз редактировалось whatever; 24.12.2011 в 22:33.
whatever вне форума Ответить с цитированием
Старый 24.12.2011, 22:27   #3
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Цитата:
n вводится с клавиатуры в пределах от 10 до 100.
ну для 100! longint не хватит)
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Старый 24.12.2011, 22:31   #4
whatever
a.k.a. Skull
Форумчанин
 
Регистрация: 17.11.2009
Сообщений: 963
По умолчанию

Ага, не заметил. Значит Real;

Опытным путем установил, что до 170 хватает :D
Все тривиальное просто

Последний раз редактировалось whatever; 24.12.2011 в 22:35.
whatever вне форума Ответить с цитированием
Старый 25.12.2011, 10:19   #5
Nikki_Fantomkhayv
Новичок
Джуниор
 
Регистрация: 24.12.2011
Сообщений: 2
По умолчанию

А как вычислить S?
Nikki_Fantomkhayv вне форума Ответить с цитированием
Старый 25.12.2011, 13:42   #6
whatever
a.k.a. Skull
Форумчанин
 
Регистрация: 17.11.2009
Сообщений: 963
По умолчанию

Код:
for i:=1 to n do
  fact(i+1)/(power(2,i)*fact(i));
Все тривиальное просто
whatever вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
подкиньте идею как решить эту задачу в паскале ronny137 Помощь студентам 4 13.12.2009 15:40
Помогите решить задачу в паскале P@niSheR Помощь студентам 2 08.12.2008 18:48
Как решить задачу на паскале с опр. интегралами ternovoi Помощь студентам 2 14.10.2008 17:17
Как решить задачу на паскале с опр. интегралами ternovoi Помощь студентам 1 14.10.2008 17:15