Diễn đàn tin học Nguyễn Văn Linh

The second house for every one
 
IndexTrợ giúpTìm kiếmThành viênĐăng kýĐăng Nhập

Share | 
 

 Làm lịch

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


Tổng số bài gửi : 415
Join date : 20/12/2009
Age : 21
Đến từ : Nghĩa địa

Bài gửiTiêu đề: Làm lịch   Mon 31 May 2010, 10:16

nhập vào tháng k và năm n. hãy in ra lịch tháng k của năm n dưới dạng như sau:
ví dụ k=8; n=2004 thì in ra

.....LICH THANG 8 NAM 2004
HAI..BA..TU..NAM...SU..BAY..CN
............................................1
...2....3....4.....5......6......7.....8
...9...10..11...12....13.....14...15
..16..17..18...19....20.....21...22
..23..24..25...26....27.....28...29
..30..31

chú ý do tránh sự điều chỉnh của diễn đàn trong văn bản mình phải thêm mấy dấu chấm
Về Đầu Trang Go down
littlelee
Admin
Admin


Tổng số bài gửi : 415
Join date : 20/12/2009
Age : 21
Đến từ : Nghĩa địa

Bài gửiTiêu đề: Re: Làm lịch   Mon 31 May 2010, 10:22

Bài này có cái hay là dù không nói trực tiếp nhưng nó chính là bài nhập vào ngày tháng năm và cho biết đó là thứ mấy. big grin
Về Đầu Trang Go down
littlelee
Admin
Admin


Tổng số bài gửi : 415
Join date : 20/12/2009
Age : 21
Đến từ : Nghĩa địa

Bài gửiTiêu đề: Re: Làm lịch   Sat 19 Jun 2010, 20:46

Code:
program inlich;
uses crt;
var i,j,nam,thang,k,l:longint;
    s:string;

procedure nhap;
 begin
  clrscr;
  write('nhap vao nam: ');readln(nam);
  write('nhap vao thang: ');readln(thang);
 end;

function ktn(i:integer):boolean;
 begin
  if ((i mod 100<>0)and(i mod 4=0))or(i mod 400=0) then ktn:=true
  else ktn:=false;
 end;

procedure tinh;
 begin
  k:=0;
  for i:=1 to nam-1 do
  begin
    if ktn(i) then k:=k+366
    else k:=k+365;
  end;
  for i:=1 to thang-1 do
  begin
    if i in[1,3,5,7,8,10,12] then k:=k+31;
    if i in[4,6,9,11] then k:=k+30;
    if (i=2) and(ktn(nam)) then k:=k+29;
    if (i=2)and (not ktn(nam)) then k:=k+28;
  end;
  k:=(k+1) mod 7;
 end;

procedure xuat;
 begin
  clrscr;
  writeln('  LICH THANG ',thang,' NAM ',nam);
  writeln('  CN HAI  BA  TU NAM SAU BAY');
  if thang in[1,3,5,7,8,10,12] then l:=31;
  if thang in[4,6,9,11] then l:=30;
  if (thang=2) and (ktn(nam)) then l:=29;
  if (thang=2)and(not ktn(nam)) then l:=28;

  for i:=1 to k-1 do write('    ');
  for i:=1 to l do
  begin
    str(i,s); while length(s)<4 do s:=' '+s;
    write(s);
    k:=(k+1)mod 7;
    if k=0 then writeln;
  end;

  readln;
 end;

begin
 nhap;
 tinh;
 xuat;
end.
Về Đầu Trang Go down
toan_9a2
Gà con


Tổng số bài gửi : 17
Join date : 03/05/2010

Bài gửiTiêu đề: Re: Làm lịch   Tue 22 Jun 2010, 17:22

Có ai bit về quy hoach động trạng thái không, giải hộ tớ bài này vs:

Trong kì nghỉ hè năm nay sherry được bố thưởng cho 1 tour du lịch quanh N đất nước tươi đẹp với nhiều thắng cảnh nổi tiếng ( vì sherry rất ngoan ). Tất nhiên sherry sẽ đi bằng máy bay.

