Скачать: CL | DM;

Помогите бедному ламеру!!!   Найти похожие ветки 

← →
Lamerok   (2002-11-12 18:43) [0]

Простите за тупой вопрос, но как сложить дробные числа?
Заранее спасибо.

---

← →
SaS13 ©   (2002-11-12 18:46) [1]

вспоминаем математику, приводим к общему знаменателю...

---

← →
Lamerok   (2002-11-12 18:52) [2]

>>вспоминаем математику, приводим к общему знаменателю...

у меня две переменные x и y , которые вводятся в TEdit , но проблема в том, что при вводе (напримнр) 1.2 + 4.6 возникает ошибка. Или я что-то не так делаю.

---

← →
Lamerok   (2002-11-12 18:56) [3]

Конечно можно ещё и так

var
x,y,z: integer;
begin
X:= StrToInt(Trim(Edit1.Text));
Y:= StrToInt(Trim(Edit2.Text));
Z:= StrToInt(Trim(Edit3.Text));

Memo1.Lines.Add(IntToStr(X)+"."+IntToStr(Y)+"+"+IntToStr(z)+"="+
FloatToStr(x+z)+"."+FloatToStr(y));

Но это очень нудно, может есть какая то процедура??

---

← →
OlegMoscow   (2002-11-12 18:57) [4]

если ошибка - значит действительно что то не так :)
покажи как ты делаешь? по идее элементарно:

var
vResult:double;
begin
vResult:=StrToFloat(Edit1.Text)+StrToFloat(Edit2.Text);
end;

и еще - глянь в региональных установках - какой символ у тебя используется как разделитель целой и дробной части (точка или запятая)

---

← →
Новенький в Делфи   (2002-11-13 03:46) [5]

2 Lamerok
В Делфи Integer это тип целых чисел.
Но есть ещё тип дробных чисел например Real
и соответственно ф-ции для преобразования другие будут

потому пишешь
var
x,y,z: real;
begin
x:= StrToFloat(edit1.text);
y:= StrToFloat(edit2.text);
z:=x+y;
Memo1.lines.add(FLoatToStr(z));

или всё более сокращённо как написал OlegMoscow

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c