Trang chủ Tin Học Lớp 8 Ngày chủ nhật, Minh có rất nhiều dự định muốn...

Ngày chủ nhật, Minh có rất nhiều dự định muốn hoàn thành chẳng hạn như làm bài tập môn toán, viết dàn bài môn vă,... Mỗi công việc đều có thời gian và lý tưởng

Câu hỏi :

Ngày chủ nhật, Minh có rất nhiều dự định muốn hoàn thành chẳng hạn như làm bài tập môn toán, viết dàn bài môn vă,... Mỗi công việc đều có thời gian và lý tưởng để bắt đầu và kết thúc của nó. Tuy nhiên có 1 số công việc không thể cùng hoàn thành bởi công việc trước chưa kết thúc công việc sau đã bắt đầu Hãy lập trình giúp Minh tìm ra đươkc số công việc có thể hoàn thành nhiều nhất mỗi khi ngày chủ nhật tới. Dữ liệu nhập - Dòng đầu ghi số nguyên n (1

Lời giải 1 :

uses crt, math;
type int = longint;
type bool = boolean;

// Lâu lâu nhái c++ tí :))
type pair = record
    first, second: int;
end;

operator < (a, b: pair) r: bool;
begin
    r:=(a.second <= b.first);
end;

operator <= (a, b: pair) r: bool;
begin
    r:=(a.first <= b.first);
end;

procedure swap(var a, b: pair);
var t: pair;
begin
    t:=a; a:=b; b:=t;
end;

var i, j, n, res: int;
    a: array[0..1000] of pair;
    dp: array[0..1000] of int;

procedure sort(l, r: int);
var i, j: int;
    x: pair;
begin
    i:=l; j:=r; x:=a[(l + r) shr 1];
    repeat
        while a[i] <= x do inc(i);
        while x <= a[j] do dec(j);
        if i <= j then begin
            swap(a[i], a[j]);
            inc(i); dec(j);
        end;
    until i > j;
    if i < r then sort(i, r);
    if l < j then sort(l, j);
end;

begin
    clrscr;
    readln(n);
    
    for i:=1 to n do readln(a[i].first, a[i].second);
    sort(1, n);
    
    for i:=1 to n do begin
        dp[i]:=1;
        for j:=1 to i - 1 do begin
            if a[j] < a[i] then dp[i]:=max(dp[i], dp[j] + 1);
        end;
        res:=max(res, dp[i]);
    end;
    writeln(res);
readln;
end.

Thảo luận

-- dp[i] là cái j vậy bạn, biến đếm hay j
-- nếu như tui muốn (a[i], b[i]) thì làm thế nào
-- https://hoidap247.com/cau-hoi/3743505 giải thích xong thì giúp bài này với :))))
-- https://hoidap247.com/cau-hoi/3750287 giang hồ cấp cíu :((
-- https://hoidap247.com/cau-hoi/3858038
-- :))) https://hoidap247.com/cau-hoi/3858038
-- https://hoidap247.com/cau-hoi/3891851
-- https://hoidap247.com/cau-hoi/3984877

Bạn có biết?

Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, 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 (ảo). Với cách hiểu hiện nay, 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.

Nguồn : Wikipedia - Bách khoa toàn thư

Tâm sự 8

Lớp 8 - Năm thứ ba ở cấp trung học cơ sở, học tập bắt đầu nặng dần, sang năm lại là năm cuối cấp áp lực lớn dần nhưng các em vẫn phải chú ý sức khỏe nhé!

Nguồn : ADMIN :))

Liên hệ hợp tác hoặc quảng cáo: gmail

Điều khoản dịch vụ

Copyright © 2021 HOCTAPSGK