Как вывести целое число без округления
label49.Caption :='Градусы: ' + FloatToStrF(v,ffFixed,5,4)
Ставим 4 в 0 число округляется, а нужно без округления, без десятка
| Код |
// получить исходные данные из полей ввода
t:= StrToFloat(Edit6.Text);
w:= StrToFloat(Edit7.Text);
z:= StrToFloat(Edit8.Text);
// предварительные преобразования
c:= Trunc(t); // это целая часть числа t
d:= Trunc(t/2) mod 10000; // это дробная часть числа t
// вычисление
v:=arctan((t/(w-2*t))*z)*180/pi; // Угол наклона
// вывод результата
label45.Caption :='Угол наклона в градусах: ' + FloatToStrF(v,ffFixed,10,9) + '';
label49.Caption :='Градусы: ' + FloatToStrF(v,ffFixed,5,4) + ' '; // Вывести челое число без округления???
//(v,ffFixed,10,9) 10-вывод 10 ми цифр. 9 после запятой
// получить исходные данные из полей ввода
t:= StrToFloat(Edit6.Text);
w:= StrToFloat(Edit7.Text);
z:= StrToFloat(Edit8.Text);
// предварительные преобразования
c:= Trunc(t); // это целая часть числа t
d:= Trunc(t/2) mod 10000; // это дробная часть числа t
// вычисление
v:=arctan((t/(w-2*t))*z)*180/pi; // Угол наклона
v:= Frac(v);
v:=v*60;
// вывод результата
label52.Caption :='Минуты: ' + FloatToStrF(v,ffFixed,5,4) + ''; // Вывести челое число без округления???
// получить исходные данные из полей ввода
t:= StrToFloat(Edit6.Text);
w:= StrToFloat(Edit7.Text);
z:= StrToFloat(Edit8.Text);
// предварительные преобразования
c:= Trunc(t); // это целая часть числа t
d:= Trunc(t/2) mod 10000; // это дробная часть числа t
// вычисление
v:=arctan((t/(w-2*t))*z)*180/pi; // Угол наклона
v:= Frac(v);
v:=v*60;
v:= Frac(v);
v:=v*60;
// вывод результата
label53.Caption :='Секунды: ' + FloatToStrF(v,ffFixed,5,4) + ''; // Вывести челое число без округления???
end;
|
|
