Вывести прямоугольники, не налегающие друг на друга и имеющие рандомную длину и ширину - Pascal ABC

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

Нужно составить программу, которая выводит на экран прямоугольники, находящиеся в горизонтальном положении, но при этом имеющие рандомную длину и ширину и неналегающие друг на друга, буду очень признателен.

Код к задаче: «Вывести прямоугольники, не налегающие друг на друга и имеющие рандомную длину и ширину - Pascal ABC»

textual
uses graphABC;
var x,y,a,b,i:integer;
begin
randomize;
setwindowsize(700,300);
centerwindow;
x:=1;
y:=100;
for i:=1 to 10 do
 begin
  a:=10+random(100);
  b:=10+random(100);
  setpencolor(clRandom);
  rectangle(x,y,x+a,y+b);
  x:=x+a+3;
 end;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

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


СДЕЛАЙТЕ РЕПОСТ