ПАНИКА: деление integer на integer с результатом real

[Randomize]

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

Есть. Только в паскале он вообще остаток от деления возвращает.

Тсс! Я уже обновил. Перепутал немного.
http://forum.boolean.name/showpost.p...0&postcount=15

[ViNT]

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

Блджад! Есть же div.

var
a,b:real;
begin
a:= 5;
b:= 2;
drawstring(IntToStr(a div b),1,1);
repaint; 


В том то и дело, что нужно делить с действительным результатом, а не с целочисленным.
А в MP получается, что применительно к Integer хоть div используй, хоть /, все равно целое число получится.

[-Flover-]

program NewProject;
var
a,b,s:integer;
c:real;
Begin
a:=3;
b:=2;
c:=(a*1.0)/(b*1.0);
s:= formAddTextField('Результат:', '', 20, TF_ANY);
showForm;
formSetText(0,''+c);
delay(5000);
End.

полностью рабочий код ))