при вычисление не показались длинные дробные

[alman12]

как сделать чтобы при вычисление не показались длинные дробные числа в delphi вот так 0,8888888888888885

[mirkul]

Приведи к типу integer

[alman12]

тип real
в integer невозможна разделить

[Serge_Bliznykov]

а как что бы показалось?
Вот вместо этого числа Вы что увидеть хотите?
Вам просто округлить число надо?
Или отобразить округлённое?

[Utkin]

Можно попробовать RoundTo(число; кол-во_знаков); не забудьте модуль Math в uses.
Есть еще SimpleRoundTo(), округляет число всегда в большую сторону.
Оба варианта умеют округлять и целые.

[StriderX]

Сообщение от alman12

тип real
в integer невозможна разделить

real вроде на ЦПУ крутится в режиме эмуляции (могу врать, очень уж плохо это всё помню), лучше заменить его везде на double.
Для вывода на экран есть FormatFloat. На тему округлений желательно ознакомиться со справкой, чтобы типовой пример "1.5 - 2.5 = 0" не вызывал больших круглых глаз.

[alman12]

label7.Caption:=FloatToStr(result) + ' - ' +FloatToStr(y/Spinedit1.value) ;
как здес roundTO использовать ?

[Serge_Bliznykov]

label7.Caption:=FloatToStr( RoundTo(result,3)) + ' - ' +FloatToStr(RoundTo(y/Spinedit1.value,3));

[alman12]

почему все 0, 0 показывает

[FaTaL]

Потому что надо так:

label7.Caption:=FloatToStr( RoundTo(result,3)) + ' - ' +FloatToStr(RoundTo(y/Spinedit1.value,-3));