BÀI TẬP 48: CỨU CHUỐI

Tèo tham gia một tổ chức thu mua chuối giúp người nông dân. Cậu sử dụng phần mềm đặc biệt để định giá cho mỗi buồng chuối. Dựa trên các bức ảnh chụp mỗi buồng chuối, phần mềm sẽ đưa ra 2 giá trị ước tính P1 và P2. Nếu chênh lệch giữa P1 và P2 là bé hơn hoặc bằng X, thì phần mềm sẽ chọn giá cao hơn. Nếu chênh lệch giữa P1 và P2 lớn hơn X, phần mềm sẽ trả về giá trị thứ ba P3 là giá mua của buồng chuối đó.

            Yêu cầu: Hãy viết chương trình tính tổng giá trị của tất cả các buồng chuối. Chương trình được lưu với tên CUUCHUOI.PAS.

            Input: Đọc từ file CUUCHUOI.INP gồm:

            - Dòng đầu tiên ghi số nguyên N (1<=N<=20) , số lượng buồng chuối.

            - Dòng thứ hai ghi số nguyên X (1<=X<=10) .

            - N khối dòng sau mô tả các giá trị phần mềm định giá, mỗi khối có thể là:

            + Dòng đầu ghi hai số nguyên P1 và P2 (1<=P1, P2<=100) .

            + Nếu chênh lệch giữa P1 và P2 lớn hơn X sẽ có thêm dòng thứ 2 ghi P3 (1<=P3<=100).

            Output: Ghi ra file CUUCHUOI.OUT tổng giá trị của tất cả các buồng chuối.

            Ví dụ:

CUUCHUOI.INP	CUUCHUOI.OUT
4 2 3 5 2 8 4 6 5 6 3 7	22

 

            Giải thích: có 4 buồng chuối, phần mềm định giá lần lượt là: 5, 4, 6, 7 nên tổng giá trị là 22.

CODE THAM KHẢO

program cuuchuoi;

uses crt;

var i,n,j,d,tong,x,tam:longint;

    f1,f2:text;

    a,b,c:array[1..10000] of longint;

begin

        clrscr;

        assign(f1,'cuuchuoi.inp'); reset(f1);

        assign(f2,'cuuchuoi.out'); rewrite(f2);

        readln(f1,n); readln(f1,x);

        while not eof(f1) do

        begin

                inc(i);

                read(f1,a[i],b[i]);

                if a[i]>=b[i] then tam:=a[i]-b[i] else tam:=b[i]-a[i];

                if (tam>x) then begin readln(f1); read(f1,c[i]); end;

                tam:=0; readln(f1);

        end;

        tam:=0;

        for i:=1 to n do begin

        if (c[i]=0) then begin if a[i]>=b[i] then tam:=a[i] else tam:=b[i]; end;

        if c[i]<>0 then tam:=c[i];

        tong:=tong+tam; tam:=0;

        end;

        write(f2,tong);

        close(f1); close(f2);

end.