|
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: 751 (0x2ef)
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⟧
package body Complexe is
procedure Creer_Complexe (Z : out Object;
Reelle, Imaginaire : in Integer) is
begin
Z.Reelle := Reelle;
Z.Imaginaire := Imaginaire;
end Creer_Complexe;
function "+" (Z1, Z2 : in Object) return Object is
begin
return (Z1.Reelle + Z2.Reelle, Z1.Imaginaire + Z2.Imaginaire);
end "+";
function "-" (Z1, Z2 : in Object) return Object is
begin
return (Z1.Reelle - Z2.Reelle, Z1.Imaginaire - Z2.Imaginaire);
end "-";
procedure Afficher_Complexe (Z : in Object) is
begin
Put_Line (Integer'Image (Z.Reelle) & " + " &
Integer'Image (Z.Imaginaire) & " j");
end Afficher_Complexe;
end Complexe;