unit4.pas

unit Unit4;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ExtCtrls;

const
  filename='density_table_en.csv';

type

  { TFCube }

  TFCube = class(TForm)
    CBCompute: TButton;
    EditA: TEdit;
    EditM: TEdit;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Lbl_found: TLabel;
    Lbl_eps: TLabel;
    Lbl_dRho: TLabel;
    LblDensity: TLabel;
    procedure CBComputeClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  FCube: TFCube;
  a,V,m,Rho,rmin:Real;
  s:String;
  imin,i,valcode:Longint;

implementation
uses Unit1;

{$R *.lfm}

{ TFSphere }

procedure TFCube.CBComputeClick(Sender: TObject);
begin
     Val(EditA.Text,a,valcode);
     if a=0 then a:=0.0000001;
     a:=a/1000;
     Val(EditM.Text,m,valcode);
     m:=m/1000;
     V:=a*a*a;
     Rho:=m/V;
     Str(Rho:0:3,s);
     LblDensity.Caption:='Получена плотность ' + s + ' кг/м3';

     rmin:=30000;
     imin:=1;
     for i:=1 to n do
     begin
          if Abs(rho-dt[i].d)<rmin then
          begin
               rmin:=Abs(rho-dt[i].d);
               imin:=i;
          end;
     end;

     if dt[0].d=-1 then Lbl_found.caption:=('База плотностей не считана с диска.')
     else begin
     Str(dt[imin].d:0:3,s);
     Lbl_found.Caption:='Материал детали - ' + dt[imin].name + ' (' + s + ')';
     Str(Rho - dt[imin].d :0:3,s);
     Lbl_dRho.Caption:='Абсолютная погрешность Δρ=' + s;
     Str((Rho - dt[imin].d)/dt[imin].d *100 :0:2,s);
     Lbl_eps.Caption:='Относительная погрешность ε=' + s + ' %';
     end;
end;

end.