如何將Double類型的變量賦值給Integer類型？

Question

我想在使用Pascal的Scar Divi上指定一個Double到Integer變量。
下面是一個例子：

program Test;  
var 
    dou: Double; 
    int: Integer; 
begin 
    int := 1; 
    dou := 2.5; 

    dou := Trunc(dou); 

    int := int + dou; 
end. 

控制檯給我Type mismatch。如何將Double類型的變量分配給Integer類型的變量？

Answer 1

相反

dou := Trunc(dou); {dou is still a variable of type double} 

int := int + dou; {adding double to integer returns double, 
        which cannot be assigned to integer -> ERROR} 

類型：

int := int + Trunc(dou); {adding integer to integer gives integer -> OK} 

另請注意，在某些情況下Round，返回最接近的整數，可能比Trunc更好。