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

⟦4ac2701c7⟧

    Length: 404 (0x194)
    Notes: Mikados TextFile, Mikados_K
    Names: »MINIMUM«

Derivation

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

Text

0010 // ------------------------- minimum -----------------------
0020 // 
0030 PROC MIN(A1,B1,C1)
0040 IF A1<B1 THEN 
0050 IF A1<C1 THEN 
0060 MIN:=A1
0070 ELSE 
0080 MIN:=C1
0090 ENDIF 
0100 ELSE 
0110 IF B1<C1 THEN 
0120 MIN:=B1
0130 ELSE 
0140 MIN:=C1
0150 ENDIF 
0160 ENDIF 
0170 ENDPROC MIN
0180 // 
0190 CLEAR 
0195 PRINT 
0200 INPUT "Indtast tre tal:    ":A,B,C
0210 PRINT "Det mindste af de tre tal er:  ";MIN(A,B,C)