Ada에서 정수를 실수로 변환하거나 그 반대로 변환하는 방법은 무엇입니까?

Question

integer를 float로 변환 할 수있는 구현 된 함수가 있습니까?

나는 정수 떠 변환 짧은 함수를 작성하는 관리 :

function Transform(First: Integer) return Float is 
    A: Integer := First; 
    B: Float := 0.0; 
begin 
    For_Loop: 
    for I in Integer range 1 .. A loop 
     B := B + 1.0; 
    end loop For_Loop; 
    return B; 
end Transform; 

을하지만 Float에서 Integer로 이동하는 방법을 모르겠어요.

Answer 1

에이다이 심하게 잘못 될 수있는 큰 값을 끔찍하게 느린되는 것을 제외하고 explicit type conversions

with Ada.Text_IO; use Ada.Text_IO; 
procedure Convert is 
    A: Integer:= 4; 
    B: Float; 
    C: Float := 6.8; 
    D: Integer; 
begin 
    B := Float(A); 
    Put_Line(Float'Image(B)); 

    D:= Integer(C); 
    Put_Line(Integer'Image(D)); 
end Convert;