Найти произведение целых частей и сумму дробных частей и вывести их на экран

26.06.2011, 18:21. **Показов** 3135. **Ответов** 2

Задача:
Выделить целую и дробную части заданных N вещественных чисел и найти произведение целых частей и сумму дробных частей и вывести их на экран.

@Daemon025 · 26.06.2011, 18:24

Int - Возвращает целую часть параметра.

Pascal

Var R : Real;
 Begin
    R:=Int(123.456); {123.0}
    R:=Int(-123.456); {-123.0}
 End.

Frac: функция - Возвращает дробную часть аргумента.

Pascal

Var R : Real;
 Begin
    R:=Frac(123.456); {0.456}
    R:=Frac(-123.456); {-0.456}
 End.

26.06.2011, 18:27

а это полностью программа?

ДимаНеЗнаетПаск
		1
	Найти произведение целых частей и сумму дробных частей и вывести их на экран 26.06.2011, 18:21. Показов 3135. Ответов 2 Метки нет (Все метки) Задача: Выделить целую и дробную части заданных N вещественных чисел и найти произведение целых частей и сумму дробных частей и вывести их на экран.

Опции темы

Решение