Bài giải CLB kì 2 của Lương Văn Đô 11TL

Const fi = 'daycon.inp';
fo = 'daycon.oup';
var
a: array[0..1001] of longint;
tong: longint;
f,g : text;
n : integer;
Procedure docdulieu;
var i: integer;
begin
assign(f,fi); reset(f);
readln(f,n);
tong := 0;
for i := 1 to n do
begin
read(f,a[i]); tong := tong + a[i] ;
end;
close(f);
end;
Procedure sapxep;
var i,j : integer;
tg : longint;
begin
for i := 1 to n - 1 do
for j := i + 1 to n do
if a[i] > a[j] then
begin
tg := a[i]; a[i] := a[j]; a[j] := tg;
end
end;
Procedure xuli;
var i, kiluc : integer;
begin
kiluc := n;
sapxep;
i := n;
while i > 3 do
if a[i] + a[i-1] + a[i-2] > tong - (a[i] + a[i-1] + a[i-2]) then
begin
tong := tong - a[i];
dec(i); dec(kiluc);
end
else break;
assign(g,fo); rewrite(g);
if kiluc > 3 then writeln(g,kiluc) else write(g,0);
close(g);
end;
BEGIN
Docdulieu;
xuli;
END.
============================================
Admin đã có chỉnh sửa đôi chút!

Ghê chùi , hem hỉu zì chơn =))

hem bik gì lun...

Giải thích dùm luôn nè:

Const fi = 'daycon.inp';
fo = 'daycon.oup';
var
a: array[0..1001] of longint;
tong: longint;
f,g : text;
n : integer;

Đoạn này là phần khai báo cho chương trình chính, gồm các biến toàn cục, các file fi, fo là các file input, output tương ứng! Không biết các mem có hiểu input,output không nữa - hẽm hiểu thì lỗi thầy dạy tin học ấy!

Procedure docdulieu;
var i: integer;
begin
assign(f,fi); reset(f);
readln(f,n);
tong := 0;
for i := 1 to n do
begin
read(f,a[i]); tong := tong + a[i] ;
end;
close(f);
end;

Đoạn này thì đọc file input gán các con số nguyên (Integer) vào mảng a (array), có tính tổng các con số!

Procedure sapxep;
var i,j : integer;
tg : longint;
begin
for i := 1 to n - 1 do
for j := i + 1 to n do
if a[i] > a[j] then
begin
tg := a[i]; a[i] := a[j]; a[j] := tg;
end
end;

Đoạn trên chẳng qua là sắp xếp mảng a không giảm - lưu ý không giảm chứ hẽm phải tăng nhé!

Procedure xuli;
var i, kiluc : integer;
begin
kiluc := n;
sapxep;
i := n;
while i > 3 do
if a[i] + a[i-1] + a[i-2] > tong - (a[i] + a[i-1] + a[i-2]) then
begin
tong := tong - a[i];
dec(i); dec(kiluc);
end
else break;
assign(g,fo); rewrite(g);
if kiluc > 3 then writeln(g,kiluc) else write(g,0);
close(g);
end;

Đoạn này là đoạn ăn tiền nè, xử lí các dãy con bằng quy tắc đã cho của đề bài - tất nhiên bạn Đô gì đó giải như vậy là chạy ào ào rồi! Hợp lí.
==============================================
Góp ý 1 chổ nhỏ: bạn dùng biến trung gian để đổi chổ! Có thể bạn biết cách không dùng biến trung gian mà!
Thôi, bấy nhiêu thôi! Muốn gì thì bé TheFireStar và Hồng Thanh sẽ bình luận tiếp! Vậy nhé!

Không hiểu j hết làm sao mòa bình loạn