Skip to content
Narrow screen resolution Wide screen resolution Auto adjust screen size Increase font size Decrease font size Default font size default color grey color
         
 | 
VNOI - Olympic tin học Việt Nam

Điểm tin VOJ

Số thành viên:6040
Số bài tập:1001
Số bài nộp:722923
Bài nộp hôm nay:0

Top 10 thành viên xuất sắc

HạngThành viênĐiểm
1mr_invincible587.9
2white_cobra418.6
3hieult403.4
4phaleq384.0
5vodanh9x368.2
6con_nha_ngheo352.0
7flash_mt350.2
8darksabers349.8
9yenthanh132345.3
10rockman9x_94343.1

Danh tiếng các thành viên

HạngThành viênĐiểm
1mr_invincible+213
2conankudo+149
3khuc_tuan+137
4tuananhnb93+129
5khanhptnk+108
6hphong+103
7flash_mt+99
8paulmcvn+71
9technolt+70
10hoangle+63

Topcoder Vietnam

HạngThành viênĐiểm
Diễn đàn
Forum
PBCWATER (1 đang xem) ,(1) Khách
Bài viết dưới cùng Gửi trả lời Được ưa thích: 4
CHỦ ĐỀ - PBCWATER
#27456
TrungKien11 (Thành viên)
Đã code là AC
Bài viết: 95
graphgraph
Thành viên gián tuyến Click vào đây để xem thông tin về thành viên này
PBCWATER 10 năm, 6 tháng trước   (+0)
anh cho em hỏi sao mà bài này em làm hoài cả test tay cũng đúng mà ko ac dc. Mấy anh zúp zùm em nhé
Code:
const
    maxx=200;
 
var
    h,w1,w2,w3,w4,w:Array[1..maxx,1..maxx] of longint;
    m,n:longint;
    v:int64;
 
procedure doc;
var i,j:longint;
    begin
 
        readln(n,m);
        for i:=1 to n do
            begin
                for j:=1 to m do read(h[i,j]);
                readln;
            end;
        v:=0;
    end;
 
procedure install;
var i,j:longint;
    begin
        i:=1;
        for j:=1 to m do w1[i,j]:=h[i,j];
        j:=1;
        for i:=1 to n do w1[i,j]:=h[i,j];
        i:=n;
        for j:=1 to m do w1[i,j]:=h[i,j];
        j:=m;
        for i:=1 to n do w1[i,j]:=h[i,j];
        w2:=w1; w3:=w1; w4:=w1;
    end;
 
function min(a,b:longint):longint;
    begin
        if a>b then min:=b else min:=a;
    end;
 
function max(a,b:longint):longint;
    begin
        if a>b then max:=a else max:=b;
    end;
 
procedure xl;
var i,j:longint;
    begin
        for i:=2 to n-1 do
            for j:=2 to m-1 do
                w1[i,j]:=max(h[i,j],min(w1[i-1,j],w1[i,j-1]));
        for i:=n-1 downto 2 do
            for j:=2 to m-1 do
                w2[i,j]:=max(h[i,j],min(w2[i+1,j],w2[i,j-1]));
        for i:=n-1 downto 2 do
            for j:=m-1 downto 2 do
                w3[i,j]:=max(h[i,j],min(w3[i,j+1],w3[i+1,j]));
        for i:=2 to n-1 do
            for j:=m-1 downto 2 do
                w4[i,j]:=max(h[i,j],min(w4[i,j+1],w4[i-1,j]));
        for i:=2 to n-1 do
            for j:=2 to m-1 do
                w[i,j]:=min(min(w1[i,j],w2[i,j]),min(w3[i,j],w4[i,j]));
        for i:=2 to n-1 do
            for j:=2 to m-1 do v:=v+w[i,j]-h[i,j];
        writeln(v);
    end;
 
procedure solve;
var i,j:longint;
    begin
        doc;
        install;
        xl;
    end;
 
begin
    solve;
end.
 
Đã lưu IP Đã lưu IP  
  Đã khóa chức năng gửi bài.
#27518
TrungKien11 (Thành viên)
Đã code là AC
Bài viết: 95
graphgraph
Thành viên gián tuyến Click vào đây để xem thông tin về thành viên này
Trả lời: PBCWATER 10 năm, 6 tháng trước   (+0)
coa ai ko zup em zoi
 
Đã lưu IP Đã lưu IP  
  Đã khóa chức năng gửi bài.
