Собственно сделал вывод всех значений так:
Код:
procedure TForm1.btn1Click(Sender: TObject);
begin
if (k=0) then lbl3.Caption:='Îøèáêà'
else if (g=0) then lbl3.Caption:='Îøèáêà'
else if (h=0) then lbl3.Caption:='Îøèáêà'
else if (w=0) then lbl3.Caption:='Îøèáêà'
else
begin 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:='A='+format('%6.3e',[a]);
lbl4.Caption:='B='+format('%6.5e',[b]);
lbl5.Caption:=format('%6.4f',[a]);
lbl6.Caption:=format('%6.3f',[b]);
lbl10.Caption:='U='+IntToStr(U);
lbl12.Caption:='R='+IntToStr(R);
lbl14.Caption:='z='+FloatToStr(z);
lbl16.Caption:='k='+FloatToStr(k);
но потом задание усложнили, сказав, что нужно сделать вывод в Olecontainer, допустим, в Word
как мне сделать такой вывод??
