Графика, очень срочно

Тема в разделе "Delphi - Multimedia, Графика, Игры", создана пользователем -, 11 янв 2011.

Статус темы:
Закрыта.
  1. Гость

    Здравствуйте! Помогите пожалуйста... Очень срочно. Нужно в окружность вписать равносторонний треугольник. и чтоб он со спинэдитом был связан. вот код программы, круг я нарисовала все работает а вот треугольник не получается =((((
     

    Вложения:

  2. lazybiz

    lazybiz Well-Known Member
    C\C++ Team

    Регистрация:
    3 ноя 2010
    Сообщения:
    1.344
    Симпатии:
    0
    Снежка89
    Я извиняюсь, а Вас не Ангелина зовут!?
     
  3. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    Код (Delphi):
    procedure TForm36.Button1Click(Sender: TObject);
    var i,r,r_const,x,y,x1,y1,x2,y2,x3,y3,n:integer;
    begin
    paintbox1.Canvas.FillRect(paintbox1.ClientRect);
    r:=50; //радиус первого круга
    r_const:=r;
    n:=3;//количесто (окружностей+треугольников)/2
    for i:=1 to n do
    begin
    r:=r div i;
    x:=r_const-r;
    y:=r_const-r;
    x1:=r;
    y1:=0;
    y2:=r+r div 2;
    y3:=y2;
    x2:=r-round(r*sqrt(3/4));//*sqrt(3/4) берем из формулы x*x+y*y=r*r, подставив в неё х=r*r/4 получим что y=r*sqrt(3/4)
    //sqrt - арифметический корень
    x3:=r+round(r*sqrt(3/4));
    paintbox1.Canvas.Ellipse(x,y,r*2+x,r*2+y);
    paintbox1.Canvas.MoveTo(x+x1,y+y1);
    paintbox1.Canvas.LineTo(x+x2,y+y2);
    paintbox1.Canvas.LineTo(x+x3,y+y3);
    paintbox1.Canvas.LineTo(x+x1,y+y1);
    end;
    end;
    Результат:
    12345.jpg


    ЗЫ Что означает К (на картинке)?
     
  4. lazybiz

    lazybiz Well-Known Member
    C\C++ Team

    Регистрация:
    3 ноя 2010
    Сообщения:
    1.344
    Симпатии:
    0
    Я думаю это глубина вложения.
     
  5. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    Ну тогда по идее это моё "n".
     
  6. Гость


    Нет, Меня зовут Снежана =)

    Добавлено: СПАСИБО ОГРОМНОЕ =)))))))))))))))
     
  7. lazybiz

    lazybiz Well-Known Member
    C\C++ Team

    Регистрация:
    3 ноя 2010
    Сообщения:
    1.344
    Симпатии:
    0
    Пожалуйста. Хотя я вроде ни чем и не помог....
     
Загрузка...
Похожие Темы - Графика очень срочно
  1. Lers
    Ответов:
    0
    Просмотров:
    1.646
  2. 203
    Ответов:
    2
    Просмотров:
    1.488
  3. animelubitel
    Ответов:
    0
    Просмотров:
    738
  4. Даниил
    Ответов:
    0
    Просмотров:
    817
  5. art2023
    Ответов:
    3
    Просмотров:
    782
Статус темы:
Закрыта.

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