⇢ 
Тина
Muzaffar
как сделать прямоугольник с кружками тебе уже сказали. Теперь надо сделать форму без верхнего заголовка. borderStyle:=None; ну и ещё чуть-чуть отсюда cyberforum. ru/delphi-beginners/thread28681.html
VK
Valya Kotik
переделай как надо
program flag;
uses graphABC;
begin
setwindowwidth(800);
setwindowheight(600);
setfontsize(18);
setbrushcolor(clwhite);
rectangle(200,200,550,250);
textout(210,210,'Да здравствует Россия ');
setbrushcolor(clblue);
rectangle(200,250,550,300);
setbrushcolor(clred);
rectangle(200,300,550,350);
line(200,250,200,450);
end.
КП
Кирилл Пратько
uses graphABC;
var xc,yc,r,x,y:integer;
begin
xc:=windowwidth div 2;
yc:=windowheight div 2;
r:=50;
clearwindow(clAqua);
setbrushstyle(bsSolid);
setbrushcolor(clWhite);
rectangle(xc-4*r,yc-3*r,xc+4*r,yc+2*r);
setpenwidth(5);
setbrushstyle(bsClear);
setpencolor(clBrown);
circle(xc,yc-r,r);
setpencolor(clBlue);
circle(xc-2*r,yc-r,r);
setpencolor(clRed);
circle(xc+2*r,yc-r,r);
setpencolor(clYellow);
circle(xc-r,yc,r);
setpencolor(clGreen);
circle(xc+r,yc,r);
end.
Похожие вопросы