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

⟦651fd0010⟧

    Length: 480 (0x1e0)
    Notes: Mikados TextFile, Mikados_K
    Names: »FUNKTION«

Derivation

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

Text

0010 // --------------------------- funktion_g ------------------------
0020 // 
0030 PROC G(X)
0040 IF X=>0 THEN 
0050 G:=(X-4)**2
0060 ELSE 
0070 G:=X+16
0080 ENDIF 
0090 ENDPROC G
0100 // 
0110 CLEAR 
0120 PRINT "  x         g(x)  "
0130 PRINT 
0140 FOR I:=-16 TO 8 DO 
0150 PRINT USING "####   ######.##":I,G(I)
0160 NEXT I