Вторая пачка часть 169
0;
SM := 0.0;
FOR I := 1 TO N DO
BEGIN
S := X[I];
SM := SUMX (S,SM,0.0,1);
END;
ST[1] := SM;
SM := ST[1]/N;
FOR I := 1 TO N DO
FOR J := 2 TO 4 DO
BEGIN
S := ST[J];
R := X[I];
ST[J] := SUMX (R,S,SM,J);
END;
END.
Если теперь разделим элементы массива SТ на N (или N - 1 для несме¬щен¬ных оценок), то получим
DIS := ST[2] / NN;
DISN := ST[2] / (NN-1);
SIG := SQRT (DIS);
SIGN := SQRT (DISN);
AS := ST[3] / (NN*DIS*SQRT(DIS));
EX := ST[4] / (NN * SQR(DIS)) - 3.0;
XM := ST[1] / NN;
A3 := SQRT (6*(NN-1)/(NN+3)/(NN+1));
A4 := SQRT (24*(NN-2)*(NN-3)*NN/
(NN+1)/(NN+1)/(NN+3)/(NN+5)).
Введенные значения Х накапливаются в массиве Х[i]. Если ввод в прог¬рам¬ме выполнять по алгоритму
Шаг 1. Ввод очередного Х [i];
Шаг 2. N = N + 1;
Шаг 3. Вычисление SТ [к], где к = 1, ..., 4;
Шаг 4. Опрос клавиатуры (сh);
Шаг 5. Если сh = ЕSС то
Шаг 5.1. Если "конец ввода" то конец
Шаг 5.2. иначе Нач
Шаг 5.2.1. Вывод Х, которое было
введено ошибочно;
Шаг 5.2.2. Ввод нового Х
Шаг 5.3. Конец;
Шаг 6. перейти на Шаг 1,
то тогда обеспечиваются все желаемые условия работы про¬граммы.
Без блока ввода (каждый автор программы может сам на¬писать вариант это¬го блока) программа, по к¬то¬рой вы¬пол¬няют расчет основных статистик и оцен¬¬ки нор¬мальности рас¬пределения случайной ве¬ли¬чи¬ны, мо¬жет выглядеть так (дан¬¬ные вводятся из файла на маг¬ни¬т¬ном носителе).
PROGRAM STAT;
CONST NN = 40;
TYPE MAS1 = ARRAY [1..NN] OF REAL;
MAS4 = ARRAY [1..4 ] OF REAL;
VAR X : MAS1; ST : MAS4; I,J,K,N : INTEGER;
XM,DIS,DISN,SIG,SIGN,A3,A4,AS,EX : REAL;
F : TEXT;
BEGIN
ASSIGN (F,'');
RESET (F);
FOR I := 1 TO NN DO
READ (F,X[I]);
CLOSE (F);
STAT1 (X, ST, N);
DIS := ST[2] / NN;
DISN := ST[2] / (NN-1);
SIG := SQRT (DIS);
SIGN := SQRT (DISN);
AS := ST[3] / (NN*DIS*SQRT(DIS));
EX := ST[4] / (NN * SQR(DIS)) - 3.0;
XM := ST[1] / NN;
A3 := SQRT (6*(NN-1)/(NN+3)/(NN+1));
A4 := SQRT (24*(NN-2)*(NN-3)*NN/
(NN+1)/(NN+1)/(NN+3)/(NN+5));
WRITELN ('*SM** ','XM ',XM:7:2,' DIS ',DIS:9:6,
' DISN ', DISN:9:6,' SIG ',SIG:9:6);
WRITE (' SIGN ', SIGN:9:6,' AS ', AS:8:5,
' EX ',EX:8:5,' A3 ',
AS/A3:8:5,' A4 ',EX/A4:8:5);
END
Индекс
Элементарные функции
Линейные уравнения
Нелинейные уравнения
Случайные числа
