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

⟦ad29608da⟧ TextFile

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

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 // 

A0010 // ------------------------- max ---------------------------A▶08◀0020 // ▶08◀▶12◀0030 PROC MAX(X,Y)▶12◀▶11◀0040 IF X<Y THEN ▶11◀▶0b◀0050 MAX:=Y▶0b◀
0060 ELSE 
▶0b◀0070 MAX:=X▶0b◀▶0b◀0080 ENDIF ▶0b◀▶10◀0090 ENDPROC MAX▶10◀<0100 // ----------------------------------------------------<▶0b◀0110 CLEAR ▶0b◀▶0b◀0115 PRINT ▶0b◀'0120 INPUT "Indtast tre tal:    ":A,B,C'80130 PRINT "a = ";A;"          b = ";B;"         c = ";C8▶0b◀0140 PRINT ▶0b◀80150 PRINT "Det største af tallene a og b er: ";MAX(A,B)8▶14◀0155 MAXAB:=MAX(A,B)▶14◀<0160 PRINT "Det største af alle tre tal er:   ";MAX(MAXAB,C)<▶08◀8224 // ▶08◀▶00◀▶00◀ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc