Помогите с математикой - Помощь студентам

Chals · 13.06.2007, 14:41

Если перемножаются два и больше коефециента, то их дробные части сумируются и ставятся после запятой после еденицы, как написать код. Пример:
1.1 * 1.1 * 1.2 = 1.4

Plague · 13.06.2007, 15:49

a если например
3,1*6,1*5,2 =?
то чему равно 90,4 или 98,4?

Трофимов Александр · 13.06.2007, 16:05

(x1-trunc(x1))+(x2-trunc(x2))+...=суммированная часть после запятых,
к этому прибавляешь целую часть(trunc(x1)*trunc(x2)*... или как там она у тебя считается.

SERG1980 · 13.06.2007, 16:07

procedure TForm1.Button1Click(Sender: TObject);
var a:real;
begin
a:= (frac(3.8)+ frac(3.3)+frac(6.2))*10;
edit1.Text:=floattostr(a);
end;

13.06.2007, 14:41	#1
Chals Регистрация: 04.06.2007 Сообщений: 7	Помогите с математикой Если перемножаются два и больше коефециента, то их дробные части сумируются и ставятся после запятой после еденицы, как написать код. Пример: 1.1 * 1.1 * 1.2 = 1.4

13.06.2007, 15:49	#2
Plague Забанен Форумчанин Подтвердите свой е-майл Регистрация: 01.11.2006 Сообщений: 420	a если например 3,16,15,2 =? то чему равно 90,4 или 98,4? Если ничто другое не помогает, прочтите, наконец, инструкцию! Аксиома Кана

13.06.2007, 16:05	#3
Трофимов Александр Форумчанин Регистрация: 03.11.2006 Сообщений: 321	(x1-trunc(x1))+(x2-trunc(x2))+...=суммированная часть после запятых, к этому прибавляешь целую часть(trunc(x1)trunc(x2)... или как там она у тебя считается.

13.06.2007, 16:07	#4
SERG1980 Участник клуба Регистрация: 28.03.2007 Сообщений: 1,814	procedure TForm1.Button1Click(Sender: TObject); var a:real; begin a:= (frac(3.8)+ frac(3.3)+frac(6.2))*10; edit1.Text:=floattostr(a); end;