[sycva]

и это снова я. простите, что снова беспокою. все работало. пока я не прочитал до конца задание. там сказано сделать вывод с плавающей и фиксированной точкой. я написал

Код:

lbl5.Caption:=FloatToStr('a=%1.5f',[a]);

и не работает. пишет, что нужно порядковое число. я так и не разобрался, что это значит.

вот половина кода программы

Код:

var
  Form1: TForm1;
 x, y : Real;
 a, b : Real;




implementation

{$R *.dfm}

  const
  z = 0.512;
  k = 3;
  U = 43 - 13 div 3;
  R = 55 mod 7 + 4;

procedure TForm1.FormCreate(Sender: TObject);
begin

   Edt1.Text:='0,512';
   Edt2.Text:='3';
   lbl1.Caption:='x=';
   lbl2.Caption:='y=';
   btn1.Caption:='Посчитать';
   lbl3.Caption:='0';
   lbl4.Caption:='0';
   lbl5.Caption:='0';
   lbl6.Caption:='0';
   lbl7.Caption:='Число a';
   lbl8.Caption:='Число b';
end;

procedure TForm1.btn1Click(Sender: TObject);
begin

  x:= StrToFloat(edt1.text);
 y:= StrToFloat(edt2.text);
 a:= (u*x/(r+3)+5)/abs(R-y/k);
 b:= (Sin(z+U))/(2.46+a*R) + power(r, 1/5)/(25*k);
 lbl3.Caption:=FloatToStr(a);
 lbl4.Caption:=FloatToStr(b);
 lbl5.Caption:=FloatToStr('a=%1.5f',[a]);
 lbl6.Caption:=FloatToStr(b);

end;