|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: B T
Length: 824 (0x338)
Types: TextFile
Names: »B«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─⟦129cab021⟧ »DATA«
└─⟦this⟧
with Text_Io;
package body Formate is
function Inttostr
(Unnombre : Natural; Nbchiffres : Positive) return String is
Unechaine : String (1 .. Nbchiffres + 1);
Nbre : Natural := 0;
Nbaux : Natural := Unnombre;
begin
if Nbaux = 0 then
Nbre := 1;
else
while Nbaux /= 0 loop
Nbaux := Nbaux / 10;
Nbre := Nbre + 1;
end loop;
end if;
Unechaine (1 .. Nbre + 1) := Integer'Image (Integer (Unnombre));
Unechaine (1) := '0';
if Nbre = Nbchiffres then
return Unechaine (2 .. Nbre + 1);
else
return String'(1 .. Nbchiffres - Nbre - 1 => '0') &
Unechaine (1 .. Nbre + 1);
end if;
end Inttostr;
end Formate;