unit class_source;

interface

uses user_types, class_values;

{$REGION 'ÊËÀÑÑ ÈÑÒÎ×ÍÈÊ'}
type
  TValues = class (TObject)
    private
       data_values: TValues_array;
       min: extended;
       max: extended;
       avr: extended;

       function array_summ(local_array:TValues_array; number_of_elements:integer):extended;
       function Sort_Array(local_array:TValues_array; number_of_elements, dir:integer):TValues_array;
       function Find_max_min(local_array:TValues_array; number_of_elements, min_max:integer; var position:integer):extended;
    public
       constructor Create;

       function Get_min(var pos:integer):extended;
       function Get_max(var pos:integer):extended;
       function Get_avr():extended;

       function Get_values():TValues_array;

       function Sort_asc():TValues_array;
       function Sort_desc():TValues_array;

       function Set_all_values(values:TValues_array):boolean;
       function Set_one_value(value:extended; position:integer):boolean;
end;
implementation

end.
