Guest User

Untitled

a guest
Jan 22nd, 2018
72
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.14 KB | None | 0 0
  1. program eeer;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6. SysUtils;
  7.  
  8. var
  9. n, i, j, e: integer;
  10. a: array[0..30, 0..30] of integer;
  11. w: boolean;
  12. s: string;
  13.  
  14. begin
  15. reset(input, 'string.in');
  16. rewrite(output, 'string.out');
  17. readln(n);
  18. e := 1;
  19. w := true;
  20. s := 'a';
  21. for i := 1 to (n * n) do
  22. begin
  23. if (w = false) then
  24. begin
  25. for j := 0 to (n-1) do
  26. begin
  27. if (a[e, ((j - e + n) mod n + 1)] = 0) then
  28. begin
  29. a[e, ((j - e + n) mod n + 1)] := 1;
  30. e := ((j - e + n) mod n + 1);
  31. break;
  32. end;
  33. end;
  34. end
  35. else
  36. begin
  37. for j := 0 to (n-1) do
  38. begin
  39. if (a[e, ((e - j + n - 1) mod n + 1)] = 0) then
  40. begin
  41. a[e, ((e - j + n - 1) mod n + 1)] := 1;
  42. e := ((e - j + n - 1) mod n + 1);
  43. break;
  44. end;
  45. end;
  46. end;
  47.  
  48. s := s + chr (e + 96);
  49. if (e = 1) then
  50. w := false;
  51. if (e = n) then
  52. w := true;
  53. end;
  54. writeln(s);
  55. //readln; readln;
  56. end.
Add Comment
Please, Sign In to add comment