Орнамент

[mrKosmos]

Помогите. Нужно что бы данная фигура, которая получилась, дублировалась по всему экрану.

uses graphabc;
var
  cx : integer := WindowCenter.X;
  cy : integer := WindowCenter.Y;
 
procedure ornament(n,r,h:integer);
begin
var a:=pi/2;
for var i:=1 to n do
 begin
  var arr: array of Point := (
     new point (trunc(cx + r*cos(a)), trunc(cy - r*sin(a))),
     new point (trunc(cx + r*cos(a + 2*pi/3)), trunc(cy - r*sin(a+2*pi/3))), 
     new point (trunc(cx + r*cos(a + 4*pi/3)), trunc(cy - r*sin(a+4*pi/3))));
  
  Setpencolor(clRandom);
  Setbrushstyle(bsClear);
  Polygon(arr);
  r:=r+h;
 end; 
end;
 
var n,r,h:integer;
begin
n:=20;
r:=20; 
h:=10;
ornament(n,r,h);
end.

[OlegPrograming5]

Версию паскаля не подскажете?

[mrKosmos]

Сообщение от OlegPrograming5

Версию паскаля не подскажете?

Pascal ABC

[BDA]

1) В Pascal ABC у меня не скомпилировался, только в Pascal ABC NET заработал
2) Эх, чему только учит этот "паскаль"
3) Вам осталось рассчитать правильно пределы для циклов по j и k (чтобы заполняли экран полностью, лишнего за пределами не рисовали)

uses
  graphabc;

var
  cx: integer := WindowCenter.X;
  cy: integer := WindowCenter.Y;

procedure ornament(n, r, h: integer);
begin
  var a := pi / 2;
  var x := (r + h * (n - 1)) * sqrt(3);
  var y := (r + h * (n - 1)) * 1.5;
  var d := r;
  for var j := -10 to 10 do
    for var k := -10 to 10 do
    begin
      r := d;
      for var i := 1 to n do
      begin
        var arr: array of Point := (
           new point(trunc(cx + j * x + r * cos(a)), trunc(cy + k * y - r * sin(a))),
           new point(trunc(cx + j * x + r * cos(a + 2 * pi / 3)), trunc(cy + k * y - r * sin(a + 2 * pi / 3))),
           new point(trunc(cx + j * x + r * cos(a + 4 * pi / 3)), trunc(cy + k * y - r * sin(a + 4 * pi / 3))));
        Setpencolor(clRandom);
        Setbrushstyle(bsClear);
        Polygon(arr);
        r := r + h;
      end;
    end;
end;

var
  n, r, h: integer;

begin
  n := 5;
  r := 20;
  h := 10;
  ornament(n, r, h);
end.

[mrKosmos]

Сообщение от BDA

1) В Pascal ABC у меня не скомпилировался, только в Pascal ABC NET заработал
2) Эх, чему только учит этот "паскаль"
3) Вам осталось рассчитать правильно пределы для циклов по j и k (чтобы заполняли экран полностью, лишнего за пределами не рисовали)

uses
  graphabc;

var
  cx: integer := WindowCenter.X;
  cy: integer := WindowCenter.Y;

procedure ornament(n, r, h: integer);
begin
  var a := pi / 2;
  var x := (r + h * (n - 1)) * sqrt(3);
  var y := (r + h * (n - 1)) * 1.5;
  var d := r;
  for var j := -10 to 10 do
    for var k := -10 to 10 do
    begin
      r := d;
      for var i := 1 to n do
      begin
        var arr: array of Point := (
           new point(trunc(cx + j * x + r * cos(a)), trunc(cy + k * y - r * sin(a))),
           new point(trunc(cx + j * x + r * cos(a + 2 * pi / 3)), trunc(cy + k * y - r * sin(a + 2 * pi / 3))),
           new point(trunc(cx + j * x + r * cos(a + 4 * pi / 3)), trunc(cy + k * y - r * sin(a + 4 * pi / 3))));
        Setpencolor(clRandom);
        Setbrushstyle(bsClear);
        Polygon(arr);
        r := r + h;
      end;
    end;
end;

var
  n, r, h: integer;

begin
  n := 5;
  r := 20;
  h := 10;
  ornament(n, r, h);
end.

Спасибо.
Вот такой вопрос. Можно ли как-то перевести этот код в обычный Pascal ABC, что б компилился?

[BDA]

Думаю можно . Просто это нудная работа. Скопировать код. Попробовать скомпилировать. Прочесть жалобы компилятора. Исправить их. Повторять последние 3 пункта до победного.