BÀI TẬP 82: TÌM NGÀY THÁNG NĂM HÔM SAU TỪ NGÀY HÔM TRƯỚC

Viết chương trình tính ra ngày tháng năm của ngày hôm sau trên ngày tháng năm của ngày hôm trước.

Dữ liệu: Cần đọc từ file văn bản ngaythangnam.inp gồm 1 dòng:

            Dòng 1: Số đầu tiên là ngày, số thứ 2 là tháng, số thứ 3 là năm. Mỗi số cách nhau một khoảng trắng.

            Kết quả: Ghi trên file văn bản ngaythangnam.out gồm 1 dòng:

                        Dòng 1: Số đầu tiên là ngày, số thứ 2 là tháng, số thứ 3 là năm của hôm sau.

Ví dụ:

ngaythangnam.inp	ngaythangnam.out
28 2 2019	1 3 2019

CODE THAM KHẢO:

Var f:text;

    ngaysau, thangsau, ngay, thang: byte;

    nam, namsau: word;

function tinhngaysau(x,y:byte): byte;

begin

        If x < y Then x := x+1

        else if x = y Then

        begin

                thangsau := thang+1;

                x := 1;

        end;

        tinhngaysau := x;

end;

begin

        assign(f,'ngaythangnam.inp'); reset(f);

        read(f,ngay,thang,nam);

        close(f);

        assign(f,'ngaythangnam.out'); rewrite(f);

        namsau := nam;

        thangsau := thang;

        Case thang Of

                1,3,5,7,8,10: ngaysau := tinhngaysau(ngay,31);

                4,6,9,11: ngaysau := tinhngaysau(ngay,30);

                2: if ((nam mod 400 = 0) or (nam mod 4 = 0) and (nam mod 100 <>0)) Then

                        ngaysau := tinhngaysau(ngay,29)

                   else ngaysau := tinhngaysau(ngay,28);

                12: If ngay<31 Then ngaysau := ngay+1

                        else if ngay=31 Then

                        begin

                                ngaysau := 1;

                                thangsau := 1;

                                namsau := nam+1;

                        end;

        End;

        write(f,ngaysau,' ',thangsau,' ',namsau);

        close(f);

end.