Giá vé máy bay từ đất nước i đến đất nước j là Cij ( dĩ nhiên Cij có thể khác Cji ). Tuy được bố thưởng cho nhiều tiền để đi du lịch nhưng sherry cũng muốn tìm cho mình 1 hành trình với chi phí rẻ nhất có thể để dành tiền mua quà về tặng mọi người ( Các chuyến bay của sherry đều được đảm bảo an toàn tuyệt đối ).

Bạn hãy giúp sherry tìm 1 hành trình đi qua tất cả các nước, mỗi nước đúng 1 lần sao cho chi phí là bé nhất nhé.
Input

Dòng 1: N (5 < N < 16)

Dòng thứ i trong N dòng tiếp theo: Gồm N số nguyên, số thứ j là Cij (0 < Cij < 10001)
Output

Gồm 1 dòng duy nhất ghi chi phí bé nhất tìm được
Example

Input:
6
0 1 2 1 3 4
5 0 3 2 3 4
4 1 0 2 1 2
4 2 5 0 4 3
2 5 3 5 0 2
5 4 3 3 1 0


Output:
8
Về Đầu Trang Go down
littlelee
Admin
Admin


Tổng số bài gửi : 415
Join date : 20/12/2009
Age : 21
Đến từ : Nghĩa địa

Bài gửiTiêu đề: Re: Làm lịch   Tue 29 Jun 2010, 19:28

Tại sao bạn lại hok làm dijkstra nhỉ. Hay lài toán bắt buộc làm = quy hoạch động trạng thái.

Mình hok rành trong việc nhận định một bài qhd có phải là qhd trạng thái hay ko. Nhưng theo mình nghĩ Dijkstra cũng có thể là qhd trạng thái. Nếu thế thì vấn đề đơn giản thoi
Về Đầu Trang Go down
toan_9a2
Gà con


Tổng số bài gửi : 17
Join date : 03/05/2010

Bài gửiTiêu đề: Re: Làm lịch   Sun 04 Jul 2010, 01:18

minh lam bai tren spoj dung dijkstra không AC được.nhưng thôi mình bit qhd trạng thái rồi...và đã AC bài này.... Very Happy
Về Đầu Trang Go down
Hovanthong
Admin
Admin


Tổng số bài gửi : 101
Join date : 25/07/2010
Age : 22
Đến từ : Hưng nguyên-Nghệ An

Bài gửiTiêu đề: Re: Làm lịch   Mon 26 Jul 2010, 21:58

Bài này dijktra có thể AC được!
Về Đầu Trang Go down
http://thongtra.forum-viet.com
Hovanthong
Admin
Admin


Tổng số bài gửi : 101
Join date : 25/07/2010
Age : 22
Đến từ : Hưng nguyên-Nghệ An

Bài gửiTiêu đề: Re: Làm lịch   Mon 26 Jul 2010, 22:01

Mà bài đó tên gì vậy!Mình làm được ở máy rồi!
Về Đầu Trang Go down
http://thongtra.forum-viet.com
toan_9a2
Gà con


Tổng số bài gửi : 17
Join date : 03/05/2010

Bài gửiTiêu đề: Re: Làm lịch   Mon 26 Jul 2010, 22:34

LEM3
Về Đầu Trang Go down
toan_9a2
Gà con


Tổng số bài gửi : 17
Join date : 03/05/2010

Bài gửiTiêu đề: Re: Làm lịch   Mon 26 Jul 2010, 22:38

ah, mình tò mò một chút,trường mới đổi tên ah. hay là liên kết 2 trường....Smile
Về Đầu Trang Go down
Sponsored content




Bài gửiTiêu đề: Re: Làm lịch   Today at 18:49

Về Đầu Trang Go down
 
Làm lịch
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
Diễn đàn tin học Nguyễn Văn Linh :: Góc tin học :: Lớp chuyên tin-
Chuyển đến