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

Question

Информатика

Ксанфиппа

23 января, 21:49

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

+2

Ответы (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.