比赛代码 - COGS

比赛	NOIP_1	评测结果	WAAWW
题目名称	画海岛地图	最终得分	40
用户昵称	辨机ZN	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2008-10-12 11:58:52

显示代码纯文本

program ex(f1,f2);
 var
  f1,f2:text; s1,s2:string;
  i:integer;
 begin
  assign(f2,'island.out'); rewrite(f2);
  s1:='* * * *';
  s2:=' * * * *';
  writeln(f2,1);
  for i:=1 to 4 do begin writeln(f2,s1); writeln(f2,s2); end;
  writeln(f2,2);
  for i:=1 to 4 do begin writeln(f2,s2); writeln(f2,s1); end;
close(f2);
end.