[Random_Color] Случайные цвета на Pascal #3

program Random_Color; uses crt, Graph; type WriteXY = record ranY, ranX, color : Integer; err:boolean; end; var masdo : array[1..16720] of WriteXY; ranY,ranX, color : Integer; samx,samy,s,textCL : Integer; i,n,n1,z,z1,k3,k3k,k4,k4k,e,es : Integer; graphicsDriver, graphicsMode: integer; err : Boolean; procedure PV; begin graphicsDriver := Detect; InitGraph(graphicsDriver, graphicsMode, ''); SetColor(masdo[i].color); setFillStyle(textCL, masdo[i].color); {setLineStyle(DashedLn, 0, ThickWidth);} bar(samx - 3, samy - 3, samx + 3,samy + 3); end; procedure GraphC; begin for i:=k3 to k4 do begin Randomize(); textCL:={random(10)}1; masdo[i].color:=Random(100)*Random(100)*Random(100) *Random(100)*Random(1000000); {masdo[i].color:=-1;} samx:=masdo[i].ranx+6*(i-z); samy:=masdo[i].rany+n; PV(); end; end; procedure Compil; begin n:=0+n1; z:=0+z1; k3:=0+k3k; k4:=152*k4k; end; begin {ranx:=-30;} s:=readKey(); if s = &then for e:=1 to 110 do begin n1:=6*e; z1:=k4; k3k:=1+k4; k4k:=1*e; Compil(); GraphC(); end; readln; closeGraph(); end.