01/10/2018, 01:14

Mong các anh, chị giúp đỡ! thanks!

THUÊ MÁY CÀY
Một ông chủ có 2 cái máy cày cho thuê, có N người nông dân đăng ký thuê máy cày. Người thứ i muốn thuê máy bắt đầu từ thời điểm s[i] đến hết thời điểm t[i]. Giá thuê một máy cày trong một đơn vị thời gian là một đồng. Như vậy nếu cho người thứ i thuê, ông chủ có thể thu về được t[i]-s[i]+1 đồng. Tại một thời điểm, mỗi máy có nhiều nhất một người sử dụng.
Yêu cầu: Tính số tiền nhiều nhất có thể thu được.
Dữ liệu: Vào từ file MAYCAY.INP

Dòng đầu là số nguyên N (N≤100)
N dòng sau, mỗi dòng 2 số nguyên thể hiện số s[i], t[i] (0≤s[i]≤t[i]≤109)
Kết quả: Ghi ra file MAYCAY.OUT một số duy nhất là số tiền lớn nhất có thể thu được.

Stupid viết 03:27 ngày 01/10/2018

Viết bằng pascal, còn phần tệp thì bạn tự thêm vào nhé!

program maycay;
uses crt;
var s: array[1..100] of integer;
    t: array[1..100] of integer;
    n,tong,i: integer;
begin
clrscr;
writeln('Nhap N: ');
readln(n);
tong:=0;
for i:=1 to n do
    begin
    write('s[',i,']: ');
    readln(s[i]);
    write('t[',i,']: ');
    readln(t[i]);
    tong:=tong+  t[i] - s[i]+1;
    end;
writeln('So tien la: ',tong);
readln;
end.

Người bí ẩn viết 03:26 ngày 01/10/2018

Lưu ý là nội quy diễn đàn không cho phép hỏi bài tập, đề thi nhé.

pascal viết 03:30 ngày 01/10/2018

Cảm ơn rất nhiều!!! Chúc một ngày tốt lành
bài này thuộc quy hoạch động bạn ơi!
test 2 như sau: