Tin học BT pascal

Thảo luận trong 'Hỏi đáp - hỗ trợ tin học' bắt đầu bởi nhsit1062@gmail.com, 31 Tháng bảy 2019.

Lượt xem: 173

  1. nhsit1062@gmail.com

    nhsit1062@gmail.com Học sinh mới Thành viên

    Bài viết:
    3
    Điểm thành tích:
    16
    Sở hữu bí kíp ĐỖ ĐẠI HỌC ít nhất 24đ - Đặt chỗ ngay!

    Đọc sách & cùng chia sẻ cảm nhận về sách số 2


    Chào bạn mới. Bạn hãy đăng nhập và hỗ trợ thành viên môn học bạn học tốt. Cộng đồng sẽ hỗ trợ bạn CHÂN THÀNH khi bạn cần trợ giúp. Đừng chỉ nghĩ cho riêng mình. Hãy cho đi để cuộc sống này ý nghĩa hơn bạn nhé. Yêu thương!

    Bài tập: HỢP TÁC
    Công ty A là một công ty xây dựng lớn ở tỉnh BD, công ty B là công ty bất động sản lớn có vốn đầu tư nước ngoài, hai công ty này thường xuyên kí hợp đồng với nhau từ rất lâu và cả hai đã đạt được sự tin tưởng tuyệt đối đôi bên.
    Để hưởng ứng sự kiện phát triển thành phố thông minh của tỉnh BD, công ty B muốn gia tăng sự hợp tác với công ty A bằng cách tăng mạnh giá trị dự án của 2 bên và tất nhiên cũng vì sự hợp tác lâu dài của 2 bên nên phía lãnh đạo công ty B đưa ra lời ngỏ ý gia tăng bằng phương thức gián tiếp.
    Một ngày nọ giám đốc công ty B gửi một bức thư ngỏ đến công ty A trong đó có viết:
    “Kính chào NAV, chúng ta cũng đã hợp tác với nhau từ rất lâu rồi, có lẽ nếu không có sự trợ giúp của giấy tờ thì tôi cũng quên mất nó. Bây giờ công ty tôi muốn công ty của anh sẽ là công ty đầu tiên lựa chọn dự án của chúng tôi và lần này sẽ bắt đầu vào lần gặp mặt tới đây”.
    Giám đốc NAV là một người thông minh và ông biết đây là cơ hội mà công ty B trao cho mình. Kết hợp với kinh nghiệm sự hợp tác lâu dài 2 bên, ông còn biết rằng nếu khi ông nhận một công trình của công ty B và hoàn thành trước thời hạn thì công ty ông sẽ nhận được một số lượng cơ hội để nhận thêm những công trình khác.
    Vấn đề ở đây là ông không biết phải lựa chọn thế nào để công ty ông đạt được lợi nhuận tối đa trong lần gặp mặt sắp tới. Các bạn hãy giúp ông ấy.
    Yêu cầu: Bạn được cho danh sách gồm N (0 < N < 500) dự án, mỗi dự án có lợi nhuận k và số cơ hội phát triển c với các dự án khác (0 < n,k <10000). Giả sử ban đầu bạn có 1 cơ hội, xác định lợi nhuận cao nhất mà công ty có thể đạt được.
    Ví dụ:

    Input

    Output

    5
    0 0
    2 0
    2 0
    3 0
    5 1

    8
    Giải thích:
    Ban đầu có ta chọn dự án thứ năm có lợi nhuận là 5 và có thêm một cơ hội, tiếp đến ta chọn dự án thứ 4 có lợi nhuận 3 và còn 0 cơ hội. Tổng số lợi nhuận đạt được là 5 + 3 = 8.
     
  2. Trâm Nguyễn Thị Ngọc

    Trâm Nguyễn Thị Ngọc Học sinh tiến bộ Thành viên HV CLB Hóa học vui HV CLB Lịch sử

    Bài viết:
    1,343
    Điểm thành tích:
    176
    Nơi ở:
    Quảng Trị
    Trường học/Cơ quan:
    Trường TH&THCS Hải Ba

    Mã:
    Var
       C,k:array[1..100] of integer;
       Sln,ch,tg,i,j,n:integer;
    Begin
        Readln(n);
        For i:=1 to n do
          Begin
             Readln(k[i]);readln(C[i]);
          End;
        For i:=1 to n-1 do
           For j:=i+1 to n do
              If c[i]<c[j] then
                 Begin  tg:=c[i];c[i]:=c[j];c[j]:=tg;
                             Tg:=k[i];k[i]:=k[j];k[j]:=tg;
                 End
              Else If c[i]=c[j] then
                            If k[i]<k[j] then
                                    begin tg:=c[i];c[i]:=c[j];c[j]:=tg;
                                     tg:=k[i];k[i]:=k[j];k[j]:=tg; end;
          Sln:=0;ch:=1;
          For i:=1 to n do
            Begin
              Sln:=sln+k[i]; ch:=ch+c[i]-1;
              If ch=0 then break;
            End;
         Write(sln);
     Readln
    End.
     
    Last edited: 31 Tháng bảy 2019
Chú ý: Trả lời bài viết tuân thủ NỘI QUY. Xin cảm ơn!

Draft saved Draft deleted

CHIA SẺ TRANG NÀY

-->