SaveText.Ru

паскаль заказ
  1. uses GraphABC;
  2. var xx, yy:integer;
  3. dep, qwe, delit:integer;
  4.  
  5. procedure draw(dx, dy:integer);
  6. Begin
  7. Line(xx div delit, yy div delit, (xx + dx ) div delit, (yy + dy) div delit);
  8. xx += dx;
  9. yy += dy;
  10. end;
  11.  
  12. procedure hilbert(dep, dx, dy:integer);
  13. Begin
  14. if (dep > 1) then hilbert(dep - 1, dy, dx);
  15. draw(dx, dy);
  16. if (dep > 1) then hilbert(dep - 1, dx, dy);
  17. draw(dy, dx);
  18. if (dep > 1) then hilbert(dep - 1, dx, dy);
  19. draw(-dx, -dy);
  20. if (dep > 1) then hilbert(dep - 1, -dy, -dx);
  21. End;
  22.  
  23. Begin
  24.   MaximizeWindow();
  25.   xx := 800;
  26.   yy := 400;
  27.   while (true) do
  28.     Begin
  29.       writeln('Введите глубину');
  30.       readln(qwe);
  31.       writeln('Введите Размер');
  32.       readln(delit);
  33.       clearwindow();
  34.       dep := qwe;
  35.       hilbert(dep, 50, 0);
  36.       xx := 800;
  37.       yy := 400;
  38.     End;
  39. end.

Share with your friends:

Print