Bài 35/2000 - Các phân số được sắp xếp
(Dành cho học sinh THPT)
Program bai35;
Uses crt;
Type Phanso = (tu, mau);
Var F: array[1..4000, phanso] of integer;
N, dem : Integer;
Procedure nhap;
Begin
Write('Nhap so N:'); Readln(N);
F[1,tu] := 0; F[1,mau] := 1; dem := 2;
F[dem, tu] := 1; F[dem,mau] := 1;
End;
Procedure Chen(t,m,i:Integer);
Var j:integer;
Inc(dem);
For j := dem downto i + 1 do
begin
F[j,tu] := F[j-1,tu];
F[j,mau] := F[j-1,mau];
end;
F[i,tu] := t; F[i,mau] := m;
Program xuli;
Var t,m,i:integer;
for m:=2 to N do
for t:=1 to m-1 do
begin
i:=1;
While (F[i,tu]*m < F[i,mau]*t) do inc(i);
If (F[i,tu]*m > F[i,mau]*t) then chen(t,m,i);
end;
Procedure xuat;
var i:integer;
for i:=2 to dem do
If WhereX > 75 then writeln;
If WhereY > 24 then
begin
Write('Nhan Enter de tiep tuc');
Readln;
end;
write('Tat ca co', dem,' phan so.');
Readln;
BEGIN
nhap;
xuli;
Xuat;
END.
Bạn đang xem bài 35/ - 100 DE TIN HSG CO DAP AN