4/5 тестов. Фибоначчи.

[RusseLfStyle]

Скажите, почему 1 тест "-",и подправьте код, пожалуйста.


Последовательностью Фибоначчи называется последовательность чисел a0, a1, ..., an, ..., где
a0 = 0, a1 = 1, ak = ak-1 + ak-2 (k > 1).
Входные данные:
Во входном файле записано целое число N (0 ≤ N ≤ 100).

Выходные данные:
В выходной файл выведите N-е число Фибоначчи.

Пример входного файла (input.txt):
4

Пример выходного файла (output.txt):
3

Program fib;
var 
    n:integer;D : Array [0..100] of LongInt;
    Function F(X : integer) : LongInt;
Begin
    if d[x]=0 then
    if (X = 1) or (X = 2)
    then D[X] := 1
    else if (x=0) then d[x]:=0
    else D[X] := F(x - 1) + F(x - 2);
    F := D[X];
End;
 begin
     readln(n);
     write(f(n));
end.

[Lasur]

А какой первый тест?

[RusseLfStyle]

.... "Пример входного файла" и "Пример выходного файла"
Я имел ввиду не первый, а один. 1-ый, 2-ой, 4-ый и 5-ый тесты проходит наура.

[Lasur]

И что у вас на выходе?

PS. "or (X = 2)" зачем?

[RusseLfStyle]

потому что 2-ой элемент последовательности тоже равен 1. А что у меня на выходе?
В моих проверках все работает,я и пишу, потому что тестер по не понятным для меня причинам выдает не правильности.

[Hacker19_90]

1) Зачем массив?
2) Рекурсия это круто но обязательно?
если да то пробуй так

function fib (x: LongInt): LongInt;
begin
    fib := 0;
    if x = 1 then fib := 0 
    else
        if x = 2 then fib := 1
            else
                if x >= 3 then
                    fib := fib(x-1) + fib(x-2)
end;

писал с потолка!

[Lasur]

2ой элемент последовательности и так вычисляется по вашему алгоритму как
d[2] = d[0] + d[1]

А по поводу тестера... Что за тестер? Если встроенный в IDE, то, простите, не помогу - никогда с Pascalем не работал. Я только алгоритм проверил.

[RusseLfStyle]

Hacker19_90, твой код ничем не отличается. Я вводил массив, чтоб сократить время выполнения программы(оно ограничено). Отличие в том, что прога твоего типа выбивает "Т"- Превышение лимита по времени выполнения теста, а моя "-"- Тест не пройден. Рекурсия всегда ведет к относительно большим затратам времени...

[Hacker19_90]

Hacker19_90, твой код ничем не отличается.

Да что ты говоришь?
Может поспорим?
Скажи **** толком что за тест который должен пройти код!
А не *** разводить тут ромашку - "это подходит, а не это не подходит"!

[Poma][a]

0 ≤ N ≤ 100

наверно поэтому и не пашет!