VPF::Как вывести целое число без округления

Serhik_z

Дата 19.2.2005, 06:28 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Awaiting Authorisation
Сообщений: 108
Регистрация: 4.12.2004

Репутация: нет
Всего: нет

Как вывести целое число без округления
label49.Caption :='Градусы: ' + FloatToStrF(v,ffFixed,5,4)
Ставим 4 в 0 число округляется, а нужно без округления, без десятка
smile

Код


// получить исходные данные из полей ввода
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;

<Spawn>

Дата 19.2.2005, 12:19 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

Код


label49.Caption :='Градусы: ' + Trunc(v);

Это сообщение отредактировал(а) <Spawn> - 19.2.2005, 12:19

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

Cashey

Дата 19.2.2005, 12:52 (ссылка)

(нет голосов)

Загрузка ...

Бессмертный

Профиль
Группа: Завсегдатай
Сообщений: 3441
Регистрация: 13.11.2002
Где: в столице

Репутация: 2
Всего: 60

Цитата

Код


label49.Caption :='Градусы: ' + Trunc(v);

Только

Код


label49.Caption :='Градусы: ' + inttostr(Trunc(v));

--------------------

библия учит любить ближнего, а камасутра обучает как именно

Serhik_z

Дата 19.2.2005, 16:06 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Awaiting Authorisation
Сообщений: 108
Регистрация: 4.12.2004

Репутация: нет
Всего: нет

Спасибо, все получилось.
smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »