IOI 2004

Submission #1811480

Source codeソースコード

{$mode objfpc}
{$COPERATORS ON}
uses math;
const fi='phidias.inp'; fo='phidias.out';
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状態 RE
Score得点 0
Source lengthソースコード長 1200 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 RE
02 RE
03 RE
04 RE
05 RE
06 RE
07 RE
08 RE
09 RE
10 RE
11 RE
12 RE
13 RE
14 RE
15 RE
16 RE
17 RE
18 RE
19 RE
20 RE