Помогите написать программу в TurboPascal

[HellStorm]

Дано натуральное число n. Вычислить (2+ (2+ (2+...[n раз]...+(2)^1/2 ...)^1/2 )^1/2 )^1/2

Обычно подобные задачки решаю быстро но тут что-то не могу разобраться, видимо старею

[Stilet]

Рекурсия

function aga(n:integer):Double;
begin
 if n=0 then aga:=exp(ln(0.5)*2)
 else aga:=exp(ln(0.5)*aga(n-1))
end;

[HellStorm]

Сообщение от Stilet

Рекурсия

function aga(n:integer):Double;
begin
 if n=0 then aga:=exp(ln(0.5)*2)
 else aga:=exp(ln(0.5)*aga(n-1))
end;

не хочет запускаться, пишет "для компиляции нужно быть в режиме 8087"
но ход мыслей понял, спасибо.

[Stilet]

для компиляции нужно быть в режиме 8087

double меняй на real.
Или в настройках турбика выставь режим 8087 или 80287

[HellStorm]

Сообщение от Stilet

double меняй на real.
Или в настройках турбика выставь режим 8087 или 80287

о, работает, спасибо большое