Горбатый
5 год назад
составте программу в рисовании PascalABC
ОТВЕТЫ
Мария
Oct 24, 2020
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.
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.
136
Смежные вопросы:
