The World Of Entertainment

WellCome To Light Heart The World Of Entertainment
 
IndexIndex  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


Nam Tổng số bài gửi : 60
Age : 27
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