Diễn đàn tin học Văn Lang - Vạn Ninh
Chào mừng bạn đến với Diễn đàn Tin học Văn Lang - Vạn Ninh của chúng tôi !
Hãy đăng nhập hoặc đăng kí tài khoản để trải nghiệm nhiều điều thú vị tại đây !
Thân ái !

Diễn đàn tin học Văn Lang - Vạn Ninh

Nơi trao đổi thông tin, tăng cường hợp tác, giải đáp những vướng mắc khi học lập trình Pascal
 
Trang ChínhCalendarTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng Nhập

Share | 
 

 Ứng dụng tính số ngày trong tháng

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
Admin
Admin
avatar

Posts : 113
Danh tiếng : 5
Join date : 10/11/2014
Age : 16

Bài gửiTiêu đề: Ứng dụng tính số ngày trong tháng   21/1/2015, 10:07

uses crt;
var a,b:integer;
bo:boolean;
begin
write('Nhap nam :');readln(b);
if (b mod 100=0) then bo:=(b mod 400)=0 else
bo:=(b mod 4 )=0;
if bo then
begin
repeat
clrscr;
write('Nhap thang :');readln(a);
until (a>0) and (a<13);
case a of
2:write('Co 29 ngay');
1,3,5,7,8,10,12:write('Co 31 ngay');
4,6,9,11:write('Co 30 ngay');
end;
end;
if (not bo) then
begin
repeat
clrscr;
write('Nhap thang :');readln(a);
until (a>0) and (a<13);
case a of
2:write('Co 28 ngay');
1,3,5,7,8,10,12:write('Co 31 ngay');
4,6,9,11:write('Co 30 ngay');
end;
end;
readln;
end.
Về Đầu Trang Go down
Xem lý lịch thành viên http://forumpascalvanlang.forumvi.com
 
Ứng dụng tính số ngày trong tháng
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» Trứng gà tác hại...
» Ghi danh học lớp thơ lục bát
» Các kiểu cười qua ca dao
» Giọt nước bắn tung
» Ngộ

Permissions in this forum:Bạn không có quyền trả lời bài viết
Diễn đàn tin học Văn Lang - Vạn Ninh :: Các chương trình lớn viết bằng Pascal-
Chuyển đến