DWORD деление Delphi/C++

Question

Таким образом, в C++ я могу сделать что-то вроде:

DWORD count; 

count = 3/1.699999; 

cout << count; 

, которая приведет:

Delphi однако сетует Кардинала и Extended рассогласование.

var 
    count: DWORD; 
begin 
    count := 3/1.6; 
    Writeln(inttostr(count)); 

Так я либо должны округлить count := round(3/1.6) что приводит к:

или TRUNC count := trunc(3/1.6) что приводит к

Действительно ли это уловка? Возможно, есть переключатель компилятора, который мне нужно было бы переключить?

Вы могли бы подумать, что это легко для Google, но, поверьте, это не так.

Спасибо за ваше время!

Answer 1

C/C++ имеет только один оператор арифметического деления - / - но его поведение зависит от типа операндов, которые вы передаете ему. Он может выполнять как целочисленное деление и с плавающей запятой.

Delphi имеет две арифметические операции деления - div для целочисленного деления и / для точки разделения плавающих.

Вашего C++ код выполняет точку разделения плавающим, а затем назначая результат в DWORD, который не является типом с плавающей точкой, так что присваивание отсекает от десятичной точки:

1/1.699999 является 1.764706920415836, который усекает до 1.

В Delphi оператор / возвращает Extended, что является плавающей точкой. В отличие от C/C++, Delphi не позволяет назначать тип с плавающей запятой непосредственно интегральному типу. Вы должны использовать Round() или Trunc().

В этом случае Delphi эквивалент вашей C++ код использовать Trunc():

var 
    count: DWORD; 
begin 
    count := Trunc(3/1.699999); 
    Write(IntToStr(count)); 

Answer 2

Проще всего использовать trunc(3 /1.699999)..

Другим способом является использование предыдущего умножения перед делением.

var 
    count: DWORD; 
begin 
    count := 3; 
    count := (count*1000000) div 1699999; 
    Writeln(inttostr(count)); 

Конечно, чтобы избежать переполнения, count < должен быть maxInt div 1000000.