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

⟦423a5de1d⟧ TextFile

    Length: 736 (0x2e0)
    Types: TextFile
    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« 

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)

A0010 // ------------------------- minimum -----------------------A▶08◀0020 // ▶08◀▶17◀0030 PROC MIN(A1,B1,C1)▶17◀▶13◀0040 IF A1<B1 THEN ▶13◀▶13◀0050 IF A1<C1 THEN ▶13◀\f

0060 MIN:=A1\f


0070 ELSE 
\f

0080 MIN:=C1\f

▶0b◀0090 ENDIF ▶0b◀
0100 ELSE 
▶13◀0110 IF B1<C1 THEN ▶13◀\f

0120 MIN:=B1\f


0130 ELSE 
\f

0140 MIN:=C1\f

▶0b◀0150 ENDIF ▶0b◀▶0b◀0160 ENDIF ▶0b◀▶10◀0170 ENDPROC MIN▶10◀▶08◀0180 // ▶08◀▶0b◀0190 CLEAR ▶0b◀▶0b◀0195 PRINT ▶0b◀'0200 INPUT "Indtast tre tal:    ":A,B,C'70210 PRINT "Det mindste af de tre tal er:  ";MIN(A,B,C)7▶00◀▶00◀cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc