Паскаль!!! Помогите пожалуйста нарисовать в Pascal ABC рисунок.
Паскаль!!! Помогите пожалуйста нарисовать в Pascal ABC рисунок.
Гость
Ответ(ы) на вопрос:
Гостьuses GraphABC;
Var W,H:integer;
Begin
W:=WindowWidth;
H:=WindowHeight;
SetPenColor(clGreen);
SetPenWidth(3);
Line(0,H div 2,W,H div 2);
Line(W div 2,0,W div 2,H);
Line(3*(W div 4),0,3*(W div 4)+(H div 4),(H div 4));
Line(3*(W div 4),0,3*(W div 4)-(H div 4),(H div 4));
Line(3*(W div 4)+(H div 4),(H div 4),3*(W div 4),2*(H div 4));
Line(3*(W div 4)-(H div 4),(H div 4),3*(W div 4),2*(H div 4));
Rectangle(3*(W div 4)-(H div 8),H div 8,3*(W div 4)+(H div 8),3*(H div 8)) ;
Line(3*(W div 4)-(H div 8),H div 8,3*(W div 4)+(H div 8),3*(H div 8));
Line(3*(W div 4)+(H div 8),H div 8,3*(W div 4)-(H div 8),3*(H div 8));
End.
Не нашли ответ?
Похожие вопросы