# Вторая пачка часть 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

Индекс
Элементарные функции Линейные уравнения Нелинейные уравнения Случайные числа
магазин автомагнитол, шумоизоляция виброизоляция