BÌNH GIỮ NHIỆT CAO CẤP TOPGIA INOX 304, Dung Tích Lớn 500ML Thiết Kế Nắp Thông Minh Tiện Lợi Có Dây Xách Ly Giữ Nhiệt - ĐẠT QUY CHUẨN CỦA BỘ CÔNG THƯƠNG(BGN)
BÌNH GIỮ NHIỆT CAO CẤP TOPGIA ...
119.000₫ 180.000₫
Bộ 4 bàn chải đánh răng Nhật lông tơ mềm mại, Bàn trải đánh răng Than tre hoạt tính lông mềm, chải siêu êm bảo vệ nướu
Bộ 4 bàn chải đánh răng Nhật ...
43.000₫ 80.000₫

Bài tậpBài chưa trả lời

Viết chương trình pascal
----- Nội dung dịch tự động từ ảnh -----
Nhân dịp Tết, ba bé Bo chuẩn bị N túi lì xì cho bé Bo. Trong túi thứ i có số tiền là ai và
một số nguyên bị (bị≥ 0). Nếu bị> 0 thì bé Bo được phép chọn thêm bị túi lì xì khác. Việc
chọn thêm này là tích lũy. Đầu tiên, bé Bo chọn một túi bất kỳ, sau đó giả sử bé Bo đang có
tổng số tiền là A và số túi được phép chọn thêm là B (B > 0), nếu bé Bo chọn thêm túi thứ 1 thì
tổng số tiền là A + ai và tổng số túi được chọn thêm là B -1 + bị . Cứ như vậy cho đến khi
mmm m
www
mmmmmm
không được phép chọn thêm (B = 0) hoặc đã chọn hết N túi. Ban hãy giúp bé Bo xác định thứ
tư chọn túi sao cho tổng số tiền bé có được là lớn nhất nhé.
- Dữ liệu vào: cho trong tệp LIXI.INP
+ Dòng đầu tiên là số nguyên N(1 + Trong N dòng tiếp theo, dòng thứ i gồm 2 số nguyên ai và bị cách nhau một khoảng trắng (1
≤ai≤ 100, 0≤ bi ≤ 100).
- Dữ liệu ra: ghi ra tệp LIXI.OUT
- LàĐố nguyên xác định số tiền nhiều nhất mà bé Bo có được.
LIXI.INP
LIXI.OUT
5
00
20
20
30
51
8
1 Xem trả lời
Hỏi lại yêu cầu
161
1 trả lời
1
0
Thành Đạt
22/02/2024 19:45:51
program LIXI;
const MAXN = 100;
var
    f: array[0..MAXN+1, 0..MAXN+1] of longint;
    a, b: array[1..MAXN] of longint;
    n, i, j: longint;
    fi, fo: text;
begin
    assign(fi, 'LIXI.INP');
    reset(fi);
    readln(fi, n);
    for i := 1 to n do
        readln(fi, a[i], b[i]);
    close(fi);

    for i := 0 to n do
        for j := 0 to n do
            f[i][j] := -1;
    f[0][0] := 0;

    for i := 1 to n do
        for j := 0 to n do
            if f[i-1][j] <> -1 then
            begin
                if f[i][j] < f[i-1][j] then
                    f[i][j] := f[i-1][j];
                if (j < n) and (f[i][j+1] < f[i-1][j] + a[i]) then
                    f[i][j+1] := f[i-1][j] + a[i];
                if (j + b[i] <= n) and (f[i][j+b[i]] < f[i-1][j] + a[i]) then
                    f[i][j+b[i]] := f[i-1][j] + a[i];
            end;

    assign(fo, 'LIXI.OUT');
    rewrite(fo);
    writeln(fo, f[n][n]);
    close(fo);
end.

 

Mở khóa để xem toàn bộ nội dung trả lời

(?)
Bạn đã đạt đến giới hạn của mình. Bằng cách Đăng ký tài khoản, bạn có thể xem toàn bộ nội dung trả lời
Cải thiện điểm số của bạn bằng cách đăng ký tài khoản Lazi.
Xem toàn bộ Trả lời và Chat với Trợ lý ảo Lazi AI bằng cách Đăng nhập tài khoản ngay bây giờ
Tôi đã có tài khoản? Đăng nhập

Bạn hỏi - Lazi trả lời

Bạn muốn biết điều gì?

GỬI CÂU HỎI
Câu hỏi mới nhất

Hôm nay bạn thế nào? Hãy nhấp vào một lựa chọn, nếu may mắn bạn sẽ được tặng 50.000 xu từ Lazi

Vui Buồn Bình thường
Combo 10 Đôi Vớ Tất Khử Mùi Kháng Khuẩn Cổ Ngắn Nam Nữ
Combo 10 Đôi Vớ Tất Khử Mùi Kháng Khuẩn Cổ Ngắn Nam Nữ
-50% 39.000₫ 78.000₫
Nước hoa ô tô khử mùi kháng khuẩn , Sáp thơm ô tô tinh dầu để xe hơi,Khử Mùi Hiệu Quả Có 6 Mùi Hương Phiên Bản Mới
Nước hoa ô tô khử mùi kháng khuẩn , Sáp thơm ô tô tinh dầu để xe hơi,Khử Mùi ...
-50% 15.000₫ 30.000₫
×
Mua sắm
+Gửi câu hỏi LAZI MALL
+500xu
×