Помогите решить задачу в Паскале

Alexxxxxxx · 22.10.2011, 23:30

Дано целое число N(>0).Вывести сумму 2+1/(2!)+1/(3!)+...+1/(N!) (выражение N!-"N факториал "-обозначает произведение всех чисел от 1 до N: N!=1*2*...*N).Полученное число является приближенным значением константы e=exp(1)(=2.71828183...).

Vladimir_S · 23.10.2011, 09:12

Цитата:

Сообщение от Alexxxxxxx

Дано целое число N(>0).Вывести сумму 2+1/(2!)+1/(3!)+...+1/(N!) (выражение N!-"N факториал "-обозначает произведение всех чисел от 1 до N: N!=1*2*...*N).Полученное число является приближенным значением константы e=exp(1)(=2.71828183...).

Прежде всего, спасибо за то, что просветили нас, неразумных, что такое факториал и чему равно число е - а то мы и не ведали про то! Что же касается предложенной сверхсложной задачи, то путём приложения неимоверных интеллектуальных усилий удалось получилть следующее:

Код:

VAR
 S,a:Real;
 N,i:Word;
BEGIN
 Write('N= ');
 Readln(N);
 S:=1;
 a:=1;
 For i:=1 to N do
  begin
   a:=a/i;
   S:=S+a;
  end;
 Writeln('S= ',S:10:8);
 Readln;
END.

22.10.2011, 23:30	#1 (permalink)
Alexxxxxxx Новичок Регистрация: 22.10.2011 Сообщений: 8 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите решить задачу в Паскале Дано целое число N(>0).Вывести сумму 2+1/(2!)+1/(3!)+...+1/(N!) (выражение N!-"N факториал "-обозначает произведение всех чисел от 1 до N: N!=12...*N).Полученное число является приближенным значением константы e=exp(1)(=2.71828183...).

22.10.2011, 23:30
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Возможно, ваш вопрос уже получил решение на форуме Помогите решить задачу на Паскале Помогите решить задачу в паскале

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070