Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Центр помощи > [Delphi]Числа Фибоначчи


Автор: KIMWO 27.6.2012, 09:45
Здравствуйте, у меня вопрос жизни и смерти.
Помогите решить задачу с помощью языка программирования Delphi 

задача состоит в следующем:
есть заданная последовательность целых чисел (n; xi, i=1...n)
найти первое число фибоначчи поповшееся в этой последовательности.
(в случае не нахождения такового вывод сообщения "нет" в случае да число фибоначчи "   ")

Пожалуйста помогите..

Автор: Pawl 28.6.2012, 19:07
Вот вариант, правда, консольный:
Код

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  mas = array[1..15] of integer;

var
  x: mas;
  i: integer;

function isFib(y: integer): boolean;
var s, s1: integer;
begin
  if (y = 1) or (y = 0) then
  begin
    isFib := true;
  end
  else
  begin
    s := 1;
    s1 := 1;
    while s < y do
    begin
      s := s + s1;
      s1 := s - s1;
    end;
    if s = y then isFib := true else isFib := false;
  end;
end;

begin
  for i := 1 to length(x) do
  begin
    x[i] := random(30);
    writeln(x[i]);
  end;
  for i := 1 to length(x) do
  begin
    if isFib(x[i]) then
    begin
      writeln('fibonacci is ', x[i]:1, ' in position ', i:1);
      readln;
      exit;
    end;
  end;
  writeln('no fibonacci');
  readln;
end.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)