Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var
- c,e,f,h,i,j,n,r,w,a,b,x,y : integer;
- u: char;
- mas : array [1..1000,1..1000] of char;
- begin
- read(h,w,n);
- for i:=1 to h do begin
- for j:=1 to w do begin
- mas[i][j]:='.';
- end; end;
- for i:=1 to n do begin
- case (i) of
- 1: u:='a';
- 2: u:='b';
- 3: u:='c';
- 4: u:='d';
- 5: u:='e';
- 6: u:='f';
- 7: u:='g';
- 8: u:='h';
- 9: u:='i';
- 10: u:='j';
- 11: u:='k';
- 12: u:='l';
- 13: u:='m';
- 14: u:='n';
- 15: u:='o';
- 16: u:='p';
- 17: u:='q';
- 18: u:='r';
- 19: u:='s';
- 20: u:='t';
- 21: u:='u';
- 23: u:='v';
- 24: u:='w';
- 25: u:='x';
- 26: u:='y';
- 27: u:='z';
- end;
- read(r,c,e,f);
- a:=r; b:=c;
- for r:=r to e do begin
- for c:=c to f do begin
- mas[r][c]:=u;
- end; end;
- for x:=f downto a do begin
- mas[e][x]:=u;
- end;
- for y:=e downto b do begin
- mas[y][x]:=u;
- end;
- end;
- for i:=1 to h do begin
- for j:=1 to w do begin
- write(mas[i,j]);
- end; writeln(); end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement