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

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

Дано натуральное n, действительное число x. Вычислить сумму ряда

Спойлер

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

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

uses crt;
var n,i:integer;
    x,z,s:real;
begin
clrscr;
write('x=');
readln(x);
write('n=');
readln(n);
s:=0;
z:=1;
for i:=1 to n do
 begin
  z:=z*2;
  s:=s+abs(x-1)/z;
 end;
write('s=',s:0:3);
readln
end.

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

В первой строке кода используется библиотека crt, которая является стандартной для языка Turbo Pascal и используется для ввода/вывода данных.
Далее объявляются переменные n и i типа integer, а также переменные x, z и s типа real.
Строка clrscr используется для очистки экрана перед началом ввода данных.
В следующей строке читается значение переменной x с помощью функции readln.
В следующей строке читается значение переменной n с помощью функции readln.
Переменная s инициализируется значением 0.
Переменная z инициализируется значением 1.
Затем начинается цикл for, который выполняется от 1 до n.
Внутри цикла переменная z умножается на 2.
Переменная s увеличивается на абсолютное значение (|) разности между x и 1, деленное на z.
После окончания внутреннего цикла переменная s записывается в переменную s с точностью до трех знаков после запятой.
В конце программы с помощью функции readln происходит чтение ввода пользователя и завершение работы программы.