Построить трапециевидный импульс

{
 float U,k,t,Q,U;
 Form1->Series1->Active=false;  //избежать мелькания изображения при
 
Form1->Series1->Clear();        //Для замены предыдущих данных
 
U=StrToFloat(Form1->Edit1->Text);  // Амплитуда  импульса
k=StrToFloat(Form1->Edit2->Text); // Длительность импульса
 
 for (t=0; t<=2; t++)
 {
if (0<t<0.2*k) {0;}
 if (0.2*k<=t<0.4*k) {((5*U)/k)*t-U;}
 if (U) {0.4*k<=t<=0.6*k;}
 if (0.6*k<=t<0.8*k) {(-(5*U)/k)*t+4*U;}
 if (0.8*k<=t<=k) {0;}
 }
  {
 
 Form1->Series1->AddXY(t,?, "", clRed);
 }
 
Form1->Series1->Active=true;        //Отобразить графики
 
}

float  U,T,r,k,Q,G,S,t,D,D1,h;
 
Form1->Series1->Active=false;   //избежать мелькания изображения при
 
Form1->Series1->Clear();        //Для замены предыдущих данных
 
U=StrToFloat(Form1->Edit1->Text); // Уровень амплитуды напряжения
T=StrToFloat(Form1->Edit2->Text); // Период
r= StrToFloat(Form1->Edit3->Text);// Длительность
 
G=StrToFloat(6.28/T);
Q=StrToFloat(T/r); //Скважность
 
 
    for(float k=1;k<=6;k++)
    {
    for(float t=0;t<=10;t++)
 
    {
   D1=StrToFloat(cos(G*t*k));
    D=StrToFloat(sin((k*G*r/2)/(k*G*r/2)));
    {
     S=StrToFloat(U/Q*(1+2*(D*D1)));
 
      {
   Form1->Series1->AddXY(t,S, "", clRed);   //Точка первого графика
 
     }
 
 
Form1->Series1->Active=true;        //Отобразить графики
}
 }
 }

    for(int k=1;k<7;k++)
     for(int t=0;t<11;t++)
     {
       D1= cos(G*t*k) ;
       D= sin((k*G*r/2)/(k*G*r/2)) ;
       S= U/(Q*(1+2*(D*D1)));
       Form1->Series1->AddXY(t,S, "", clRed);   //Точка первого графика
     }