Форум программистов [Powered by Invision Power Board]

Код

uses graph;

var    i, j, x0, y0, w:integer;
    s: string;
    f: text;
    mkofe_f: array [1..444] of real;
    n, dc: integer;
    h, max, min: real;


procedure Graphinterface;
var    driver, mode, error:    integer;
        s: string;
begin
    driver:=detect;
    s:=' ';
    Initgraph(driver, mode, s);
    error:=GraphResult;
    if error<>GrOk then
    begin
        writeln(GraphErrorMsg(Error));
        Halt(error);
    end;
end;




begin
    assign(f, 'kofe.txt');
    reset(f);

    readln(f, n);        

    writeln('Vvedite kol-vo tovara: ');    readln(dc); 

    if (dc = 0) then
     exit
    else
    begin

        if (dc > n) then
        begin
        writeln('Ne hvataet dannyh v file!'); 
        readln;
        exit;
        end
         else
        begin

            for i:=1 to dc do
            begin
            read(f, mkofe_f[i]);      
            end;


    {max}
    max:=mkofe_f[1];
    for i:=2 to dc do
        if (max < mkofe_f[i]) then
        max:=mkofe_f[i];

    {min}
    min:=mkofe_f[1];
    for i:=2 to dc do
        if (min > mKurs_f[i]) then
        min:=mkofe_f[i];


    Graphinterface;


    w:=40;            
    x0:=155;        
    y0:=420;        
    h:=(y0-90)/max;        


  randomize;

 
  i:=random(14);
  setcolor(i+1);        
  Setfillstyle(i+1,i+1);    

  Bar3d(x0,y0-round(max*h),x0+2*w,y0, 15,topoff);
  str(max:2:4, s);
  outtextXY(x0+18,y0-round(max*h)-40, s);
  outtextXY(x0+30,y0+20, 'max');


  i:=random(14);
  setcolor(i+1);        
  Setfillstyle(i-1,i+1);    

  Bar3d(x0+3*w,y0-round(min*h),x0+5*w,y0, 15,topoff);
  str(min:2:4, s);
  outtextXY(x0+3*w+18,y0-round(min*h)-40, s);
  outtextXY(x0+3*w+30,y0+20, 'min');

 end;

 end;

readln;
end.