Гистограмма

uses Graph,crt;
const Count=20;
Width =20; {Ширина }
var
I,X1,X2,Y1,Y2 : integer;
M : array[1..Count] of byte;
DriverVar, ModeVar: integer;
S_M : string;
begin
Writeln('Ввод данных (целые числа) для построения диаграммы');
for I:=1 to Count do
begin
repeat  { [1..10]}
Write('Vvedit' , I, '(vid 1 do 10) :');
Readln(M[I]) ;
if not M[I] in [1..20] { [1..10]}
then Writeln('Zna4 vid 1 do 10');
until M[I] in [1..20];
end;
 
DriverVar:=Detect;
InitGraph(DriverVar,ModeVar,'');
SetViewPort(10,10,700,500,True);
SetTextStyle(DefaultFont,HorizDir,1);
Y1:=325;
for I:=1 to Count do {Повторять, пока не построим все столбики}
begin
X1:=I*50;
Str(M[I],S_M) ;
SetFillStyle(I,I);
Bar3D(X1,Y1,X1+Width,Y1-M[I]*15,5,TopOn);
OutTextXY (X1+15,Y1-M[I]*15,S_M);
end;
{  записки}
SetTextStyle(DefaultFont,HorizDir,2);
OutTextXY(150,20,'Pruklad gistogrammu');
SetTextStyle(DefaultFont,VertDir,1);
OutTextXY(40,175,'VElu4una parametra');
SetTextStyle(DefaultFont,HorizDir,1);
OutTextXY(250,GetMaxY-140,'parametru');
OutTextXY(150,GetMaxY-100,'Enter');
Readln;
CloseGraph;
end.

for i := 0 to 3000 do begin
  Inc(mass_count_1[128 + InpMass[i, 0] div 256];
  Inc(mass_count_2[128 + InpMass[i, 1] div 256];
end;

uses crt;
var f:text;
    i,a:integer;
begin
clrscr;
randomize;
assign(f,'radok.txt');
rewrite(f);
for i:=1 to 2000 do{можешь взять любое количество}
 begin
  a:=random(2200)-100;{интервал тоже можешь поменять}
  write(f,' ',a);
 end;
write('Fail radoc.txt zapisan!');
readln
end.

uses graph;
const m=8;
      int:array[1..m] of string=('1-249','250-499','500-749','750-999',
                                 '1000-1249','1250-1499','1500-2000','Otklon');
var f:text;
    a:array[1..10000] of word;
    sm:array[1..m]of word;
    n,i,j,gd,gm,mx,x0,y0,w:integer;
    h:real;
    s:string;
begin
clrscr;
assign(f,'radok.txt');
reset(f);
n:=0;
while not eof(f) do
 begin
  n:=n+1;
  read(f,a[n]);
 end;
close(f);
for i:=1 to m do
sm[i]:=0;
for i:=1 to n do
 begin
  if (a[i]>=1)and(a[i]<=249) then sm[1]:=sm[1]+1;
  if (a[i]>=250)and(a[i]<=499) then sm[2]:=sm[2]+1;
  if (a[i]>=500)and(a[i]<=749) then sm[3]:=sm[3]+1;
  if (a[i]>=750)and(a[i]<=999) then sm[4]:=sm[4]+1;
  if (a[i]>=1000)and(a[i]<=1249) then sm[5]:=sm[5]+1;
  if (a[i]>=1250)and(a[i]<=1499) then sm[6]:=sm[6]+1;
  if (a[i]>=1500)and(a[i]<=2000) then sm[7]:=sm[7]+1;
  if (a[i]<1)or(a[i]>2000) then sm[8]:=sm[8]+1;
 end;
mx:=0;
for i:=1 to m do
if sm[i]>mx then mx:=sm[i];
gd:=0;
initgraph(gd,gm,'');
w:=20;
x0:=10;
y0:=420;
h:=(y0-40)/mx;
for i:=1 to m do
 begin
  setcolor(i+1);
  Setfillstyle(i+1,i+1);
  Bar3d(x0+4*w*(i-1),y0-round(sm[i]*h),x0+w*(4*i-2),y0,15,topon);
  outtextXY(x0+4*w*(i-1),y0+20,int[i]);
  str(sm[i],s);
  outtextXY(x0+4*w*(i-1)+w,y0-round(sm[i]*h)-20,s);
 end;
readln
end.