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

Question

Информатика

Ниля

13 марта, 20:17

Составте программу в рисовании 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.