Вычислить первые 15 чисел Фибоначчи

@H4rdcore · Регистрация: 14.06.2013

Author24 — интернет-сервис помощи студентам

Ребята, выручайте, горю. Данное задание нужно выполнить в двух вариантах: с использованием циклов с пред и постусловиями, желательно до вечера. С меня +

@H4rdcore · 30.10.2013, 17:37 **[ТС]**

план немного меняется, в эти программы нужно запихнуть золотое сечение и первыми элементами сделать 1 и 2

Pascal

uses crt;
var a,b,c,i:longint;
begin
clrscr;
a:=1;{1 и 2 числа = 1}
b:=1;
write('1 1 ');
i:=2;
repeat
c:=a+b;
write(c,' ');
i:=i+1;
a:=b;
b:=c;
until i>19;{19-е это 20-е}
readln
end.

Pascal

uses crt;
var a,b,c,i:longint;
begin
clrscr;
a:=1;{1 и 2 числа = 1}
b:=1;
write('1 1 ');
i:=2;
while i<20 do
 begin
  c:=a+b;
  write(c,' ');
  i:=i+1;
  a:=b;
  b:=c;
 end;
readln
end.

@H4rdcore · 09.11.2013, 20:24 **[ТС]**

нет знающих чтоль?

@Nafanity · 10.11.2013, 12:50

судя по заданию, тебе нужно после определения каждого последующего элемента последовательности определить V для него, разделив на предыдущий элемент. т.е в цикле, после получения с надо

Pascal

1	writeln('v=',c/b);

@H4rdcore 1 / 1 / 0 Регистрация: 14.06.2013 Сообщений: 15
		1
	Вычислить первые 15 чисел Фибоначчи 30.10.2013, 17:22. Показов 3658. Ответов 3 Метки нет (Все метки) Ребята, выручайте, горю. Данное задание нужно выполнить в двух вариантах: с использованием циклов с пред и постусловиями, желательно до вечера. С меня + Миниатюры 0

@H4rdcore 1 / 1 / 0 Регистрация: 14.06.2013 Сообщений: 15
	09.11.2013, 20:24 [ТС]	3
	нет знающих чтоль? 0

	10.11.2013, 12:50