Нарисовать на экране несколько вложенных друг в друга разноцветных прямоугольников - PascalABC.NET

Формулировка задачи:

Зараннее сасибо)

Код к задаче: «Нарисовать на экране несколько вложенных друг в друга разноцветных прямоугольников - PascalABC.NET»

textual
uses graphABC,ABCobjects;
var x,y,w,h,i:integer;
    r:RectangleABC;
begin
x:=50;
y:=50;    
w:=windowwidth-100;
h:=windowheight-100;
for i:=1 to 5 do
 begin
  r:=RectangleABC.Create(x,y,w,h,clrandom);
  x:=x+50;
  y:=y+50;
  w:=w-100;
  h:=h-100;
 end;
end.

5   голосов, оценка 3.400 из 5


СОХРАНИТЬ ССЫЛКУ