|
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 - downloadIndex: ┃ B T ┃
Length: 862 (0x35e)
Types: TextFile
Names: »B«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─ ⟦129cab021⟧ »DATA«
└─⟦this⟧
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
└─ ⟦d65440be7⟧ »DATA«
└─⟦this⟧
with Registres;
use Registres;
with Text_Io;
procedure Test_Registres is
Nom1 : Type_Registre := new String'("valeur1");
Nom2 : Type_Registre := new String'("UneAutreValeur");
Nom3 : Type_Registre := new String'("a");
Val1, Val11 : Type_Value;
begin
Init_Registres;
Val1 := 1.0;
Set_Registre (Nom1, Val1);
Val11 := Get_Value_Registre (Nom1);
if Val1 = Val11 then
Text_Io.Put_Line (" val1 et val11 sont egaux ");
end if;
Val1 := 2.0;
Set_Registre (Nom2, Val1);
Val11 := Get_Value_Registre (Nom2);
if Val1 = Val11 then
Text_Io.Put_Line (" val1 et val11 sont egaux ");
end if;
Val1 := 3.0;
Set_Registre (Nom3, Val1);
Val11 := Get_Value_Registre (Nom3);
if Val1 = Val11 then
Text_Io.Put_Line (" val1 et val11 sont egaux ");
end if;
end Test_Registres;