|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1024 (0x400)
Types: TextFile
Names: »STATISTI.PAS«
└─⟦09235ab48⟧ Bits:30003065 Demoprogrammer K-Z til Pascal bog
└─ ⟦this⟧ »STATISTI.PAS«
└─⟦092727b26⟧ Bits:30005927 Demoprogrammer til Pascal bog (Jet-80)
└─ ⟦this⟧ »STATISTI.PAS«
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»