Фибоначчиева система счисления

@Khan4565 · Регистрация: 07.10.2016

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

Здравствуйте, помогите сделать задание по информатике, пожалуйста.

Комментарий модератора

Перепишите условие задачи в тему, иные способы, а уж тем более ссылки на сторонние форумы,запрещены.

ФедосеевПавел · 07.10.2016, 19:04

Не по теме:

А вы в школе заочно учитесь? Не списываете друг у друга?

Ну и внизу приведены ссылки на темы с такими же названиями - списывайте с форума.

Добавлено через 21 минуту
Я бы наверное решал проще, чем по ссылке Фибоначчиева система счисления

Добавлено через 47 минут
Исправил ошибку - для x=0 выводило неверный результат.

Pascal

program Fibb;
 
  procedure IntToFibb(x: integer);
  var
    Fcurr, Fprev: integer;
  begin
    Write(x, '(10)=');
    Fcurr := 1;
    Fprev := 1;
    while Fcurr <= x do
    begin
      Fcurr := Fcurr + Fprev;
      Fprev := Fcurr - Fprev;
    end;
    Fprev := Fcurr - Fprev;
    Fcurr := Fcurr - Fprev;
    repeat
      if (x >= Fcurr) then
      begin
        x := x - Fcurr;
        Write('1');
      end
      else
        Write('0');
      Fprev := Fcurr - Fprev;
      Fcurr := Fcurr - Fprev;
    until (Fprev + Fcurr) <= 1;
    writeln('(fib)');
  end;
 
var
  x: integer;
begin
  writeln('Введите число:');
  readln(x);
  IntToFibb(x);
end.

	07.10.2016, 19:04

Фибоначчиева система счисления

Решение