Advertisement
Guest User

glebhueb

a guest
Oct 22nd, 2016
57
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.85 KB | None | 0 0
  1. var
  2. c,e,f,h,i,j,n,r,w,a,b,x,y : integer;
  3. u: char;
  4. mas : array [1..1000,1..1000] of char;
  5. begin
  6. read(h,w,n);
  7. for i:=1 to h do begin
  8. for j:=1 to w do begin
  9. mas[i][j]:='.';
  10. end; end;
  11. for i:=1 to n do begin
  12. case (i) of
  13. 1: u:='a';
  14. 2: u:='b';
  15. 3: u:='c';
  16. 4: u:='d';
  17. 5: u:='e';
  18. 6: u:='f';
  19. 7: u:='g';
  20. 8: u:='h';
  21. 9: u:='i';
  22. 10: u:='j';
  23. 11: u:='k';
  24. 12: u:='l';
  25. 13: u:='m';
  26. 14: u:='n';
  27. 15: u:='o';
  28. 16: u:='p';
  29. 17: u:='q';
  30. 18: u:='r';
  31. 19: u:='s';
  32. 20: u:='t';
  33. 21: u:='u';
  34. 23: u:='v';
  35. 24: u:='w';
  36. 25: u:='x';
  37. 26: u:='y';
  38. 27: u:='z';
  39. end;
  40. read(r,c,e,f);
  41. a:=r; b:=c;
  42. for r:=r to e do begin
  43. for c:=c to f do begin
  44. mas[r][c]:=u;
  45. end; end;
  46. for x:=f downto a do begin
  47. mas[e][x]:=u;
  48. end;
  49. for y:=e downto b do begin
  50. mas[y][x]:=u;
  51. end;
  52. end;
  53. for i:=1 to h do begin
  54. for j:=1 to w do begin
  55. write(mas[i,j]);
  56. end; writeln(); end;
  57. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement