比赛 |
NOIP_1 |
评测结果 |
WAWAW |
题目名称 |
画海岛地图 |
最终得分 |
40 |
用户昵称 |
nick09 |
运行时间 |
0.000 s |
代码语言 |
Pascal |
内存使用 |
0.00 MiB |
提交时间 |
2010-07-23 12:11:35 |
显示代码纯文本
program island;
var
a,b:array[0..20]of integer;
n:integer;
fg:boolean;
f1,f2:text;
procedure init;
var i,j:integer;
begin
assign(f1,'island.in');reset(f1);
assign(f2,'island.out');rewrite(f2);
readln(f1,n);
for i:=1 to 5 do read(f1,a[i]);
for i:=1 to 4 do if a[i]<>1 then fg:=false;
if a[5]<>0 then fg:=false;
end;
Begin
fg:=true;
init;
if fg then
begin
writeln(f2,'1');
writeln(f2,'* * * * ');
writeln(f2,' * * * *');
writeln(f2,'* * * * ');
writeln(f2,' * * * *');
writeln(f2,'* * * * ');
writeln(f2,' * * * *');
writeln(f2,'* * * * ');
writeln(f2,' * * * *');
writeln(f2,'2');
writeln(f2,' * * * *');
writeln(f2,'* * * * ');
writeln(f2,' * * * *');
writeln(f2,'* * * * ');
writeln(f2,' * * * *');
writeln(f2,'* * * * ');
writeln(f2,' * * * *');
writeln(f2,'* * * * ');
end
else writeln(f2,'no');
close(f1);close(f2);
end.