|
Ответ: ПАНИКА: деление integer на integer с результатом real
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.
полностью рабочий код ))
|