Học sinh giỏi Thạnh Mỹ Tây – Châu Phú – An Giang

This WordPress.com site is the cat’s pajamas

TÍNH NGÀY THÁNG NĂM !!!

Để lại bình luận

bt3: tinh ngay thang nam sau n ngay
B1: nhập n ngày
B2: tính m:=n div 39 là số tháng, lấy d:=n mod 30 là số ngày
B3: xét nếu m=0 thì lấy d:=n+17, nếu ko xet tiep b4
B4: nếu m>0 và m<=2 thì m:=m+10, d:=d+17, nếu ko xét tiếp b5
B5: nếu m>2 thì y:=2012 + m div 12, m:= m mod 12 -2, d:= 13 -d. hết
CHƯƠNG TRÌNH 
program tinhngay;
var d,m,y,n:integer;
begin 
writeln(‘nhap so n ngay’); readln(n);
m:= n div 30;
d:= n mod 30;
if (m=0) then writeln(‘sau ‘,n,’ ngay thi la ngay ‘,n+17,’ thang 10 nam 2012′);
if (m>0) and (m<=2) then
(m:=m+10) and (d:=17+d);
writeln(‘sau n ngay la ngay ‘,d,’ thang ‘,m,’ nam 2012′);
if (m>2) then
(y:=2012+m div 12) and (m:=m mod 12 -2) and (d:=13-d);
writeln(‘sau n ngay thi la ngay ‘,d,’ thang ‘,m,’ nam ‘,y);
readln;
end.

 

Gửi phản hồi

Mời bạn điền thông tin vào ô dưới đây hoặc kích vào một biểu tượng để đăng nhập:

WordPress.com Logo

Bạn đang bình luận bằng tài khoản WordPress.com Log Out / Thay đổi )

Twitter picture

Bạn đang bình luận bằng tài khoản Twitter Log Out / Thay đổi )

Facebook photo

Bạn đang bình luận bằng tài khoản Facebook Log Out / Thay đổi )

Google+ photo

Bạn đang bình luận bằng tài khoản Google+ Log Out / Thay đổi )

Connecting to %s