how to code this formula in pascal edit2.text*edit3.text*edit4.text divide by 10 then divide 1000 then plus 6.77
function Calculate: Double;
var
i, j, k: Integer; {or Single or whatever it is}
begin
i ;= StrToInt(edit2.Text);
j ;= StrToInt(edit3.Text);
k ;= StrToInt(edit4.Text);
Result := (((i*j*k)/10)/1000) + 6.77;
end;
Surely they should be StrToFloat where the figures quoted are real? and there's no point in /10 then /1000 - brackets are irrelevant as well.
Result := i*j*k/10000 + 6.77;
or even
Result := 6.77 + i*j*k/10000;
both will return 7.029727 using the figures provided.