вот кусок проги:
Код:
procedure TForm2.Button1Click(Sender: TObject);
var x,c,c1,y,a1,o1,a2,o2,a3,o3,m,n,k,z: real;
begin
x:= strtofloat(edit1.Text);
y:=x*1e-10;
c:=x+y;
c1:=RoundTo(c,-9);
a1:=abs(c-c1);
o1:=a1/c;
z:=x+1e-8;
m:=x*x;
n:=x*z;
a2:=abs(m-n);
o2:=a2/m ;
k:=round(x);
a3:=abs(x-k) ;
o3:=a3/x ;
Label2.Caption:=FloatToStr(y);
Label4.Caption:=FloatToStr(c);
Label6.Caption:=FloatToStr(c1);
Label8.Caption:=FloatToStr(a1);
Label10.Caption:=FloatToStr(o1);
Label12.Caption:=FloatToStr(z);
Label14.Caption:=FloatToStr(m);
Label16.Caption:=FloatToStr(n);
Label18.Caption:=FloatToStr(a2);
Label20.Caption:=FloatToStr(o2);
Label22.Caption:=FloatToStr(k);
Label24.Caption:=FloatToStr(a3);
Label26.Caption:=FloatToStr(o3);
http://vk.com/albums139875353?z=phot...to s139875353
где значение С, по идее должно быть больше знаков после запятой, вот в чем проблема
где значение "m и n" должно быть не 1,33178187367367E18 , а что-то подобное этому: 1331781873673671240,657009904388 (см.фото)