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

⟦cf5e18c7d⟧ 

    Length: 499 (0x1f3)
    Notes: Mikados TextFile, Mikados_K
    Names: »MAX«

Derivation

└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »MAX« 
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »MAX«

Text

0010 // ------------------------- max ---------------------------
0020 // 
0030 PROC MAX(X,Y)
0040 IF X<Y THEN 
0050 MAX:=Y
0060 ELSE 
0070 MAX:=X
0080 ENDIF 
0090 ENDPROC MAX
0100 // ----------------------------------------------------
0110 CLEAR 
0115 PRINT 
0120 INPUT "Indtast tre tal:    ":A,B,C
0130 PRINT "a = ";A;"          b = ";B;"         c = ";C
0140 PRINT 
0150 PRINT "Det største af tallene a og b er: ";MAX(A,B)
0155 MAXAB:=MAX(A,B)
0160 PRINT "Det største af alle tre tal er:   ";MAX(MAXAB,C)
8224 //