Задать вопрос Регистрация
Помочь другим

  • помогите  пожалуйста  нарисовать треугольник  в Pascal ABC

Ответы 1

  • 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.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years