Pascal | Cho một ngày trong năm hãy xác định xem thử ngày này là này thứ mấy

Pascal | Cho một ngày trong năm hãy xác định xem thử ngày này là này thứ mấy

Cho 14/03/2003 là một ngày trong năm. Hãy xác định xem thử ngày này là này thứ bao nhiêu của năm đó.

Ví dụ: Ngày nhập vào 14/03/2003, Kết quả: Ngay thu 73 cua nam 2003

Yêu cầu :  - Input: 3 số ngay, thang, nam

                 - Output: So thu tu cua ngay

Bài toán ngược: Có số thứ tự của ngày trong năm, hãy xác định nhày đó là ngày nào.

Ví dụ: Nhập stt = 84 thì kết quả là 25/04.

Hướng dẫn: Làm theo chiều ngược lại.

- Giả sử ban đầu xuất phát với thang là 1. Nếu stt lớn hơn số ngày cua tháng (thang ) thì tiến hành:

o       thang tăng lên 1

o       stt được gán bằng stt trừ đi số ngày của tháng đó.

- Lặp lại quá trình trên cho đến khi stt nhỏ hơn hoặc bằng số ngày trong tháng

Hướng dẫn:

- Khởi gán stt là 0

- Với ví dụ trên, tính tổng cộng dồn số ngày của các tháng trước tháng 03 (cụ thể là tháng 01, tháng 02) vào stt. Sử dụng câu lệnh rẽ nhánh case để biết số ngày của các tháng.

- Bổ sung thêm số ngày của tháng hiện tại (ngay 14) vào stt.

Giải quyết bài toán với ngôn ngữ C

- Khai báo các thư viện sử dụng

- Định nghĩa hàm main( ) là hàm chính của chương trình có mục tiêu là giải quyết bài toán với 3 bước trên:

+ Khai báo biến sử dụng: ngay, thang, nam, stt

+ Thông báo nhập liệu và nhập giá trị cho các biến ngay, thang, nam

+ Khởi gán stt = 0

+ Lặp cộng dồn số ngày của các tháng mà nhỏ hơn thang

- Sử dụng case để xác định số ngày trong tháng

- Bổ sung số ngày vào stt

+ Bổ sung số ngày của tháng hiện tại vào stt

+ Thông báo kết quả

Chương trình:

Program ngaythangnam;

Uses crt;

Var ngay,thang,nam,i,stt:integer;                  // Khai bao bien su dung

Begin

    Write(‘Nhap ngay, thang, nam:’);             // Thong bao nhap lieu

    Readln(ngay, thang, nam);                // Nhap gtri cho ngay, thang, nam

    stt := 0;

    For i := 1  to thang do                  // Lap voi cac i nho hon thang da nhap vao)

            case thang of

                  1,3,5,7,8,10,12 :     stt := stt + 31;                   

                  4,6,9,11:      stt := stt + 30;       

                  2  :     stt := stt + 28;

            Else

    stt := stt + ngay;

end;

    Writeln(‘Ngay thu ‘, stt, nam);               // Xuat ket qua

    Readln;                                         

End .
Bạn thấy bài viết này như thế nào?: 
Average: 7.8 (18 votes)
Ảnh của Tommy Tran

Tommy owner Express Magazine

Drupal Developer having 9+ year experience, implementation and having strong knowledge of technical specifications, workflow development. Ability to perform effectively and efficiently in team and individually. Always enthusiastic and interseted to study new technologies

  • Skype ID: tthanhthuy

Advertisement

 

jobsora

Dich vu khu trung tphcm

Dich vu diet chuot tphcm

Dich vu diet con trung

Quảng Cáo Bài Viết

 
Facebook sẽ ra smartphone?

Facebook sẽ ra smartphone?

Sau nhiều năm cân nhắc, Facebook quyết định bắt tay với HTC để cho ra đời một smartphone chuyên dành riêng cho mạng xã hội, theo Fox News.

Apple vs. Samsung - Vụ kiện không chỉ trị giá 2,5 tỷ USD

Apple vs. Samsung - Vụ kiện không chỉ trị giá 2,5 tỷ USD

Cuộc chiến khốc liệt giữa Apple và Samsung tại tòa án đang đi vào giai đoạn căng thẳng nhất. Cả hai đang đưa tất cả những gì có thể để giành được chiến thắng tại phiên tòa thế kỷ này. Apple, thậm chí, chấp nhận vén bức màn bí mật,

Headless Drupal - Inline edit : Ví dụ một dạng Angular forms

Headless Drupal - Inline edit : Ví dụ một dạng Angular forms

Note that the authentication and access isn't done by cookies, but rather provided by an access token thanks to RESTful token auth module.

Công ty diệt chuột T&C

 

Diet con trung