Графика

PROGRAM Primer_8;
uses Graph;
const Step=35;
var grDriver: Integer;
grMode : Integer;
i,x,y : Integer;
{ ------------------------------- }
PROCEDURE Square (x,y: Integer);
{ Рисует цветастый квадрат, центр которого }
{ имеет координаты (x,y) }
var i,d: Integer;
BEGIN
For i:=15 downto 0 do
begin
SetFillStyle (SolidFill,i); d:=i*3+2;
Bar (x-d,y-d,x+d,y+d)
end
END;
{ --- }
BEGIN
GrDriver:=VGA; grMode:=VGAHi;
InitGraph (grDriver,grMode,'..\bgi');
If GraphResult=grOk
then begin
For i:=0 to 10 do
{ На "побочной" диагонали - 11 точек }
begin
x:=50+i*Step; y:=50+(10-i)*Step;
SetColor(i); Square(x,y)
end;
ReadLn
end
END.

...
  If GraphResult=grOk then
    begin
      randomize;
{
      setcolor(red); rectangle(0, 0, getmaxx, getmaxy);
}
      For i:=0 to 10 do
        begin
          x:=random((getmaxx+1)-95+1)+47;
          y:=random((getmaxy+1)-95+1)+47;
          SetColor(i); Square(x,y)
        end;
 
      ReadLn
    end
...