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

Question

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

---

Comments

Сколько часов есть на решение?

---

Надо нарисовать, только ромб и прямоугольник в нем в диагоналями и линии, а монитор не нужно рисовать. в течение часа было бы отлично)

Answer 1

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.

---

Comments

Большое спасибо)