Прошу помочь мне!
Каждую сторону (из кругов) покрасить в разный цвет.
существует программа в GraphpascalABC:
uses graphabc;
var i,x,j,d,a,b,c,f:integer;
begin;
rectangle(55,10,195,110);
for i:=1 to 5 do begin;
circle(65,x+20,10);
x:=x+20;
for j:=1 to 5 do begin;
circle(185,x+1,10);
d:=x+1;
for a:=1 to 8 do begin;
circle(x+65,20,10);
b:=x+80;
for c:=1 to 8 do begin;
circle(x+65,100,10);
f:=x+65;
end;
end;
end;
end;
end.
Прошу помочь мне!
Каждую сторону (из кругов) покрасить в разный цвет.
существует программа в GraphpascalABC:
uses graphabc;
var i,x,j,d,a,b,c,f:integer;
begin;
rectangle(55,10,195,110);
for i:=1 to 5 do begin;
circle(65,x+20,10);
x:=x+20;
for j:=1 to 5 do begin;
circle(185,x+1,10);
d:=x+1;
for a:=1 to 8 do begin;
circle(x+65,20,10);
b:=x+80;
for c:=1 to 8 do begin;
circle(x+65,100,10);
f:=x+65;
end;
end;
end;
end;
end.
Каждую сторону (из кругов) покрасить в разный цвет.
существует программа в GraphpascalABC:
uses graphabc;
var i,x,j,d,a,b,c,f:integer;
begin;
rectangle(55,10,195,110);
for i:=1 to 5 do begin;
circle(65,x+20,10);
x:=x+20;
for j:=1 to 5 do begin;
circle(185,x+1,10);
d:=x+1;
for a:=1 to 8 do begin;
circle(x+65,20,10);
b:=x+80;
for c:=1 to 8 do begin;
circle(x+65,100,10);
f:=x+65;
end;
end;
end;
end;
end.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Конечно, вот программа на PascalABC, которая покрасит каждую сторону (из кругов) в разный цвет:
uses graphabc;var i,x,j,d,a,b,c,f:integer;
begin
x:=10;
SetBrushColor(clRed);
rectangle(55,10,195,110);
for i:=1 to 5 do
begin
SetPenColor(clBlack);
circle(65,x+20,10);
x:=x+20;
SetBrushColor(clBlue);
for j:=1 to 5 do
begin
SetPenColor(clBlack);
circle(185,x+1,10);
d:=x+1;
SetBrushColor(clGreen);
for a:=1 to 8 do
begin
SetPenColor(clBlack);
circle(x+65,20,10);
b:=x+80;
SetBrushColor(clYellow);
for c:=1 to 8 do
begin
SetPenColor(clBlack);
circle(x+65,100,10);
f:=x+65;
end;
end;
end;
end;
end.
В данной программе каждая сторона (из кругов) будет покрашена в отдельный цвет: красный, синий, зеленый и желтый. Вы также можете изменить цвета, используя другие значения из библиотеки GraphABC.