Составте программу в рисовании PascalABC

Question

Информатика

Ксанфиппа

21 марта, 14:16

Составте программу в рисовании PascalABC

+1

Ответы (1)

Знаете ответ на вопрос?

Никула · Answer 1

Uses graphABC;

var x, y:integer;

begin

x:=windowwidth div 2;

y:=windowheight-80;

rectangle (x-100, y, x+100, y+50) ;

circle (x-100, y-100,20) ;

circle (x+100, y-100,20) ;

line (x, y, x-86, y-86) ;

line (x, y, x+86, y-86) ;

line (x, y, x, y-160) ;

arc (x, y-140,20,0,180) ;

end.