Question

PascalABC.Помогите,пожалуйста,решить задачу!Нарисуйте окружность такой линией, ширина которой больше радиуса. Обведите полученную фигуру по контуру окружностью с линией шириной 1.

Answer 1

//Pascal ABC.NET 3.1 сборка 1219

uses
 GraphABC;
const
    radius = 100;
    line_width = 101;

begin
    Window.Init(0, 0, 350, 350, clNavy);
    Window.CenterOnScreen();
    Brush.Color := clBlue;
    Pen.Color := clBlack;
    Pen.Width := line_width;
    Circle(WindowCenter.X, WindowCenter.Y, radius);
    Pen.Width := 2;
    Pen.Color := clAquamarine;
    DrawCircle(WindowCenter.X, WindowCenter.Y, radius + line_width div 2);
end.

Answer 2

Спасибо большое!!!

Answer 3

//Pascal ABC.NET 3.1 сборка 1256

Uses
 GraphABC;

Var
 r:integer;
begin
readln(r);
brush.Style:=bsClear;
pen.Width:=r+10;
circle(window.Center.X,window.Center.Y,r);
pen.Width:=1;
pen.Color:=clPurple;
circle(window.Center.X,window.Center.Y,r+(r+10) div 2);
end.

Answer 4

Нет, не так.

Answer 5

что не так? телепаты в отпуске

Answer 6

Я о своём прошлом решении. Сейчас уже поправил.