DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦cde97d903⟧ TextFile

    Length: 512 (0x200)
    Types: TextFile
    Names: »SIDE117«

Derivation

└─⟦eca9022c5⟧ Bits:30002661 Datalære sådan - løsningsdiskette
    └─ ⟦this⟧ »SIDE117«

TextFile

0010 // sortering af tre tal
0020 //---------------------
0030 INPUT "tast tre tal: ": x,y,z
0040 IF x>y THEN EXEC ombyt(x,y)
0050 IF y>z THEN EXEC ombyt(y,z)
0060 IF x>y THEN EXEC ombyt(x,y)
0070 PRINT "sorteret efter størrelse:"
0080 PRINT x,"      ",y,"      ",z
0090 END  // ----slut hovedprogram -----
0100 //
0110 PROC ombyt(REF s,REF t) CLOSED
0120   a:= s; s:= t; t:= a
0130 ENDPROC ombyt
«eof»