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 - metrics - download

⟦efddb9119⟧ TextFile

    Length: 640 (0x280)
    Types: TextFile
    Names: »TABEL.PAS«

Derivation

└─⟦09235ab48⟧ Bits:30003065 Demoprogrammer K-Z til Pascal bog
    └─⟦this⟧ »TABEL.PAS« 
└─⟦092727b26⟧ Bits:30005927 Demoprogrammer til Pascal bog (Jet-80)
    └─⟦this⟧ »TABEL.PAS«

TextFile

PROGRAM tabel;
  
  CONST
    start = 1.0;
    slut = 3.0;
    spring = 0.1;
  
  VAR
    x : REAL;
    i : INTEGER;
      
  BEGIN
    WRITE(CLRHOM);
    WRITELN('x' : 10, 'x^(1/2)' : 10, 'x^(1/3)' : 10, 'x^2' : 10, 'x^3' : 10);
    x := start;
    i := 1;
    REPEAT
      IF i MOD 5 = 1
        THEN WRITELN;
      WRITELN(x : 10 : 5, SQRT(x) : 10 : 5, EXP(LN(x) / 3) : 10 : 5,
              SQR(x) : 10 : 5, SQR(x) * x : 10 : 5);
      x := x + spring;
      i := i + 1;
    UNTIL x > slut;
  END.
«eof»