Составить программу вычисления значения функции - Turbo Pascal (249393)

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

Составить программу вычисления значения функции

Решение задачи: «Составить программу вычисления значения функции»

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

uses crt;
var n,i:integer;
    x,z:real;
begin
clrscr;
write('x=');
readln(x);
z:=100+x/101;
for i:=99 downto 1 do
z:=i+x/z;
z:=x/z;
write('Z=',z:0:6);
readln
end.

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

uses crt; - Импортируем модуль CRT (используем функцию чтения и записи в консоль)
var n,i:integer; - Объявляем две целочисленные переменные для выполнения цикла
x,z:real; - Объявляем две вещественные переменные для хранения значения числа и результата вычисления
clrscr; - Очищаем экран для следующего вывода
write('x='); - Выводим приглашение для ввода значения переменной x
readln(x); - Считываем значение переменной x с помощью функции readln
z:=100+x/101; - Вычисляем значение переменной z как сумму 100 и x/101
for i:=99 downto 1 do - Запускаем цикл от 99 до 1 с шагом -1
z:=i+x/z; - Вычисляем значение переменной z как сумму i и x/z
z:=x/z; - Вычисляем значение переменной z как результат деления x на z
write('Z=',z:0:6); - Выводим значение переменной z с точностью до 6 знаков после запятой
readln; - Ожидаем нажатия клавиши Enter для завершения программы