Функции: заполнить массив случайными числами и отобрать в другой массив все числа Фибоначчи

@Вася195 · Регистрация: 15.03.2016

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

Заполнить массив случайными числами и отобрать в другой массив все числа Фибоначчи. Используйте логическую функцию, которая определяет , являются ли переданное ей число числом Фибоначчи.
привер
массив а:
12 13 85 34 47
массви в:
13 34

@JuriiMW · 22.09.2016, 07:49

Pascal

const n = 10;
 
function fib(n : Integer) : Boolean;
begin
  var a := 1; var b := 1;
  while a < n do
    (a, b) := (b, a + b);
  Result := a = n;
end;
 
begin
  var a := ArrRandomInteger(n, 1, 100);
  WriteLn(a);
  var b := a.Where(i -> fib(i));
  WriteLn(b);
end.

@Вася195 · 22.09.2016, 16:25 **[ТС]**

а вот эту часть проще и понятнее никак нельзя сделать?

Pascal

    (a, b) := (b, a + b);
  Result := a = n;
end;
 
begin
  var a := ArrRandomInteger(n, 1, 100);
  WriteLn(a);
  var b := a.Where(i -> fib(i));
  WriteLn(b);
end.

@volvo · 22.09.2016, 17:35

А чего ты полез в PAscalABC.NET, если тебе нужно писать программы в стиле древнего Турбо-Паскаля? Кому оно тут надо, писать тонны кода, если задача решается в две строки?

@Вася195 · 22.09.2016, 18:05 **[ТС]**

потому что мы решаем задачи в PAscalABC.NET

@JuriiMW · 23.09.2016, 06:54

Вася195, ну, дык, программа и написана именно на PascalABC.NET…

@Cyborg Drone · 26.09.2016, 01:49

Функцию можно малость упростить.

Pascal

function fib(n : Integer) : Boolean;
var a, b: longint;
begin
  a := 5 * n * n;
  b := a;
  a := a + 4;
  b := b - 4;
  result := (sqr(round(sqrt(a))) = a) or (sqr(round(sqrt(b))) = b)
end;

@Вася195 0 / 0 / 0 Регистрация: 15.03.2016 Сообщений: 89
		1
	Функции: заполнить массив случайными числами и отобрать в другой массив все числа Фибоначчи 21.09.2016, 13:28. Показов 12242. Ответов 6 Метки нет (Все метки) Заполнить массив случайными числами и отобрать в другой массив все числа Фибоначчи. Используйте логическую функцию, которая определяет , являются ли переданное ей число числом Фибоначчи. привер массив а: 12 13 85 34 47 массви в: 13 34 0

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	22.09.2016, 17:35	4
	А чего ты полез в PAscalABC.NET, если тебе нужно писать программы в стиле древнего Турбо-Паскаля? Кому оно `тут` надо, писать тонны кода, если задача решается в две строки? 0

@Вася195 0 / 0 / 0 Регистрация: 15.03.2016 Сообщений: 89
	22.09.2016, 18:05 [ТС]	5
	потому что мы решаем задачи в PAscalABC.NET 0

@JuriiMW 5079 / 2651 / 2349 Регистрация: 10.12.2014 Сообщений: 10,028
	23.09.2016, 06:54	6
	Вася195, ну, дык, программа и написана именно на PascalABC.NET… 0

	26.09.2016, 01:49

Функции: заполнить массив случайными числами и отобрать в другой массив все числа Фибоначчи

Решение