Begin If strtofloat(Edit1.Text) < 1 then

Question

ShowMessage ('Количество не может быть меньше одного. Что это тогда за количество? ')
else
Edit2.Text:=floattostr(Ln(strtofloat(Edit1.Text))/Ln(2));

0

12.04.2018

7 просмотров

Пользователь 619cb · Accepted Answer

А что вызывает проблемы? StrtoFloat = Convert.ToDouble, в обратную сторону у тебя есть ToString(), Ln - есть Math.Log

0

12.04.2018