Умножения и конвертация.

[Fahman]

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

procedure TForm1.Button1Click(Sender: TObject);
var
  a,b,d: real;
begin
  a := 1000; //Ширина в миллиметрах
  b := 1510; //Высота в миллиметрах
  d := (a * b);
  ShowMessage(FloatToStr(d));
end;

Нужно вывести квадратуру в метрах.

[Stilet]

  ShowMessage(FloatToStr(d/1000));

[Аватар]

Не, делить на миллион. На тыщу в погонных метрах. А вообще вопрос на уровне 5-6 класса

[Fahman]

Сообщение от Stilet

  ShowMessage(FloatToStr(d/1000));

Вот так нужно

Ввожу размеры в миллиметрах а мне выводит кол-во квадратных метров.

[Fahman]

Сообщение от Аватар

Не, делить на миллион. На тыщу в погонных метрах. А вообще вопрос на уровне 5-6 класса

да посчитать то я могу, только у меня без запятой показывает, а надо как на картинке

[evg_m]

http://www.delphibasics.ru/FloatToStrF.php
http://www.delphibasics.ru/Format.php

[min@y™]

Нужно вывести квадратуру в метрах.

Это невозможно, ибо площадь измеряется в квадратных единицах.

[Fahman]

Сообщение от evg_m

http://www.delphibasics.ru/FloatToStrF.php
http://www.delphibasics.ru/Format.php

Короче сделал так, в общем получилось но не совсем то.

procedure TForm1.Button1Click(Sender: TObject);
var
h,w:real;
price:extended;
begin
price:=strtofloat(edit3.Text);
h:=strtofloat(edit1.Text)/1000;
w:=strtofloat(edit2.Text)/1000;
memo1.Lines.Add(floattostr(h*w*price)+' тг');
end;

Ввожу в миллиметрах размеры, если ровные числа то есть 1500*1500 то все норм

Если размер примерно такой то

после запятой вообще не надо считать эту мелочь, как так сделать? чтобы округлялось что-ли.
чтобы как на последней картинке сумма была только 18977

[min@y™]

замени real на integer, а метры - на миллиметры.

и не морочай дядям голову.

[Fahman]

Сообщение от min@y™

замени real на integer, а метры - на миллиметры.

и не морочай дядям голову.

Спасибо сударь)
сделал так

procedure TForm1.Button1Click(Sender: TObject);
var
h,w:integer;
price:extended;
begin
price:=strtofloat(edit3.Text);
h:=strtoint(edit1.Text);
w:=strtoint(edit2.Text);
memo1.Lines.Add(floattostr(h*w*price/1000000)+' тг');
end;

и все встало на свои места!)