Вычислить сумму ряда - Turbo Pascal (33907)

Формулировка задачи:

Дано вещественное число х. Вычислить: x x2 xn 1 + ── + ── + ... + ── + ... с точностью Е. 1! 2! n! 2 и n в числителе - это степень x (примечание)

Решение задачи: «Вычислить сумму ряда»

Листинг программы

uses crt;
var s:real;
    x,f,st,n,i:integer;
BEGIN
clrscr;
   write('n = ');
   read(n);
   write('x = ');
   read(x);
   s:=1;f:=1;st:=1;
   for i:=1 to n do
    begin
     f:=f*i;
     st:=st*x;
     s:=s+st/f;
    end;
 
    write('S = ',s:3:2);
 
readkey;
END.

Объяснение кода листинга программы

В первой строке кода используется библиотека crt, которая является стандартной для языка Turbo Pascal.
Переменная s типа real используется для хранения суммы ряда.
Переменные x, f, st и n типа integer используются для хранения соответствующих значений.
Строки write('n = ') и write('x = ') используются для вывода значений переменных n и x на экран.
Строка read(n) используется для чтения значения переменной n с клавиатуры.
Строка read(x) используется для чтения значения переменной x с клавиатуры.
Переменные f, st и s инициализируются единицами.
В цикле for переменной i от 1 до n происходит следующее:
- Переменная f умножается на значение i.
- Переменная st умножается на значение x.
- Переменная s увеличивается на результат деления переменной st на переменную f.
В конце цикла переменная s выводится на экран с помощью строки write('S = ',s:3:2).
Строка readkey; используется для ожидания нажатия клавиши перед завершением программы.