DataMuseum.dk Presents historical artifacts from the history of: Rational R1000/400

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦1f61be3a8⟧ Ada Source

    Length: 2048 (0x800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Complexe, seg_04d111

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧ 

with Io;
package body Complexe is

    function Mettre (X, Y : Item) return Objet is
        Z : Complexe.Objet;
    begin
        Z.Reel := X;
        Z.Imaginaire := Y;
        return Z;
    end Mettre;

    function "+" (X, Y : Objet) return Objet is
        Z : Complexe.Objet;
    begin
        Z.Reel := X.Reel + Y.Reel;
        Z.Imaginaire := X.Imaginaire + Y.Imaginaire;
        return Z;
    end "+";


    function "*" (X, Y : Objet) return Objet is
        Z : Complexe.Objet;
    begin
        Z.Reel := X.Reel * Y.Reel;
        Z.Imaginaire := X.Imaginaire * Y.Imaginaire;
        return Z;
    end "*";

    procedure Affiche (Resultat : Objet) is
    begin
        Io.Put ("partie reel ");
        Io.Put (Resultat.Reel);
        Io.New_Line;
        Io.Put ("partie imaginaire ");
        Io.Put (Resultat.Imaginaire);
        Io.New_Line;
    end Affiche;

end Complexe;

    nblk1=1
    nid=0
    hdr6=2
        [0x00] rec0=29 rec1=00 rec2=01 rec3=000
    tail 0x2175473e0875481c66b97 0x42a00088462060003