Фибоначчи и Кассини

[bot0]

Помогите написать программу которая выводит на экран n-е число Фибоначчи и проверяет выполнение соотношение Кассини. (n может быть как положительным так и отрицательным)


язык Pascal или C/C++

если на форуме уже есть готовая программа, поделитесь ссылкой...

[Alex11223]

Так все-таки "помогите написать" или "напишите за меня"?)

А ссылки на готовые программы обычно ищутся в поисковике\поиске на форуме. http://lmgtfy.com/?q=%D1%84%D0%B8%D0...D%D0%B8+pascal

[bot0]

вот, есть такой кусок программки который выводит n-e число Фибоначчи и то только положительные результаты(нужны еще отрицательные) А вот насчет проверки соотношения Кассини вообще не шарю как делать.

uses
Crt;

const
Nmax = 1001;

type
TNumber = Array[0..Nmax] of Integer;

function max(const A, B: Integer): Integer;
begin
if A > B then Max := A else Max := B;
end;

procedure One(var X: TNumber);
begin
FillChar(X, SizeOf(X), 0);
X[0] := 1;
X[1] := 1;
end;

procedure Print(X: TNumber);
var
i: Integer;
begin
for i := X[0] downto 1 do
Write(X[i]);
WriteLn;
end;

procedure Add(A, B: TNumber; var C: TNumber);
var
i, d: Integer;
begin
FillChar(C, SizeOf(C), 0);
d := 0;
for i := 1 to max(A[0], B[0]) do begin
Inc(d, A[i] + B[i]);
C[i] := d mod 10;
d := d div 10;
end;
C[0] := max(A[0], B[0]);
if d > 0 then begin
Inc(C[0]);
C[C[0]] := d;
end;
end;

var
num, N: Integer;
A, B, C: TNumber;
begin
ClrScr;
Read(N);
One(A);
One(B);
num := 2;
while num < N do begin
Add(A, B, C);
Inc(num);
A := B;
B := C;
end;
if N <= 2 then One(C);
Print(C);
ReadKey;
end.

[ololo-schoolboy]

http://e-maxx.ru/algo/fibonacci_numbers здеся можно об этом почитать вроде несложно