|
Стрелка состоит из отрезка прямой и равностороннего треугольника – острия. Сторона треугольника, пересекающая отрезок, образует с ним прямой угол; точка пересечения делит отрезок в отношении 1:5. Построить горизонтальную стрелку, направленную из точки (100, 100) в точку (150, 100).
|
|
|
|
uses graph;
var x1,y,x2:integer;
h,a:integer;
begin
initgraph(x1,y,'');
x1:=100;{начало}
y:=100;
x2:=150;{конец}
h:=round((x2-x1)/6);{высота треугольника}
a:=round(h/sin(pi/3));{сторона треугольника}
line(x1,y,x2-h,y);{линия стрелки}
{треугольник}
line(x2-h,y-a div 2,x2-h,y+a div 2);
line(x2-h,y-a div 2,x2,y);
line(x2-h,y+a div 2,x2,y);
readln
end.
"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ). Спасибо
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
