Ребят, как нарисовать орнамент?

Тема в разделе "Pascal and Delphi", создана пользователем -, 20 фев 2011.

  1. Гость

    Задали сделать орнамент, заполнить пространство равносторонним треугольником...сторона которого задается.

    Так вот, не объяснили ничего,а в нете покапалась- ничего нет(

    помогите пожалуйста!!
    ;)
     
  2. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    примерно так:
    Код (Delphi):
    var x,y,l,d,i,j,nx,ny:integer;
    begin
    l:=  //длина стороны треугольника
    d:=l*sin(3.14/3);
    for i:=0 to nx do //nx-количество в ширину
    for j:=0 to ny do //ny-количество в высоту
    begin
    x:=i*l;
    y:=j*d;
    paintbox1.canvas.moveto(x,y);
    paintbox1.canvas.lineto(x+round(l/2),y-d);
    paintbox1.canvas.lineto(x+l,y);
    paintbox1.canvas.lineto(x,y);
    end;
    end;
     
Загрузка...

Поделиться этой страницей