Разработать алгоритм и программу вычисления и вывода первых 15 членов последовательности и их суммы - Turbo Pascal

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

Последовательность задана рекуррентной формой и условием. . Разработать алгоритм и программу вычисления и вывода первых 15 членов последовательности и их суммы.

Решение задачи: «Разработать алгоритм и программу вычисления и вывода первых 15 членов последовательности и их суммы»

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

var
  i:integer;
  s,an,an1:real;
begin
  writeln('N':5,'An':10,'S':10);
  an:=0.5;s:=an;
  for i:=1 to 15 do begin
    writeln(i:5,an:10:4,s:10:4);
    an1:=sin(pi/2*an);
    an:=an1;
    s:=s+an1;    
  end;
  readln;
end.

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

В данном коде используется язык программирования Turbo Pascal. Он содержит следующие переменные:

i: integer (целое число) - используется для итерации цикла от 1 до 15.
s, an, an1: real (числа с плавающей точкой) - используются для хранения текущего значения последовательности, предыдущего значения и значения, вычисленного на предыдущей итерации соответственно.
N, An, S: string (строка) - используются для вывода заголовка. Алгоритм программы следующий:
Выводится заголовок с помощью функции writeln.
Инициализируются переменные an и s значениями 0.5 и 0.5 соответственно.
Запускается цикл for, который выполняется 15 раз. На каждой итерации цикла выводится текущее значение переменной i, значение an и s. Затем вычисляется значение an1 с помощью функции sin, которая возвращает синус числа pi/2 умноженного на значение an. Значение an затем обновляется, чтобы быть равным значению an1. Затем значение s обновляется, чтобы быть равным сумме an1 и an.
После завершения цикла выводится значение i, значение an и s.
Программа завершается с помощью функции readln.