Cho mình xin thuật toán về tính ngày trong pascal với ạ.VD như tính ngày này đến một ngày ở năm khác ạ????

Question

tonga · Answer

V&igrave; c&acirc;u hỏi kh&aacute; chung chung n&ecirc;n mik chọn t&iacute;nh năm nhuận nha   Năm nhuận ko pk cứ chia hết cho 4 l&agrave; dc đ&acirc;u   Do:    Tr&aacute;i đất của ch&uacute;ng ta cần     365.25     ng&agrave;y để quay hết một v&ograve;ng quanh mặt trời. Phần dư     0.25     thực ra đ&atilde; l&agrave;m tr&ograve;n, con số thực tế l&agrave;     365.2425    ng&agrave;y để tr&aacute;i đất quay được một v&ograve;ng. Gi&aacute; trị sai số n&agrave;y     0.0075    ng&agrave;y     (0.25 - 0.2425)    khi nh&acirc;n với     400     ch&uacute;ng ta sẽ c&oacute; th&ecirc;m       3       ng&agrave;y nữa. Do đ&oacute;, để lịch của ta ch&iacute;nh x&aacute;c, c&aacute;c chu kỳ     100, 200    v&agrave;     300     chỉ c&oacute;     24     năm nhuận thay v&igrave;     25    . Ri&ecirc;ng chu kỳ thứ       4  0  0       sẽ c&oacute;     25     năm nhuận. Điều đ&oacute; đảm bảo rằng mỗi chu kỳ     400     năm sẽ c&oacute;     97 (24 + 24 + 24 + 25)     năm nhuận. Như vậy, cứ     400     năm ch&uacute;ng ta sẽ c&oacute;     97     năm nhuận, chứ kh&ocirc;ng phải       1  0  0       nh&eacute;.

cobexinhdep · Answer

- Khởi g&aacute;n stt l&agrave; 0   - Với v&iacute; dụ tr&ecirc;n, t&iacute;nh tổng cộng dồn số ng&agrave;y của c&aacute;c th&aacute;ng trước th&aacute;ng 03 (cụ thể l&agrave; th&aacute;ng 01, th&aacute;ng 02) v&agrave;o stt. Sử dụng c&acirc;u lệnh rẽ nh&aacute;nh case để biết số ng&agrave;y của c&aacute;c th&aacute;ng.   - Bổ sung th&ecirc;m số ng&agrave;y của th&aacute;ng hiện tại (ng&agrave;y 14) v&agrave;o stt.   Giải quyết b&agrave;i to&aacute;n với ng&ocirc;n ngữ C   - Khai b&aacute;o c&aacute;c thư viện sử dụng   - Định nghĩa h&agrave;m main( ) l&agrave; h&agrave;m ch&iacute;nh của chương tr&igrave;nh c&oacute; mục ti&ecirc;u l&agrave; giải quyết b&agrave;i to&aacute;n với 3 bước tr&ecirc;n:   + Khai b&aacute;o biến sử dụng: ngay, thang, nam, stt   + Th&ocirc;ng b&aacute;o nhập liệu v&agrave; nhập gi&aacute; trị cho c&aacute;c biến ngay, thang, nam   + Khởi g&aacute;n stt = 0...   + Lặp cộng dồn số ng&agrave;y của c&aacute;c th&aacute;ng m&agrave; nhỏ hơn thang   - Sử dụng case để x&aacute;c định số ng&agrave;y trong th&aacute;ng   - Bổ sung số ng&agrave;y v&agrave;o stt   + Bổ sung số ng&agrave;y của th&aacute;ng hiện tại v&agrave;o stt   + Th&ocirc;ng b&aacute;o kết quả   #Lợn

Cho mình xin thuật toán về tính ngày trong pascal với ạ.VD như tính ngày này đến một ngày ở năm khác ạ????

Viết một bình luận Hủy