Прямоугольник с закругленными углами - Pascal ABC

Формулировка задачи:

Нужно нарисовать в паскале знак. подскажите, как нарисовать прямоугольник с закругленными углами?) ну если не сложно можно нарисовать полностью

Код к задаче: «Прямоугольник с закругленными углами - Pascal ABC»

textual
uses graphabc;
begin
SetBrushColor(clBlue);
roundrect(100,100,200,200,30,30);
SetBrushColor(clRed);
rectangle(135,100,145,130);
line(130,130,150,130);
line(150,130,140,155);
line(140,155,130,130);
floodfill(140,150,clred);
SetBrushColor(clwhite);
rectangle(150,200,160,160);
line(145,160,165,160);
line(165,160,155,135);
line(155,135,145,160);
floodfill(150,150,clwhite);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

11   голосов, оценка 4.364 из 5


СДЕЛАЙТЕ РЕПОСТ