|
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: 945 (0x3b1)
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 F_Io;
with Racine_Carree;
with Text_Io;
procedure Racine is
A, B, C, Racine_1, Racine_2 : Float;
Ok : Boolean;
begin
Text_Io.Put ("Valeur du coefficient A? ");
F_Io.Get (A);
Text_Io.Put ("Valeur du coefficient B? ");
F_Io.Get (B);
Text_Io.Put ("Valeur du coefficient C? ");
F_Io.Get (C);
Racine_Carree (A, B, C, Racine_1, Racine_2, Ok);
if Ok then
Text_Io.Put ("les racines de l'equation sont x1 = ");
F_Io.Put (Racine_1, Aft => 3, Fore => 2, Exp => 0);
Text_Io.Put (" et x2 = ");
F_Io.Put (Racine_2, Aft => 3, Fore => 2, Exp => 0);
else
Text_Io.Put ("Erreur sur l'equation ");
F_Io.Put (A, Aft => 3, Fore => 2, Exp => 0);
Text_Io.Put ("*X**2 + ");
F_Io.Put (B, Aft => 3, Fore => 2, Exp => 0);
Text_Io.Put ("*X + ");
F_Io.Put (C, Aft => 3, Fore => 2, Exp => 0);
Text_Io.Put (" = 0");
end if;
end Racine;