Получить целую часть числа - Turbo Pascal (29898)
Формулировка задачи:
Дано действительное число х. Получить целую часть числа х; затем – число х, округленное до ближайшего целого; затем – число x без дробных цифр. *) Целой частью числа х, обозначаемой [х], называется наибольшее целое, не превосходящее х, так, [3.14] = 3, [3 ] = 3, [–3. 1 4] = –4, [– 3] = –3.
Решение задачи: «Получить целую часть числа»
textual
Листинг программы
Int(x-Ord(x<0)) ... Int(x)
Объяснение кода листинга программы
x-Ord(x<0)— вычитаем из числаxзначениеOrd(x<0), что дает нам абсолютное значение числаx.Int(x)— преобразуем абсолютное значение числаxв целое число.