Categories
IT Programavimas

Fibonačio skaičius

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

By Gedzis

Gediminas Ubartas

7 replies on “Fibonačio skaičius”

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;

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ū.

Leave a Reply