Создать программу которая позволяет рассчитать по фомуле энергию. (Закон сохранения энергии где ь-масса, v-скорость к-коэффицент жёсткости х-смещение НАД.Заранее ​

Unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  A:array of shortint;
implementation

{$R *.dfm}

Function P(A:integer):boolean;
Var
   d,K:integer;
Begin
P:=true;
if A < 2 then P:=false
else
   if A < 4 then P:=true
   else
      if A mod 2 = 0 then P:=false
      else
         Begin
         K:=Trunc(Sqrt(A));
         d:=3;
         While d <= K do
            Begin
            if A mod d = 0 then P:=false;
            d:=d+2
            End;
         End;
End;

procedure TForm1.Button1Click(Sender: TObject);
Var
   N:integer;
begin
Randomize;
Edit2.Text:='';
N:=StrToInt(Edit1.Text);
SetLength(A,N);
For N:= 0 to N-1 do
    Begin
    A[N]:=Trunc(Sin(random(20))*20);
    if P(A[N]) then Edit2.Text:=Edit2.Text+IntToStr(A[N])+'0 '
    else Edit2.Text:=Edit2.Text+IntToStr(A[N])+' '
    End;
end;

end.

Unit proect;

{$mode objfpc}{$H+}

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

type
    
    { TForm1 }
    TForm1 = class(TForm)
        Button1: TButton;
        Chart1: TChart;
        Image5: TImage;
        Image6: TImage;
        Label14: TLabel;
        Label15: TLabel;
        SinSeries2: TLineSeries;
        CosSeries2: TLineSeries;
        Edit3: TEdit;
        Edit4: TEdit;
        Edit1: TEdit;
        Edit2: TEdit;
        Image1: TImage;
        Image2: TImage;
        Image3: TImage;
        Image4: TImage;
        Label1: TLabel;
        Label10: TLabel;
        Label11: TLabel;
        Label12: TLabel;
        Label13: TLabel;
        Label2: TLabel;
        Label3: TLabel;
        Label4: TLabel;
        Label5: TLabel;
        Label6: TLabel;
        Label7: TLabel;
        Label8: TLabel;
        Label9: TLabel;
        Shape1: TShape;
        SinSeries: TLineSeries;
        CosSeries: TLineSeries;
        SinCosSeries: TLineSeries;
        procedure Button1Click(Sender: TObject);
    private
    { private declarations }
    public
    { public declarations }
    end;

var
    Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
const
    N = 100;
    MIN = -5;
    MAX = 5;
var
    x, step: Double;
    a, b, c, d, i: Integer;
begin
    //чистка предыдущих графиков
    //считываем переменные
    a := StrToInt(Edit1.Text);
    b := StrToInt(Edit2.Text);
    c := StrToInt(Edit3.Text);
    d := StrToInt(Edit4.Text);
    
    step := (MAX - MIN) / N;
    x := MIN;
    
    repeat
        //Рисуем графики
        SinSeries.AddXY(x, a * x + b);
        CosSeries.AddXY(x, d * x * x);
        SinCosSeries.AddXY(x, c / x);
        SinSeries2.AddXY(x, sin(x));
        CosSeries2.AddXY(x, cos(x));
        //следующий
        x := x + step;
    until x > MAX;
end;
end.