Для того чтобы скачать файл вы должны пройти регистрацию
22 Марта 2008, 15:38
program anthill; uses Crt, Graph,graphs; function NormRand: Real; var s: Real; i: Shortint; begin s:= 0; for i:= 1 to 12 do s := s + Random; NormRand := s-6.0; end; procedure hystogram; var Quant, y: array [1..640] of word; i, x: Integer; begin for i := 1 to 640 do Quant[i] := 0; repeat x := GetMaxX div 2 + Round(60 * NormRand); Quant[x] := Quant[x] + 1; y[x] := GetMaxY-Quant[x]; PutPixel(10 + x, y[x], Round(random(15))); until y[x]< 10; end; begin Randomize; opengraph; hystogram; readln; closegraph; end.