Pascal нахождение точного значения числа

[Зорянка]

Последовательность определенна своим общим членом an = 2^(n-1)*(1/(корень(3)-1)^n+(-1)^n/(корень(3)+1)^n)
Написать программу, что находит точное значение для любого n из промежутка [0,150].
Для проверки, при n=58 получим 10359022039470231387111424.

[Stilet]

Ну дык в чем проблема?

[Зорянка]

Дуже дякую. Я написала программу она находит члены последовательности, но только она выводит в числе 18 цифр, а мне надо не ограничено. Я где-то читала что это надо делать записывая число в строку, но я не знаю как это делать.
Моя программа:

{$N+}
program lab;
uses crt;
var a,l,k1,k2,b1,b2,s1,s2:extended;
i:integer;
begin
clrscr;
a:=0;
k1:=sqrt(3)-1;
k2:=sqrt(3)+1;
b1:=1/k1;
b2:=1/k2;
for i:=0 to 150 do
begin
if i mod 2=0 then
begin
a:=exp((i-1)*ln(2));
s1:=exp(i*ln(b1));
s2:=exp(i*ln(b2));
l:=a*(s1+s2);
writeln(l:20:2,' ',i);
end;
if i mod 2=1 then
begin
a:=exp((i-1)*ln(2));
s1:=exp(i*ln(b1));
s2:=exp(i*ln(b2));
l:=a*(s1-s2);
writeln(l:20:2,' ',i);
end;
end;
end.

[Stilet]

а мне надо не ограничено.

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

[Зорянка]

Поэтому я к вам и обратилась.

[Stilet]

Увы я длинную арифметику не знаю...

[Utkin]

Этот вопрос по длинной арифметике подымался уже не раз и периодически. Имеется библиотека длинных чисел от Vit с сайта Vingrad (поищите там в поиске). Если Вас не устроит обратитесь ко мне, имеется самописная (четыре основных операции и ряд преобразований). Отличие от Витовской - более низкая скорость и длина чисел ограничена длиной строки (имеется ввиду длинные строки AnsiString, т.е. по сути сколько Вам Виндовс позволит). Предупреждаю сразу во всех таких модулях длинных чисел деление жутко хромает и если у Вас проц слабенький результата могут дождаться уже Ваши внуки.