Для заданного N найти сумму факториалов от 1! до N!

[дарья50397]

Дано целое число N > 0, найти сумму
1! + 2! + 3! + ... + N!
Где N! — произведение всех целых чисел от 1 до (N! = 1·2·...·N).

[BDA]

Название темы должно отражать суть вопроса (поправил). Уточните язык программирования. Что именно не получается сделать? Примерный алгоритм: запросить N, обнулить переменную для суммы, присвоить единицу переменной для текущего значения факториала, в цикле от 1 до N умножать переменную для факториала на счетчик цикла, а затем прибавлять к переменной для суммы, после цикла напечатать переменную для суммы.

[digitalis]

На незаслуженно презираемом нонче Делфи (Паскале) это звучало бы примерно так:

var i,N,sum,tmp: integer ;
begin
  sum := 1 ;
  tmp := 1 ;
  for i := 2 to N do
  begin
    tmp := tmp * i ;
    sum := sum + tmp
  end ;

А перевести уже в Ada, PL-I, Кобол - это и кошка смогла бы.

[сфинкс]

программа выше пока непроверяемая даже онлайн: ничего не выводит без 


write(sum);

n = 18: DIM f AS DOUBLE: DIM s AS DOUBLE: s = 0 'fact.bas
FOR i = 1 TO n
    f = 1
    FOR j = 1 TO i
        f = f * j
    NEXT
    PRINT i, f
    s = s + f
NEXT
PRINT: PRINT s
END

программа считает каждый факториал сызнова зато доказуемо

из qb64 qbasic на другие языки переводим сами

1
2
6
24
120

153

n до 18 показывает результаты длинные

rosettacode.org/wiki/Factorial

[digitalis]

Спасибо, насмешил. И 2*2 = 4 тоже будем проверять ?
Факториал - AS DOUBLE ? ... Ыххх-м До сих пор я думал, что это - целочисленная функция. Вот век живи - век учись. У Бесика.
https://ru.wikipedia.org/wiki/Факториал

[Arigato]

Сообщение от сфинкс

программа считает каждый факториал сызнова зато доказуемо

Пустая трата вычислительных мощностей.

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

Факториал - AS DOUBLE ?

Оправдано с точки зрения ограничений типов. Дабл больше инта, так что можно считать в дабле, просто имея в виду, что значения у нас целые.

Сообщение от сфинкс

из qb64 qbasic на другие языки переводим сами

Читаем так: "Я не смог освоить ни один из ЯП, кроме бейсика"

[ViktorR]

Это конечно флуд, но сдержаться сложно
Arigato

Читаем так: "Я не смог освоить ни один из ЯП, кроме бейсика"

Вы глубоко ошибаетесь, полагая, что qb64 qbasic - это и есть бейсик.

PS: Настроение подняла фраза.
И это просто шутка.

[сфинкс]

DIM f AS DOUBLE цель: число большое именно длинное человеческое
иначе только малые аргументы покажет по-человечески без вида x.y*10^z

могу состряпать то же в эксцель и на c#
и исправил непечатаемость в 1-м примере
ideone.com/jvhJmL

пытаюсь начать изучать эльфийский язык питон
каждый раз спрашивая себя:

зачем мне медленный текстовый ненужный язык?
разве чтобы понимать что другие пишут

главная проблема c# и др. ЯП: гигантское вступление в начале
программ чего в бэйсике и в эксцель не требуется

итого задачка: докажите что число перестановок вычисляет факториал

+ о непечатаемости: добавление казалось бы простейшего в программу
окажется неподъёмным для видящих данный язык впервые

всё одно что получив недоделку на языке абракадабра
пытаться самим доделать и помогают онлайн компиляторы
ведь недовольные версией могут создать версию свою

[Arigato]

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

Вы глубоко ошибаетесь, полагая, что qb64 qbasic - это и есть бейсик.

Классический бейсик у меня на аватаре. Только сильно сомневаюсь, что еще где-то им до сих пор пользуются...

[digitalis]

Сообщение от сфинкс

и исправил непечатаемость в 1-м примере
ideone.com/jvhJmL

О да, это в корне поменяло суть алгоритма Но исправлять - так исправлять. Что же это за безобразие N = 18 ? Уж надо бы Readln (N) . Впрочем, это же не Бесик...