Программа на языке Qbasic

CLS

n = 11

INPUT "Введите Коэффициент Стьюдента="; tt

DIM x(1 TO n), y(1 TO n), tx(1 TO n), ty(1 TO n)

DATA 0.001, 0.002, 0.005, 0.01, 0.04, 0.05, 0.1, 0.2, 0.3, 0.4, 0.5

FOR i = 1 TO n

READ x(i)

NEXT i

DATA 0.98, 0.97, 0.95, 0.92, 0.9, 0.84, 0.81, 0.8, 0.8, 0.81, 0.82, 0.84

FOR i = 1 TO n

READ y(i)

NEXT i

mx = 0: my = 0

FOR i = 1 TO n

mx = mx + x(i)

my = my + y(i)

NEXT i

mx = mx / n: my = my / n

dx = 0: dy = 0: S = 0

FOR i = 1 TO n

dx = dx + (x(i) - mx) ^ 2

dy = dy + (y(i) - my) ^ 2

S = S + (x(i) - mx) * (y(i) - my)

NEXT i

dx = dx / (n - 1): dy = dy / (n - 1)

CKOx = SQR(dx): CKOy = SQR(dy)

Vx = CKOx * 100 / mx: Vy = CKOy * 100 / my

FOR i = 1 TO n

tx(i) = (x(i) - mx) / CKOx

ty(i) = (y(i) - my) / CKOy

NEXT i

Kxy = S / ((n - 1) * CKOx * CKOy)

tr = ABS(Kxy) * SQR(n - 2) / SQR(1 - Kxy ^ 2)

PRINT " N", "x", "y", "tx", "ty"

FOR i = 1 TO n

PRINT i, x(i), y(i), tx(i), ty(i)

NEXT i

PRINT "число ответов ="; n

PRINT "табличное значение критерия Стьюдента ="; tt

PRINT "математическое ожидание:"; "по x="; mx, "по y="; my

PRINT "дисперсия:"; "по x="; dx, "по y="; dy

PRINT "среднеквадратическое отклонение:"; "по x="; CKOx, "по y="; CKOy

PRINT "коэффициент вариации:"; "по x="; Vx, "по y="; Vy

PRINT "коэффициент корреляции ="; Kxy

PRINT "рассчитанное значение критерия Стьюдента ="; tr

IF tr >= tt THEN

PRINT "линейная зависимость между x и y Cуществует"

ELSE

PRINT "линейная зависимость между x и y Отсутствует"

END IF

END