Цикл - Pascal (80911)

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

program N_AV;
 
var
  k: integer;
  y, x: real;
 
begin
  x:=1;
  for k := 1 to 15 do
  begin
    y := (exp(k*ln(x))/k)*sin(pi/2);
    writeln('y=', y:5:2);
  end;
end.

как обьяденить ответы

Решение задачи: «Цикл»

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

y :=y+ (exp(k*ln(x))/k)*sin(pi/2);

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

Происходит присваивание значения переменной y
Значение переменной y увеличивается на (exp(k*ln(x))/k)*sin(pi/2), где
- exp - функция экспоненты
- k - некоторая константа
- ln(x) - натуральный логарифм от x
- sin(pi/2) - синус от pi/2 (90 градусов)