Найти сумму факториалов - Turbo Pascal
Формулировка задачи:
Язык программирования Паскаль. Составить программу вычисления S=1!+2!+…+n!
Решение задачи: «Найти сумму факториалов»
textual
Листинг программы
uses crt; var s,f,i,n:longint; BEGIN clrscr; repeat write('n = '); read(n); until n>0; s:=0;f:=1; for i:=1 to n do begin f:=f*i; s:=s+f; end; write('S = ',s); readkey; END.
Объяснение кода листинга программы
- В начале кода подключается библиотека crt, которая используется для работы с вводом/выводом в Turbo Pascal.
- Затем объявляются переменные s, f и i типа longint, которые будут использоваться для хранения суммы факториалов чисел от 1 до n.
- Далее идет команда clrscr, которая очищает экран.
- Затем начинается цикл repeat-until, который будет выполняться до тех пор, пока n (переменная, которую мы читаем с экрана) больше 0.
- Внутри цикла переменная s инициализируется значением 0, а переменная f инициализируется значением 1.
- Затем следует цикл for, который выполняется от 1 до n. На каждой итерации переменная f умножается на текущее значение i, а переменная s увеличивается на сумму произведения f и i.
- После завершения цикла for выводится сообщение 'S = ', за которым следует значение переменной s.
- Наконец, с помощью команды readkey происходит ожидание нажатия клавиши перед завершением программы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д