Floating point 从双精度转换为单精度

给定64位表示IEEE 754双精度格式中的数字，将其转换为32位表示相同数字的算法是什么，但在IEEE 754单精度格式中（可能会丢失精度）

---

另外，在Ada中是否有一种简单的方法来执行此转换，而不必操纵位？

在Ada中确实有一种简单的方法来执行此转换（非常类似于在C中执行相同操作的方法！）：

---

在Ada中确实有一种简单的方法可以做到这一点（与在C中做同样的事情的方法非常相似！）

---

此问题包含将双精度数字转换为单精度的算法说明：此问题包含将双精度数字转换为单精度的算法说明：

with Ada.Numerics;
with Ada.Text_IO; use Ada.Text_IO;
procedure Floating_Conversion is
   D : constant Long_Float := Ada.Numerics.Pi;
   F : Float;
begin
   F := Float (D);                                    -- The conversion!
   Put_Line ("double:" & Long_Float'Image (D));
   Put_Line ("single:" & Float'Image (F));
end Floating_Conversion;