function fibon (n:integer):integer;
var fn, fn1, fn2, k:integer;
begin fn:=0; fn1:=1;
for k:=1 to n do
begin fn2:=fn1;
fn1:=fn;
fn:=fn2+fn1;
end;
fibon:=fn;
end;
{основная программа}
var i,n:integer;
begin write (‘kol-vo chlenov rjada’); readln (n);
for i:=1 to n do writeln (fibon (i));
readln;
end. {гиперссылка на результат выполнения программы с функцией}
Если не удалось найти и скачать презентацию, Вы можете заказать его на нашем сайте. Мы постараемся найти нужный Вам материал и отправим по электронной почте. Не стесняйтесь обращаться к нам, если у вас возникли вопросы или пожелания:
Email: Нажмите что бы посмотреть