Asmeninis Gedimino Ubarto tinklaraštis
  • Fibonačio skaičius

    0
    scissors
    2008/10/24GedzisIT, Programavimas

    Per Algoritmų teorijos paskaitą gavau užduotį, sukurti programą, kuri parašytų reikiamą kiekį Fibonačio skaičių.

    Fibonačio skaičių seka – sveikųjų skaičių seka {Fn}, nusakoma taip: F0 = 0, F1 = 1, Fn+1 = Fn + Fn-1. Seka prasideda šiais skaičiais: 0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233. Paprasčiau tariant, kiekvienas šios sekos skaičius lygus dviejų prieš jį einančių skaičių sumai.

    Taigi, pateikiu savo programą – SIŲSTIS

    Dalinkis su draugais:


    Žymos: ,

7 komentarai (-ų) apie įrašą - “Fibonačio skaičius”

  1. Romas

    funkcija fibonačio skaičiui rasti:
    function fibo(n: integer);
    var fn, fn1, fn2, k : integer;
    begin
    fn1 := 1;
    fn := 0;
    for k := 1 to n do
    begin
    fn2 : = fn1;
    fn1 := fn;
    fn := fn1 + fn2;
    end;
    fibo := fn;
    end;

  2. Gedzis

    Nu ir sitoks galimas variantas, taciau jei butu reiklinga panaudoti 6-aji sekos nari, o poto 8 ir 2, tj tada reiktu isnaujio skaiciuoti :P:P

  3. eAndrius

    patarčiau naudoti dinaminio programavimo principą

  4. Gedzis

    NU joa, bet mes universitete dinaminio programavimo nesimokem, beto manau kad mazai kas suprastu ka tai reiskia 🙂 🙂

  5. Rasa

    Labas.
    Bandau programuoti Pascal’iu.
    Ką tik atsisiunčiau Tavo uždavinį apie Fibonačio skaičius. Patark, kaip suprogramuoti panašaus tipo uždavinį, tik reikia nustatyti, ar duotas skaičius yra Fibonačio skaičius. Jei nėra, išvesti į eraną du jo kaimynus. Ačiū.

  6. Gedzis

    Nu čia reiktu naudoti while ciklą vietoj for.

  7. Anonym

    tavo programoje nereikalinga eilute kur aprasytas masyvas (masyvas : array[1..10] of integer]..

Palik komentarą

Jūs turite būti prisijungęs, norėdamas komentuoti.