Ряд Фибоначчи...на Паскале

[Sashko_Milashko]

Найдите n-й член ряда Фибоначчи, элементы которого вычисляются по формулам: a1 = a2 = 1; ai = ai-1 + ai-2, (i > 2).
П р и м е ч а н и е. Для нахождения членов ряда используйте ТОЛЬКО ДВЕ ПЕРЕМЕННЫЕ а и b.

Использовать цикл с заданным числом повторений

[Google2010]

program Fib; 
 var n:byte;
function F(k:byte):word; 
begin 
 if k<=2 then F:=1 else F:=F(k-1)+F(k-2); 
end; 

begin 
 write('введите номер числа Фиббоначчи '); 
 readln(N); 
 writeln(N,'-е число Фиббоначчи =',F(N)); 
 readln 
end.

[Sashko_Milashko]

Спасибо...но...Для нахождения членов ряда используйте ТОЛЬКО ДВЕ ПЕРЕМЕННЫЕ а и b.

[Google2010]

Cпасибо...но...Для нахождения членов ряда используйте ТОЛЬКО ДВЕ ПЕРЕМЕННЫЕ а и b.

ok

var a,b,n:integer;
begin
readln(n); 
a:=1;
b:=1;
if n<=2 then writeln (a);
else
for i:=3 to n do begin
a:=a+b;
b:=a-b;
end;
writeln(a);
readln;
end.

[-=AlexXx=-]

Помогите пожалуйста с задачей. Очень срочно надо. Вот задача:
Найти чосло в последовательности Фибоначчи большее(равное) заданному числу М и его порядковый номер. Члены ряда Фибоначчи вычисляются по формуле: F(1)=F(2)=1, F(k)=F(k-1)+F(k-2), k>2.

[sabbathist]

создаете массив f, куда заносите первые два значения. последующие значения вычисляете по формуле, которую вы показали. Потом идете по массиву с начала до тех пор, пока текущий элемент меньше заданного М. В конце выводите полученный индекс и сам элемент.

[DoDge_VipeR]

program Fib;
 var n:byte;
M:integer;
function F(k:byte):word;
begin
 if k<=2 then F:=1 else F:=F(k-1)+F(k-2);
end;

begin
 write('введите M ');
 readln(M);
n:=1;
while f(n)<=m do
inc(n);
writeln(N-1,'-е число Фиббоначчи =',F(N-1));
readln
end.

[-=AlexXx=-]

Спасибо большое!

[-=AlexXx=-]

Помогите срочно решить 3 программы:
1) В Pascal ABC составить программу для нахождения корня уравнения методом хорд(пропорциональных чисел). x-(1/(3+sin3.6x))=0, x=[0;0.85].

2) В Pascal ABC составить программу решения системы линейных уравнений матричным методом(по формулам Крамера).
Ссылка на уравнение: http://depositfiles.com/files/u65wiw6hq

3) В Pascal ABC составить программу для вычисления интеграла методом левых прямоугольников.
Ссылка на интеграл: http://depositfiles.com/files/9mpl0ao5i

[DoDge_VipeR]

сделаю! быстро и недорого! обращайтесь!