эту формулу (правда, там должно быть n, а не n-1) несложно привести к нужной Вам:
r=(XYcp-Xcp*Ycp)/(Sx*Sy)
не понимаю, вам что, совсем не дают формул?
Спасибо. Просто при переводе в другой ВУЗ нужно еще сдать в 1 семестре некоторые дисциплины, а в прошлом ВУЗе не было ТВиМС. Так что только с Вашей помощью...