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

Question

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

Comments

Да нет такой версии языка - PascalABC! Есть Pascal ABC и PascalABC.NET

---

пробел забыла поставить!

Answer 1

//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.

Comments

Нет, не так.

---

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

---

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

Answer 2

//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.

Comments

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