viết bằng pascal GIAO ĐẤU HỮU NGHỊ Tên chương trình: FAIRPLAY.PAS Để tạo không khí vui vẻnáo nhiệt, trong buổi giao lưu giữa sinh viên các trường tham dự OLP A

Câu hỏi :

viết bằng pascal GIAO ĐẤU HỮU NGHỊ Tên chương trình: FAIRPLAY.PAS Để tạo không khí vui vẻnáo nhiệt, trong buổi giao lưu giữa sinh viên các trường tham dự OLP ACM, trường đăng cai OLP năm tới đề xuất tổ chức một cuộc thi đấu game online tay đôi giữa sinh viên trường mình với sinh viên trường sở tại. Mỗi trường cử ra một đội nngười, tạo thành n cặp đấu, sinh viên cùng trường không đấu với nhau. Trò chơi được chọn là một trò chơi rất phổ biến, được các bạn trẻyêu thích, ai cũng biết vàđã từng chơi nhiều trước đó. Kết quả là ai cũng biết chỉsốnăng lực của mình trong trò chơi này và biết rằng nếu đấu tay đôi, ai có năng lực cao hơn sẽ thắng. Trong các trận đấu tay đôi, người thắng sẽ được 1 điểm, người thua 0 điểm. Thời gian chơi được quy định đủ để phân biệt thắng thua. Các trận hòa sẽ kéo dài vô hạn và sẽ bị hủy kết quả khi hết thời gian.Với tinh thần fair play các bạn trường đề xuất ngồi vào máy trước, truy nhập vào hệthống và gửi vềmày chủ của trường chỉ số năng lực của mình. Lãnh đội của trường sở tại có 02 giây để xử lý thông tin, phân công ai đấu với ai để tổng số điểm thu được là lớn nhất. Hãy xác định, với cách bố trí tối ưu các cặp đấu, đội của trường sở tại sẽ có bao nhiêu điểm. Dữ liệu:Vào từfile văn bản FAIRPLAY.INP: Dòng đầu tiên chứa số nguyên n(1 n 105), Dòng thứ2 chứa n số nguyên a1, a2, . . ., an, trong đó aichỉ số năng lực của người thứ i thuộc đội của trường đềxuất , 1 ai 109, i= 1 ÷ n, Dòng thứ3 chứa n số nguyên b1, b2, . . ., bn, trong đó bichỉ số năng lực của người thứi thuộc đội của trường sở tại , 1 bi 109, i= 1 ÷ n. Kết quả:Đưa ra file văn bản FAIRPLAY.OUT một số nguyên số điểm đội trường sở tại có thể đạt được với cách bố trí cặp chơi tối ưu.

Lời giải 1 :

program FAIRPLAY;
const
maxN = 100000;

var
n: longint;
a, b, result: array[1..maxN] of longint;

procedure quickSort(var arr: array of longint; left, right: longint);
var
i, j, pivot, temp: longint;
begin
if left < right then
begin
i := left;
j := right;
pivot := arr[(left + right) div 2];

while i <= j do
begin
while arr[i] < pivot do
Inc(i);
while arr[j] > pivot do
Dec(j);
if i <= j then
begin
temp := arr[i];
arr[i] := arr[j];
arr[j] := temp;
Inc(i);
Dec(j);
end;
end;

quickSort(arr, left, j);
quickSort(arr, i, right);
end;
end;

procedure solve;
var
i, j, k: longint;
begin
quickSort(a, 1, n);
quickSort(b, 1, n);
j := 1;
k := n;
for i := 1 to n do
begin
while (j <= n) and (a[i] > b[j]) do
Inc(j);
if j <= n then
begin
Inc(result[j]);
Inc(j);
end
else
begin
Inc(result[k]);
Dec(k);
end;
end;
end;

procedure output;
var
i, maxPoints: longint;
begin
maxPoints := -1;
for i := 1 to n do
begin
if result[i] > maxPoints then
maxPoints := result[i];
end;
writeln(maxPoints);
end;

begin
assign(input, 'FAIRPLAY.INP');
reset(input);
assign(output, 'FAIRPLAY.OUT');
rewrite(output);

readln(n);
for i := 1 to n do
read(a[i]);
readln;
for i := 1 to n do
read(b[i]);

solve;
output;

close(input);
close(output);
end.

Tin Học

Lớp 9

Bạn có biết?

Tin học là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng. Tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin. Hãy tận dụng sức mạnh của tin học để giải quyết các vấn đề và sáng tạo ra những giải pháp mới!

Nguồn :

Wikipedia - Bách khoa toàn thư

Tâm sự lớp 9

Lớp 9 - Là năm cuối ở cấp trung học cơ sở, chúng ta sắp phải bước vào một kỳ thi căng thẳng và sắp chia tay bạn bè, thầy cô. Áp lực từ kỳ vọng của phụ huynh và tương lai lên cấp 3 thật là lớn, nhưng hãy tin vào bản thân và giữ vững sự tự tin!

Nguồn :

sưu tập

viết bằng pascal GIAO ĐẤU HỮU NGHỊ Tên chương trình: FAIRPLAY.PAS Để tạo không khí vui vẻnáo nhiệt, trong buổi giao lưu giữa sinh viên các trường tham dự OLP A

Lời giải 1 :

Bạn có biết?

Nguồn :

Tâm sự lớp 9

Nguồn :

Có thể bạn quan tâm