Программа:
<c> NaaMan}
program test;
uses GraphABC;
begin
Window.Init(700,300,200,200);
for var i := 0 to 1 do
for var j := 0 to 1 do begin
SetBrushColor(RGB(255*i,255*j,127));
FillCircle(i*100+50, j*100+50,50);
end;
end.
Результат выполнения:
Поделитесь своими знаниями, ответьте на вопрос:
Нарисовать круг синего/красного/желтого/зеленого цвета, в зависимости от его расположения в 1-4 четвертях окна 200х200 пикселей. (В Паскале)
Программа:
<c> NaaMan}
program test;
uses GraphABC;
begin
Window.Init(700,300,200,200);
for var i := 0 to 1 do
for var j := 0 to 1 do begin
SetBrushColor(RGB(255*i,255*j,127));
FillCircle(i*100+50, j*100+50,50);
end;
end.
Результат выполнения: