|
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: 828 (0x33c)
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 Text_Io;
with Elementary_Functions;
procedure Test_Sinus is
package Float_Texte is new Text_Io.Float_Io (Float);
Un_Demi_De_Pi : constant Float := 3.14;
Sin, X : Float;
Nom_Fichier : String (1 .. 256);
Long_Fichier : Natural;
F : Text_Io.File_Type;
use Text_Io;
M : Text_Io.File_Mode := In_File;
Nombre_Flottant : Float;
begin
Text_Io.Get_Line (Nom_Fichier, Long_Fichier);
Text_Io.Open (File => F,
Mode => M,
Name => Nom_Fichier (1 .. Long_Fichier),
Form => "");
Text_Io.Reset (File => F, Mode => M);
X := 3.14 / 2.0;
Sin := Elementary_Functions.Sin (X);
Float_Texte.Get (F, Nombre_Flottant);
Float_Texte.Put (Nombre_Flottant);
Float_Texte.Put (Sin);
Text_Io.Close (F);
end Test_Sinus;