Question

Измените программу так, чтобы маска улыбалась
uses GraphABC;
begin
Chord(300,200,200,160,380);
Chord(200,200,50,180,360);
Chord(400,200,50,225,315);
Pie(300,250,50,225,315);
Arc(300,370,50,0,180);
end.​

Answer 1

Ответ:

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);

можно выкинуть, если с ними будут проблемы (это просто размеры окна и толщина линии)