#27522
sonpascal93 (Thành viên)
sonpascal93-
Nhắm mắt code không bug
Bài viết: 313
graphgraph
Thành viên gián tuyến Click vào đây để xem thông tin về thành viên này
Trả lời: PBCWATER 10 năm, 6 tháng trước   (+0)
@Bạn: test của bạn k phải là test của ps. Sinh test random to ra rồi mới biết chư.
 
Đã lưu IP Đã lưu IP  
  Đã khóa chức năng gửi bài.
#27524
chulun (Thành viên)
canhteo+10
Không code nữa rồi
Bài viết: 605
graphgraph
Thành viên gián tuyến Click vào đây để xem thông tin về thành viên này
Trả lời: PBCWATER 10 năm, 6 tháng trước   (+0)
Đọc qua code thấy thuật toán n^2 này ko ổn lắm thì phải.
 
Đã lưu IP Đã lưu IP  
 
Wish you always love and be loved!

****************

  Đã khóa chức năng gửi bài.
#27530
huy08ti04 (Thành viên)
huy08ti03+9
Nhắm mắt code không bug
Bài viết: 156
graphgraph
Thành viên gián tuyến Click vào đây để xem thông tin về thành viên này
Trả lời: PBCWATER 10 năm, 6 tháng trước   (+0)
BFS đi bạn
 
Đã lưu IP Đã lưu IP  
  Đã khóa chức năng gửi bài.
#27559
_KS_ (Thành viên)
ngocanh+16
Nhắm mắt code không bug
Bài viết: 124
graphgraph
Thành viên gián tuyến Click vào đây để xem thông tin về thành viên này
Trả lời: PBCWATER 10 năm, 6 tháng trước   (+0)
Nước có bị rò rỉ ra theo đường chéo không nhỉ. Ví dụ test:
3 3
1 3 3
3 2 3
3 3 3
Kết quả là 1 hay 0 nhỉ?
 
Đã lưu IP Đã lưu IP  
  Đã khóa chức năng gửi bài.
#27574
TrungKien11 (Thành viên)
Đã code là AC
Bài viết: 95
graphgraph
Thành viên gián tuyến Click vào đây để xem thông tin về thành viên này
Trả lời: PBCWATER 10 năm, 6 tháng trước   (+0)
em nghi n^2 ma chi co 100 chay dau co lau dau. chua toi 1s mu. zoi lai em chay test random cung ra. ma em ko bik minh sai o dau ???
 
Đã lưu IP Đã lưu IP  
  Đã khóa chức năng gửi bài.
#27577
Hitle (Thành viên)
Biết code binary-indexed tree
Bài viết: 31
graphgraph
Thành viên gián tuyến Click vào đây để xem thông tin về thành viên này
Trả lời: PBCWATER 10 năm, 6 tháng trước   (+0)
QUOTE:
em nghi n^2 ma chi co 100 chay dau co lau dau. chua toi 1s mu. zoi lai em chay test random cung ra. ma em ko bik minh sai o dau ???

nhưng cậu cũng phải tính toán cái phức tạp của các phép tính trong vòng for chứ
 
Đã lưu IP Đã lưu IP  
 
______________________________________________________________
************************Liều thì ăn nhiều************************
______________________________________________________________


  Đã khóa chức năng gửi bài.
#27582
R_R_ (Admin)
mr_invincible+213
Admin
Bài viết: 745
graphgraph
Thành viên gián tuyến Click vào đây để xem thông tin về thành viên này
Trả lời: PBCWATER 10 năm, 6 tháng trước   (+0)
N^2 --> độ phức tạp quá bé ^^
Mình đọc qua bài của bạn thì nghĩ là thuật toán sai.
 
Đã lưu IP Đã lưu IP  
  Đã khóa chức năng gửi bài.
#27588
giatuan (Thành viên)
Không code nữa rồi
Bài viết: 462
graphgraph
Thành viên gián tuyến Click vào đây để xem thông tin về thành viên này
Trả lời: PBCWATER 10 năm, 6 tháng trước   (+0)
Baì này BFS thế nào zậy mọi người
 
Đã lưu IP Đã lưu IP  
  Đã khóa chức năng gửi bài.
Bài viết trên cùng Gửi trả lời
Powered by FireBoardBài viết mới nhất từ diễn đàn cho các chương trình nhận tin RSS