IOI 2004

Submission #1811479

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;
procedure doc;
    var i:longint;
    begin
    readln(fin,C,R);
    readln(fin,n);
        for i:=1 to n do
            read(fin,a[i].w,a[i].h);
    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;
        for i:=1 to n do
            if (Row=a[i].h) and (Col=a[i].w) then Res:=0;
        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));
    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問題 13 - Phidias
User nameユーザ名 ndhp2000
Created time投稿日時
Language言語 Pascal (FPC 2.6.2)
Status状態 WA
Score得点 0
Source lengthソースコード長 1178 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 WA
05 WA
06 WA
07 WA
08 WA
09 WA
10 WA
11 WA
12 WA
13 WA
14 WA
15 WA
16 WA
17 WA
18 WA
19 WA
20 WA