Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Задание в курсовой
Задание в курсовой
Стрелка состоит из отрезка прямой и равностороннего треугольника – острия. Сторона треугольника, пересекающая отрезок, образует с ним прямой угол; точка пересечения делит отрезок в отношении 1:5. Построить горизонтальную стрелку, направленную из точки (100, 100) в точку (150, 100).
1 | Автор: unika | 2012-05-06, 09:38   |  Репутация: [ + 0 ]
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
2 | Автор: Berestovskiy | 2012-05-06, 13:25   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Задание в курсовой
Страница 1 из 11
Поиск: