[poli-smen]

Смотри что тебе компилятор на это пишет. А пишет он тебе что у тебя уже объявлена одна переменная z, а ты пытаешься объявить ещё одну переменную z.

Не могу понять почему у тебя возникают трудности просто с заменой одного текста на другой?
Вот кусок твоего кода:

Код:

const
 
z = '0,512';
k = 3;
U = '43 - 13dir3';
R = '55mod7 + 4';

Вот то что написал Kailon:

Код:

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

В чём трудности заменить один текст на другой?

[Pyro]

sycva, учись переводчиком пользоваться, сообщения об ошибках у тебя есть (на скриншоте в углу)

[sycva]

спасибо! я просто не знал, что если записываешь константу, то вид числа под константой не нужно прописывать в var

[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;

[sycva]

я понял только что проблема в самой функции floattostr

[angvelem]

Сообщение от sycva

...я написал

Код:

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

Так используется функция Format, но никак не FloatToStr.