如何在Ada中将整数转换为浮点数，反之亦然？ [英] How to transform integer to float and vice-versa in Ada?

问题描述

是否有某种实现的函数可以将整数转换为浮点数，反之亦然？

Is there some kind of implemented function that would allow to transform an integer to float and vice versa?

我设法编写了一个将整数转换为float：

I managed to write a short function that transforms an integer to 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 。

But I don't know how to go from Float to Integer.

推荐答案

Ada可以使用Ada.Text_IO进行显式类型转换

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;

这篇关于如何在Ada中将整数转换为浮点数，反之亦然？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！