Просмотрите на наличе ошибок

[Bedu1no]

условия задачи :latex 1.jpg

где :latex 2.jpg-(if-я обозначил если )
T- период повторения функции y(t) (T=0.02c);
k- номер коэфициента ряда фурье (k=3);
t_0- нижняя граница отрезка интегрирования [0,T];
t_n- верхняя граница отрезка интегрирования [0,T];
n- число разбиений отрезка [0,T] (n=40);
t_i+1=t_i+h для i=1,2,3,...,n-1;
h=T/n- шаг интегрирования;
f_1- основная частота = 50Гц;
и отображения :
-в компоненте Edit вычисленно значения интеграла b_k;
-в компоненте Chart 2-х графиков функции:latex 3.jpg и latex 2.jpg

unit Unit1;

interface

uses
  Windows, Math, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TeEngine, Series, ExtCtrls, TeeProcs, Chart, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Memo1: TMemo;
    Chart1: TChart;
    Series1: TLineSeries;
    Series2: TLineSeries;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
l,k,t0,m,n,t2,h,f1,q,p,z,t1,a,t,i,s:real;

begin
l:=0.02;
k:=3;
p:=StrToFloat(Edit2.Text);
t0:=StrToFloat(Edit1.Text);
h:=l/n;
t2:=t1+h;
f1:=50;
begin
z:=a*cos(2*3.14*k*f1*t);
  begin

  t:=t+h;
  while t<=l do
  begin
   if t1<=(l/2) then q:=4
   else if (l/2)<t1<=T else then q:=2;
   write(q:3);
   t1:=t1+dtl;
   end;

 a1:=cos*(2*3.14*k*f1*t0);
 a2:=cos*(2*3.14*k*f1*p);
 a3:cos*(2*3.14*k*f1*t1);
 s:=2/l*h*(q*(t0)*a1+q*p*(a2)+q*t1*a3)/2;

 s:=FloatToStr(Edit3.Text);

end;

end.

[p51x]

Компилится? Запускается? Правильно работает? Значит ошибок нет.