比赛代码 - COGS

比赛	NOIP_1	评测结果	EEEEEEEEEE
题目名称	圆弦	最终得分	0
用户昵称	thegy	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2008-09-03 22:02:49

显示代码纯文本

program circlex;
var
  d:array[0..1000]of longint;
  n,ans,i,j:longint;
  fin,fout:text;
begin
  assign(fin,'circle.in'); reset(fin);
  assign(fout,'circle.out'); rewrite(fout);
  read(fin,n);
  d[0]:=1;
  d[1]:=1;
  d[2]:=2;
  for i:=3 to n do
  begin
    d[i]:=d[i-1];
    for j:=1 to i-1 do
      d[i]:=d[i]+d[i-1-j]*d[j-1];
  end;
  writeln(fout,d[n]);
  close(fin);
  close(fout);
end.