Нарисовать в Pascal ABC окружности, от светлого к темному. Если можно, то скиньте программу.
274
ОТВЕТЫ
//PascalABC.NET 3.2 сборка 1318
uses
GraphABC;
Var
i,j,c,x,y:integer;
begin
c:=255;
x:=window.height div 8;
y:=60;
for i:=1 to 4 do
begin
for j:=1 to 8 do
begin
circle(x,y,window.height div 16);
floodfill(x,y,rgb(c,c,c));
c:=c-8;
x:=x+(window.height div 8);
end;
y:=y+window.height div 4;
x:=window.height div 8;
end;
end.
uses
GraphABC;
Var
i,j,c,x,y:integer;
begin
c:=255;
x:=window.height div 8;
y:=60;
for i:=1 to 4 do
begin
for j:=1 to 8 do
begin
circle(x,y,window.height div 16);
floodfill(x,y,rgb(c,c,c));
c:=c-8;
x:=x+(window.height div 8);
end;
y:=y+window.height div 4;
x:=window.height div 8;
end;
end.
31
Отв. дан
Вячеслав
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Химия
Fordretius
Современная география не только описывает закономерности размещения природных тел ...
2018-09-23 00:00:00
Morluntrius
Расскажите о людях, которым удалось свои физические недостатки и ...
2018-09-23 00:00:00
Adoralsa
Напишите маленько описание какого-то человека (Например друга) И план. ...
2018-09-23 00:00:00
Кристина
Выписать 10 непонятных слов из баллады Кубок.Автор Жуковский ...
2018-09-23 00:00:00