ớ sao bài mình lại lỗi dạ?
Mã lệnh:
program tran;
Uses crt;
Var Fi, Fo: text;
n: integer;
Procedure Laydulieu;
Begin
Assign(Fi, 'C:\Users\Code\Desktop\pascall\fi\fibonaci.inp');
Reset(Fi);
read(Fi, n);
Close(Fi);
end;
Procedure Xuli;
Var vitri: array[1..100] of LongInt;
t, i, d, j: integer;
ok: boolean;
var fibonacy: array[0..200] of Integer;
Begin
Assign(Fo, 'C:\Users\Code\Desktop\pascall\fi\fibonaci.out');
Rewrite(Fo);
Fibonacy[1]:= 1;
Fibonacy[2]:= 1;
t:= 3;
d:= 3;
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 2 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.
lỗi Data elements is too large
Loga
Sinh Học lớp 12
