Скачать: CL | DM;

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

← →
Лора   (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]

Спасибочки

---

← →
Axis_of_Evil ©   (2006-12-09 21:35) [7]

> Орион ©   (09.12.06 19:22) [4]
> > [1] Axis_of_Evil ©   (09.12.06 18:44)
> http://demiurge.org.ua/direction.jpg

exactly.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.027 c