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

[-=AlexXx=-]

А здесь не льзя написать?

[Лина59]

Здравствуйте,помогите мне написать на паскаль,пожалуйста!Определить первые n членов ряда Фибоначчи ,в котором первые два члена - это 0 , 1.Каждый последующий член ряда вычисляется суммированием двух предыдущих членов ряда.Я буду безумно благодарна тому кто мне поможет)

[Mad_Cat]

http://programmersforum.ru/showpost....06&postcount=4 чем не устроило7

[Лина59]

это вроде не то...у меня два первых числа 0 и 1 ...а там 1 и 1

[Mad_Cat]

это вроде не то...у меня два первых числа 0 и 1 ...а там 1 и 1

дык поменяйте

a:=1;

на

a:=0;

[Son Of Pain]

Сообщение от Лина59

Я буду безумно благодарна тому кто мне поможет

var a,b,i,n:longint;
begin
   writeln('Enter n: ');
   readln(n);
   a:=0;
   b:=1;
   for i:=1 to n do 
      if i=1 then writeln(a)
      else if i=2 then writeln(b)
      else begin
         b:=a+b;
         a:=b-a;
         writeln(b);
      end;
   readln;
end.

Ждем безумной благодарности )

[Лина59]

я сейчас проверю работает ли она)))и тогда..

[Son Of Pain]

И что тогда )

[savu_andrej]

№1. Напишите программу позволяющую печатать геометрическую фигуру- прямоугольный треугольник,предварительно выбрав необходимые символы.
№2. Для натурального числа К напечатать фразу "мы нашли К грибов в лесу" согласовав окончание слова "гриб" с числом К.
№3. При табулировании функции y= cos(x+a) на отрезке [1,10] с шагом h определить сумму значений у, больших значения P.

[IT-man]

savu_andrej, чем руководствовался когда постил в этой теме?