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

⟦c46c6e62a⟧ TextFile

    Length: 1024 (0x400)
    Types: TextFile
    Names: »STATISTI.PAS«

Derivation

└─⟦08ea08c61⟧ Bits:30003924 PolyPascal programmer
    └─ ⟦this⟧ »STATISTI.PAS«

TextFile

PROGRAM statisti;
  
  TYPE
    array100 = ARRAY(.1 .. 100.) OF REAL;
    str20 = STRING(.20.);
    
  VAR
    tabel : array100;
    streng : str20;
    n, antal, test : INTEGER;
    x, middeltal, varians, spredning, sum, kvadratsum : REAL;
  
  BEGIN
    WRITE(CLRHOM);
    WRITELN('Indtast tal (# stopper):');
    sum := 0;
    kvadratsum := 0;
    n := 0;
    WRITE(': ');
    READLN(streng);
    WHILE streng <> '#' DO
      BEGIN
        VAL(streng, x, test);
        IF test = 0
          THEN
            BEGIN
              n := n + 1;
              sum := sum + x;
              kvadratsum := kvadratsum + SQR(x);
            END
          ELSE WRITELN('Ulovligt tal - om igen!');
        WRITE(': ');
        READLN(streng);
      END;
    middeltal := sum / n;
    varians := (kvadratsum - SQR(sum) / n) / (n - 1);
    spredning := SQRT(varians);
    WRITELN;
    WRITELN('Middeltal: ', middeltal : 8 : 4);
    WRITELN('Spredning: ', spredning : 8 : 4);
  END.
«eof»