mirror of
https://github.com/Kiritow/OJ-Problems-Source.git
synced 2024-03-22 13:11:29 +08:00
Create 1066.pas
This commit is contained in:
parent
06a9fd4965
commit
63badb2b3a
23
QUSTOJ/1066.pas
Normal file
23
QUSTOJ/1066.pas
Normal file
|
@ -0,0 +1,23 @@
|
|||
var i,j,n:longint;map:array[0..1024,0..2048]of char;a:array[0..11]of longint;
|
||||
procedure draw(x,y,n:longint);
|
||||
begin
|
||||
if n=1 then
|
||||
begin
|
||||
map[x,y]:='/';map[x,y+1]:='_';map[x,y+2]:='_';map[x,y+3]:='\';
|
||||
map[x+1,y+1]:='/';map[x+1,y+2]:='\';
|
||||
end
|
||||
else begin draw(x,y,n-1);draw(x+a[n-1],y+a[n-1],n-1);draw(x,y+a[n],n-1);end;
|
||||
end;
|
||||
begin
|
||||
for i:=1 to 1024 do
|
||||
for j:=1 to 2048 do
|
||||
map[i,j]:=' ';
|
||||
a[0]:=1;readln(n);
|
||||
for i:=1 to 11 do a[i]:=a[i-1]*2;
|
||||
draw(1,1,n);
|
||||
for i:=a[n] downto 1 do
|
||||
begin
|
||||
for j:=1 to a[n]+(a[n]-i+1) do write(map[i,j]);
|
||||
writeln;
|
||||
end;
|
||||
end.
|
Loading…
Reference in New Issue
Block a user