Написать программу которая будет выводить на экран 50 концентрических квадратов с центром в середине экрана (по размеру в смысле 1,2,3 и до 50) в pascalABC.net
Ответы на вопрос
Ответил petyaGavrikov
0
uses GraphABC;
begin
Window.SetSize(600,600);
var (x,y):=(WindowWidth div 2,WindowHeight div 2);
for var i:=1 to 50 do
begin
setpencolor(RGB(random(255),random(255),random(255)));
DrawRectangle(x-5*i,y+5*i,x+5*i,y-5*i);
end
end.
Пример - в прилагаемом файле.
begin
Window.SetSize(600,600);
var (x,y):=(WindowWidth div 2,WindowHeight div 2);
for var i:=1 to 50 do
begin
setpencolor(RGB(random(255),random(255),random(255)));
DrawRectangle(x-5*i,y+5*i,x+5*i,y-5*i);
end
end.
Пример - в прилагаемом файле.
Приложения:

Новые вопросы
Окружающий мир,
2 года назад
Биология,
2 года назад
Математика,
8 лет назад
Геометрия,
8 лет назад
Алгебра,
9 лет назад