Нужна помощь в составлении программы Pascal ABC, Вычислите значение выражения ln(x+ln(x+ln(x+...ln(x)...))),x>0,(n с Опции

[alyonka_k]

Правильно ли составлена программа?
Вычислите значение выражения ln(x+ln(x+ln(x+...ln(x)...))),x>0,(n скобок)

program log_nat;

var
  x, a, log: real; i, n: byte;

begin
  write('Введите x(>0) - '); read(x);
  write('Введите целое число n>0 - ');read(n);
  a := ln(x);
  for i := 1 to n do
    log := ln(x + ln(a));
  writeln('Ответ: ', log)
end.

Не забываем заключать код программы в соответствующие теги!

Сообщение отредактировано: APAL - 28.05.2013 13:52

[alyonka_k]

А почему m:=1.0 , а не просто 1?