треугольник

← →
Лора (2006-12-09 18:30) [0]

Помогите написать учебную прогу построения треугольника по двум сторонам и углу

← →
Axis_of_Evil © (2006-12-09 18:44) [1]

← →
ProgRAMmer Dimonych © (2006-12-09 18:54) [2]

Я своё время делал что-то похожее (там были элементарные задачи на построение), но это была программа под ДОС, поэтому там без всяких издишеств можно было с достаточно приличной скоростью выводить анимированную картинку. Под D5 (да и вообще под Delphi) такое забомбить прблемно, ибо мерцать будет зверски...

Навеяло:

Иннокентий глядит на дисплей VGA,
Привлечённый богатством палитры.
От сиденья за сутки устала нога,
И желудок желает поллитры.

То погаснет экран, то вдруг станет мерцать -
Издевательствам края не видно...
Только точки желанной никак не видать!!!
Иннокентию очень обидно...

← →
ProgRAMmer Dimonych © (2006-12-09 18:57) [3]

P.S. Если заинтересует - на мыло (Dimon-Delphist@mail.ru, хотя оно и так доступно :))

← →
Орион © (2006-12-09 19:22) [4]

> [1] Axis_of_Evil © (09.12.06 18:44)

http://demiurge.org.ua/direction.jpg
пойдет?)

← →
PZ (2006-12-09 19:46) [5]

Предлагаю маленький пример

procedure TForm1.FormPaint(Sender: TObject); Var A : Real; // Угол D : Real; // Длина отрезка X1, X2, X3, Y1, Y2, Y3 : Integer; begin // Частный случай: Одна из сторон параллельна оси Х D := 50; A := 60; // градусов X1 := 40; Y1 := 150; X2 := 140; Y2 := 150; X3 := X1+Round(D*Cos(A*Pi/180)); Y3 := Y1-Round(D*Sin(A*Pi/180)); Canvas.MoveTo(X1, Y1); Canvas.LineTo(X2, Y2); Canvas.LineTo(X3, Y3); Canvas.LineTo(X1, Y1); end;

← →
Лора (2006-12-09 19:50) [6]

Спасибочки

треугольник Найти похожие ветки