Biểu diễn N thành tổng các số Fibonaci

Code:

Uses crt;
Var Fi, Fo: text;
   n: integer;
Procedure Laydulieu;
Begin
   Assign(Fi, 'D:\Fibonacy.INP');
   Reset(Fi);
   read(Fi, n);
   Close(Fi);
end;
Procedure Xuli;
Var Fibonacy, vitri: array[1..100] of integer;
   t, i, d, j: integer;
   ok: boolean;
Begin
   Assign(Fo, 'D:\Fibobacy.out');
   Rewrite(Fo);
   Fibonacy[1]:= 1;
   Fibonacy[2]:= 1;
   t:= 1;
   d:= 2;
   ok:= true;
   While t < n do
      begin
         inc(d);
         Fibonacy[d]:= Fibonacy[d-1]+ Fibonacy[d-2];
         t:= Fibonacy[d];
      end;
   t:= n;
   j:= 0;
   For i:= d downto 1 do
      begin
         If Fibonacy[i] <= t then
            begin
               inc(j);
               Vitri[j]:= i;
               t:= t - Fibonacy[i];
            end;
      end;
      If t <> 0 then ok:= false;
      If Ok = true then
            for i:= 1 to j do
                                begin
                                If i <> j then
                                write(Fo, Fibonacy[vitri[i]], ' + ') else
                                write(Fo, Fibonacy[vitri[i]])
                                end
                                else write(Fo, 'Khong the bieu dien ');
      Close(Fo);
end;
Begin
   Laydulieu;
   Xuli;
end.


Code:

program fibonacy;
uses crt;
var fi,fo:text;
    n,x,y,z:word;
procedure doc;
begin
    readln(fi,n);
end;
procedure xuli;
begin
    repeat
    x:=1; y:=0;
          repeat
          z:=x+y;
          x:=y;
          y:=z;
          until (z>n);
    write(fo,x,' ');
    n:=n-x;
    until n=0;
end;
begin
    clrscr;
    assign(fi,'d:\ly\lyly\kt.inp');
    reset(fi);
    assign(fo,'d:\ly\lyly\kt.out');
    rewrite(fo);
    doc;
    xuli;
    readln;
end.

lyhuynh3112 đã viết:

Code:

program fibonacy;
uses crt;
var fi,fo:text;
    n,x,y,z:word;
procedure doc;
begin
     readln(fi,n);
end;
procedure xuli;
begin
     repeat
     x:=1; y:=0;
           repeat
           z:=x+y;
           x:=y;
           y:=z;
           until (z>n);
     write(fo,x,' ');
     n:=n-x;
     until n=0;
end;
begin
     clrscr;
     assign(fi,'d:\ly\lyly\kt.inp');
     reset(fi);
     assign(fo,'d:\ly\lyly\kt.out');
     rewrite(fo);
     doc;
     xuli;
     readln;
end.