Прошу помогите, задача должна быть на языке ПАСКАЛЬ, Составить программу рисования 18 прямоугольников синего цвета, координаты которых определяется случайным образом, а стороны равны а=140, b=40.

1

Ответы и объяснения

Лучший Ответ!
2013-12-20T15:48:02+04:00
Uses GraphABC;
CONST a=140; b=40; n=18;

var
x1,x2,y1,y2,i:integer;
procedure Paint; 
begin
x1:= random(WindowWidth-a);
x2:= x1+a;
y1:= random(WindowHeight-b);
y2:= y1+b;
SetBrushColor(clblue);
rectangle(x1,y1,x2,y2);
end;

begin
randomize;
  for i:=1 to n do Paint;
end.

Вроде вот так, если есть какие-то замечания, то пиши - исправим ;-)