Найти значение выражения, небольшой примерчик Опции

[vetal]

Привет всем! Помогите плиз решить задачку по информатике. Завтра сдавать уже нужно, а до меня не допрёт как тут решать. Задачка на простое вычисление, но у меня не получается...



модеры, так нормально ?

Вот так - нормально. Почему надо обязательно ходить неизвестно куда за файлом???

Сообщение отредактировано: volvo - 21.05.2006 21:09

[trminator]

Можно и без рекурсии. Напишу на всякий случай тоже.

const n = 50;
var i : integer;
    s : double;
begin
    s:= n;
    for i := n-1 downto 1 do
        s := i + sqrt(s);
    writeLn(sqrt(s):10:5)
end.

"с хвоста" вычисляем: сначала 50, потом 49 + sqrt(50), потом sqrt(49 + sqrt(50)), и так далее.

Сообщение отредактировано: volvo - 2.11.2006 13:40