The World Of Entertainment

WellCome To Light Heart The World Of Entertainment
 
Trang ChínhTrang Chính  Trợ giúpTrợ giúp  Tìm kiếmTìm kiếm  Thành viênThành viên  NhómNhóm  Đăng kýĐăng ký  Đăng Nhập  

Share | 
 

 tìm thứ khi biết ngày táng năm

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

Nam Tổng số bài gửi : 60
Age : 28
Registration date : 18/10/2008

Bài gửiTiêu đề: tìm thứ khi biết ngày táng năm   Wed Feb 11, 2009 4:01 pm

var a,c,d,e,f,g:integer;b:integer;
v,h,i,q,t,t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11:integer;w:integer;
begin
t1:=30;t2:=58;t3:=89;t4:=119;t5:=150;t6:=180;t7:=211;t8:=242;t9:=272;t10:=303;t11:=333;
writeln('ban nen can than trong khi nhap ngay thang ,se dan den ket qua sai');
write('nhap ngay: ');
readln(a);
write('nhap thang : ');
readln(b);
write('nhap nam : ');
readln(c);
if (c mod 4=0) and (b=2) and (a=29) then
a:=a-1;
begin
if (b>12) or (a>31) or (((b=4) or (b=6) or (b=9) or (b=11)) and (a>30)) or ((b=2) and (a>28)) then
writeln('ban da nhap sai ngay hoac thang')
else
begin
begin

if (b=1) and (c=1) then
begin
writeln('tong so ngay tinh tu 1/1/',c,' den ',a,'/',b,'/',c,' la ',a-1,' ngay');
w:=a mod 7;
end
else
begin
begin
d:=c mod 56 ;
{writeln('ket qua d:= ',d); }
e:= d mod 7 ;
{writeln('ket qua e:= ',e); }
i:=d div 4;
{writeln('ket qua i:= ',i); }
q:=i+e;
{writeln('ket qua q:= ',q); }
end;
begin
if b=1 then t:=0;
if b=2 then t:=t1;
if b=3 then t:=t2;
if b=4 then t:=t3;
if b=5 then t:=t4;
if b=6 then t:=t5;
if b=7 then t:=t6;
if b=8 then t:=t7;
if b=9 then t:=t8;
if b=10 then t:=t9;
if b=11 then t:=t10;
if b=12 then t:=t11;
end;
{writeln('ket qua t:= ',t); }
g:=t+a;
h:=g mod 7 ;
{writeln('so du cua tong so ngay chiale la h:= ',h); }
v:=h+q;
{writeln('v:= ',v); }
begin
w:=v mod 7 ;
{writeln('ket qua w:= ',w); }
end;
end;
end;
begin
writeln;
if w=1 then
writeln(' day la chu nhat') ;
if w=2 then
writeln(' day la thu 2' );
if w=3 then
writeln(' day la thu 3');
if w=4 then
writeln(' day la thu 4');
if w=5 then
writeln(' day la thu 5');
if w=6 then
writeln(' day la thu 6');
if w=0 then
writeln(' day la thu 7');
end;
end;
end;
readln;
end.

_________________
Không có boy IT xấu
Chỉ có Boy IT không biết Photoshop thôi
Về Đầu Trang Go down
Xem lý lịch thành viên http://www.soledad.come.vn
 
tìm thứ khi biết ngày táng năm
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
The World Of Entertainment :: CLB Tin Học :: Ngôn Ngữ Lập Trình :: Pascal-
Chuyển đến