написание формулы

[Xatiko]

Доброго времени суток!
Есть проблема при написании формулы. Приведу пример:

Для одного объекта:
(x1*z1)/(z1)
(y1*z1)/(z1)

Ed-это (х) Ed1-это (у) Ed2-это (z)

procedure TForm1.Button8Click(Sender: TObject);
begin
if form1.ComboBox1.ItemIndex=0 then
begin
label37.Caption:=Floattostr(StrToInt(Ed[1].text)*StrToInt(Ed2[1].text)/StrToInt(Ed2[1].text));
label38.Caption:=Floattostr(StrToInt(Ed1[1].text)*StrToInt(Ed2[1].text)/StrToInt(Ed2[1].text));
end

Для двух:
(x1*z1)+(x2*z2)/(z1+z2)
(y1*z1)+(y2*z2)/(z1+z2)

В этой же процедуре.

else
if form1.ComboBox1.ItemIndex=1 then
begin
label37.Caption:=Floattostr(((StrToInt(Ed[1].text)*StrToInt(Ed2[1].text))+((StrToInt(Ed[2].text)*StrToInt(Ed2[2].text)))/(StrToInt(Ed2[1].text)+StrToInt(Ed2[2].text))));
label38.Caption:=Floattostr(((StrToInt(Ed1[1].text)*StrToInt(Ed2[1].text))+((StrToInt(Ed1[2].text)*StrToInt(Ed2[2].text)))/(StrToInt(Ed2[1].text)+StrToInt(Ed2[2].text))));
end;
end;

Вопрос в том что, для одного работает, а для двух выводит огромные значения которых даже не вводили. А вообще надо хотя бы до 20. Но так как уже не работает для двух, смысла дальше нет двигаться.
Есть догадки, что не так расставленны скобки и компилятор выполняет не те арифмитические действия.

[BDA]

А точно так - (x1*z1)+(x2*z2)/(z1+z2)?
Может (x1*z1+x2*z2)/(z1+z2)?
И что-то много Вы скобок понаставили.
Попробуйте:

label37.Caption := Floattostr(StrToFloat(Ed[1].text)*StrToFloat(Ed2[1].text)+StrToFloat(Ed[2].text)*StrToFloat(Ed2[2].text)/(StrToFloat(Ed2[1].text)+StrToFloat(Ed2[2].text)));

(для Вашей формулы, а не моего предположения)

[ReportCube]

А на бумажке посчитать не пробовали?

[Алексей_2012]

а вопрос еще, откуда у вас вводятся данные? какие типы данных должны быть? саму формулировку задачи напишите, и вам все это нужно вывести в метку?

floattostr-преобразование числа с плавающей точкой в строку,
strtoint-преобразование из строки в целое число число

В итоге у вас получается какое-то число с плавающей точкой и вы его суете в метку? для чего? напишите ваше ТЗ просто и все

[Xatiko]

BDA Спасибо помогло))
Только пару скобок поставил)
label37.Caption:=Floattostr((StrToF loat(Ed[1].text)*StrToFloat(Ed2[1].text)+StrToFloat(Ed[2].text)*StrToFloat(Ed2[2].text))/((StrToFloat(Ed2[1].text)+StrToFloat(Ed2[2].text))));
label38.Caption:=Floattostr((StrToI nt(Ed1[1].text)*StrToInt(Ed2[1].text)+StrToInt(Ed1[2].text)*StrToInt(Ed2[2].text))/((StrToInt(Ed2[1].text)+StrToInt(Ed2[2].text))));

[BDA]

Пожалуйста.
Все же нужна была формула (x1*z1+x2*z2)/(z1+z2).
У Вас в обоих знаменателях лишние скобки (2 открывающие и 2 закрывающие скобки), правда, это не влияет на расчет.