DataMuseum.dk

Presents historical artifacts from the history of:

MIKADOS

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about MIKADOS

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦474691599⟧ 

    Length: 2528 (0x9e0)
    Notes: Mikados TextFile, Mikados_K
    Names: »LOG10«

Derivation

└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »LOG10« 
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »LOG10«

Text

0010 // ------------------------ log10 -----------------------------
0020 // 
0030 PROC FNLOG10(X)
0040 FNLOG10:=LOG(X)/LOG(10)
0050 ENDPROC FNLOG10
0060 // 
0070 CLEAR 
0075 PRINT 
0080 INPUT "Indtast et positivt tal:  ":TAL
0090 PRINT "log10( ";TAL;") = ";FNLOG10(TAL)