IOI 2004

Submission #1811495

Source codeソースコード

{$mode objfpc}
{$COPERATORS ON}
uses math;
const fi=''; fo='';
type Titems=record w,h:longint; end;
var fin,fout:Text;
    n,R,C,nTest:longint;
    a:array[1..200+3] of Titems;
    f:array[0..600+7,0..600+7] of longint;
    have:array[0..600+7,0..600+7] of boolean;
procedure doc;
    var i:longint;
    begin
    read(fin,C,R);
    read(fin,n);
        for i:=1 to n do
            begin
            read(fin,a[i].w,a[i].h);
            have[a[i].h,a[i].w]:=true;
            end;
    end;
function DP(row,col:longint):longint;
    var Res,i:longint;
    begin
    if F[Row,Col]<>-1 then exit(f[Row,Col]);
    Res:=Row*Col;
       if have[row,col] then res:=0;
    if Res>0 then
        begin
        for i:=1 to Row-1 do
            Res:=min(Res,DP(i,Col)+DP(Row-i,Col));
        for i:=1 to Col-1 do
            Res:=min(Res,DP(Row,i)+DP(Row,Col-i));
        end;
    F[Row,Col]:=Res;
    Exit(Res);
    end;
procedure Solve;
    begin
        fillchar(F,sizeof(F),255);
        writeln(fout,DP(R,C));
    end;
begin
    assign(fin,fi);
    assign(fout,fo);
    reset(fin);rewrite(fout);
        //readln(fin,nTest);
       // repeat
            Doc;
            Solve;
        //dec(nTest);
        //until nTest=0;
    close(fin);close(fout);
end.

Submission

Task問題 1 - Hermes
User nameユーザ名 ndhp2000
Created time投稿日時
Language言語 Pascal (FPC 2.6.2)
Status状態 RE
Score得点 0
Source lengthソースコード長 1307 Byte
File nameファイル名
Exec time実行時間 ms
Memory usageメモリ使用量 -

Compiler messageコンパイルメッセージ

/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?

Test case

Set

Set name Score得点 / Max score Cases
Set01 0 / 5 01
Set02 0 / 5 02
Set03 0 / 5 03
Set04 0 / 5 04
Set05 0 / 5 05
Set06 0 / 5 06
Set07 0 / 5 07
Set08 0 / 5 08
Set09 0 / 5 09
Set10 0 / 5 10
Set11 0 / 5 11
Set12 0 / 5 12
Set13 0 / 5 13
Set14 0 / 5 14
Set15 0 / 5 15
Set16 0 / 5 16
Set17 0 / 5 17
Set18 0 / 5 18
Set19 0 / 5 19
Set20 0 / 5 20

Test case

Case name Status状態 Exec time実行時間 Memory usageメモリ使用量
01 WA
02 WA
03 WA
04 RE
05 RE
06 WA
07 RE
08 WA
09 RE
10 WA
11 WA
12 RE
13 RE
14 RE
15 WA
16 RE
17 RE
18 RE
19 RE
20 RE