Помогите пожалуйста нарисовать треугольник в Pascal ABC
Помогите пожалуйста нарисовать треугольник в Pascal ABC
Гость
Ответ(ы) на вопрос:
Гость[latex]Uses \ GraphAbc; \\ Var \ x1,x2,x3,y1,y2,y3:Integer; \\ Begin \\ \ x1:=100; \ y1:=100; \\ \ x2:=300; \ y2:=50; \\ \ x3:=250; \ y3:=200; \\ \ Line(x1,y1,x2,y2); \\ \ LineTo(x3,y3); \\ \ LineTo(x1,y1); \\ End.[/latex]
Не нашли ответ?
Похожие вопросы