Question

Нарисуйте звёздочку и домик в паскале
ПОЖАЛУЙСТА СРОЧНО 10 БАЛЛОВ​

Answer 1

Ответ:

1) Дом

uses GraphABC;

begin

 setwindowsize(800,800);

 SetpenWidth(6);

 rectangle(100,300,600,700);

 Moveto(100,300);

 Lineto(350,35);

 lineto(600,300);

 rectangle(130,420,260,600);

 rectangle(450,450,600,700);

 circle(480,570,5);

 line(195,420,195,600);

 line(130,500,260,500);

end.

2) Звезда

uses GraphABC;  

begin

Setpenwidth(5);

Setpencolor(clred);

Moveto(300,0);

lineto(150,400);

lineto(300,300);

lineto(450,400);

lineto(300,0);

line(75,150,525,150);

line(75,150,450,400);

line(525,150,150,400);

end.