Dennnhhhickk

Untitled

Oct 9th, 2016
81
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.39 KB | None | 0 0
  1. program Project2;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6. SysUtils;
  7.  
  8. const
  9. MAXIN = 10000;
  10.  
  11. var
  12. n, i, j: integer;
  13. a: array [1..MAXIN, 1..MAXIN] of integer;
  14.  
  15. procedure wiwod();
  16. var
  17. i, j: integer;
  18. time: array [1..MAXIN] of integer;
  19. begin
  20. for i := 1 to n do
  21. time[i] := 0;
  22.  
  23. for i := 1 to n do
  24. for j := 1 to n do
  25. inc(time[a[i][j]]);
  26.  
  27. //for i := 1 to n do
  28. //if (time[i] <> n) then
  29. //exit;
  30.  
  31. for i := 1 to n do
  32. begin
  33. for j := 1 to n - 1 do
  34. write(a[i][j], ' ');
  35. writeln(a[i][n]);
  36. end;
  37. writeln('End');
  38. readln;
  39. readln;
  40. halt(0);
  41. end;
  42.  
  43. procedure rec(x, y: integer);
  44. var
  45. i, j: integer;
  46. used: array [1..MAXIN] of boolean;
  47. begin
  48. for i := 1 to n do
  49. used[i] := true;
  50.  
  51. for i := 1 to n do
  52. begin
  53. used[a[x][i]] := false;
  54. used[a[i][y]] := false;
  55. end;
  56.  
  57. if (a[x][y] <> 0) then
  58. if (x = n) and (y = n) then
  59. wiwod
  60. else
  61. if (y = n) then
  62. rec(x + 1, 1)
  63. else
  64. rec(x, y + 1)
  65. else
  66. for i := 1 to n do
  67. if (used[i]) then
  68. begin
  69. a[x][y] := i;
  70. if (x = n) and (y = n) then
  71. wiwod
  72. else
  73. if (y = n) then
  74. rec(x + 1, 1)
  75. else
  76. rec(x, y + 1);
  77. end;
  78.  
  79. end;
  80.  
  81. begin
  82. readln(n);
  83.  
  84. for i := 1 to n do
  85. for j := 1 to n do
  86. read(a[i][j]);
  87.  
  88. rec(1, 1);
  89. writeln('End');
  90. readln;readln;readln;readln;
  91. end.
Advertisement
Add Comment
Please, Sign In to add comment