uses GraphABC;
begin
SetWindowWidth(600);
SetWindowHeight(500);
SetPenWidth (3);
Line(111,131,489,131);
Arc(300,200,200,160,380);
Pie(200,220,50,0,180);
Pie(400,220,50,0,180);
Pie(300,250,50,225,315);
Arc(300,320,50,180,360)
end.
Объяснение:
картинка
Будет ли работать у тебя точно не знаю.
У тебя, возможно, будет работать в таком виде:
uses GraphABC;
begin
SetWindowWidth(600);
SetWindowHeight(500);
SetPenWidth (3);
Chord(300,200,200,160,380);
Chord(200,220,50,0,180);
Chord(400,220,50,0,180);
Pie(300,250,50,225,315);
Arc(300,320,50,180,360)
end.
Эти строчки:
SetWindowWidth(600);
SetWindowHeight(500);
SetPenWidth (3);
можно выкинуть, если с ними будут проблемы (это просто размеры окна и толщина линии)
