Пишу программу по расчету BMI на формах, ранее написал в консольном виде. Код:
uses crt;
var m:integer;
var h,r:double;
begin
writeln('Вас приветствует программа по расчету BMI(Расчет индека массы тела) в строчку роста в ');
writeln('метрах введите ваш рост,например: 1,72, а в строку "Масса" введите свой вес.');
writeln('Например:60. Приятного использования!');
writeln();
write('Рост в метрах: ');
readln(h);
write('Масса: ');
readln(m);
r:= m / (h*h);
writeln('Ваш BMI равен: ' + r);
if r <= 15.01 then
writeln('У вас острый дефицит веса!');
if (r>15.01) and (r<=20.01) then
writeln('У вас дефицит веса!');
if (r>20.01) and (r<= 25.01) then
writeln('У вас нормальный вес!');
if (r>25.01) and (r<=30.01) then
writeln('У вас избыточный вес!');
if r>30.01 then
writeln('У вас ожирение!');
end.
Начал писать эту же программу на Windows Forms, хотел присвоить значение переменной h
textBox1
Код:
var a,h,r:double;
begin
h := textBox1.Text
end;
Компилятор выдал ошибку:
нельзя преобразовать тип real к integer
Как задать textBox1
. Вещественное, или напишите код программы которой, я хочу на Windows Forms.
h := StrToFloat(textBox1.Text);