Реферат: Основы ПЭВМ

PRINT "Введите количество жителей для ";I;"-го края "

INPUT Т(I)

NEXT I

M = 0

FOR I = 1 TO N

M = M + Т(I)

NEXT I

M = M / N

D = 0

FOR I = 1 TO N

D = D + (Т(I) - M) ^ 2

NEXT I

D = D / (N - 1)

S = SQR(D)

K = S / M

CLS

PRINT TAB(15); "Обработка данных переписи населения "

PRINT

PRINT TAB(8); "Область, край "; TAB(40); "Количество жителей "

PRINT

FOR I = 1 TO N

PRINT TAB(5); A$(I); TAB(45); Т(I)

NEXT I

PRINT

PRINT TAB(5); "Мат. ожидание"; TAB(45); M

PRINT TAB(5); "Дисперсия"; TAB(45); D

PRINT TAB(5); "Кв. отклонение"; TAB(45); S

PRINT TAB(5); "Коэф. вариации"; TAB(45); K

END