Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
ПомощьПользователиПоиск
Войти
Language: РусскийEnglish
{Frac.PAS} ▀▀▀▀▀▀▀▀▀▀▀▀ {Sample code for the Frac function.}
var R: Real; begin R := Frac(123.456); { 0.456 } R := Frac(-123.456); { -0.456 } end.