|
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: 758 (0x2f6)
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 Money;
procedure Test_Money is
type Rouble is new Money.Object;
type Dollar is new Money.Object;
type Taux is digits 3;
Rouble1, Rouble2, Rouble3, Rouble4 : Rouble;
Dollar1, Dollar2, Dollar3 : Dollar;
function Convert_To_Dollar
(Rouble_Money : Rouble; Le_Taux : Taux) return Dollar is
begin
return Make ((Convert_To_Float (Rouble_Money) * Float (Le_Taux)));
end Convert_To_Dollar;
begin
Rouble1 := Make (10.0);
Rouble2 := Make (45.0);
Dollar1 := Make (100.0);
Dollar2 := Make (300.0);
Rouble3 := Rouble1 + Rouble2;
Put (Rouble3);
Dollar3 := Dollar2 - Dollar1;
Put (Dollar3);
Dollar3 := Convert_To_Dollar (Rouble3, 0.5);
Put (Dollar3);
end Test_Money;