Проблемно-ориентированная информатика химико-технологических процессов. Кравцов А.В - 29 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

{Расчет коэффициента линейной корреляции}
Sxy:=0; Sx2:=0; Sy2:=0;
FOR i:=1 TO n DO
BEGIN
Sxy:=Sxy+(y[i]-Ys)
∗(x[i]-Xs);
Sx2:=Sx2+sqr(x[i]-Xs);
Sy2:=Sy2+sqr(y[i]-Ys);
END;
k:=Sxy/(Sy2
∗Sx2);
{Вывод результата}
writeln(’Коэффициент линейной корреляции. k=’,k:8:6)
END.
Пример 2.6.3 Составить программу случайного задания массива
F(20), определения факториала от числа положительных элементов дан-
ного массива, а все отрицательные элементы массива заменить их квад-
ратами.
VAR F:array [1..20] of real;
i, N:integer;
P:real;
BEGIN
{Задание массива F(20) случайными числами из интервала [-10,10].}
randomize; FOR i:=1 TO 20 DO F[i]:=(1-2∗RANDOM)∗10;
{Определение количества положительных элементов.}
N:=0;
FOR i:=1 TO 20 DO
IF
F[i]>0 THEN N:=N+1;
{Расчет факториала. N!}
P:=1;
FOR i:=1 TO N DO P:=P∗i;
{Замена отрицательных элементов массива их квадратами.}
FOR i:=1 TO 20 DO
IF
F[i]<0 THEN F[i]:= F[i]∗F[i];
{Вывод результатов}
writeln(’N!=’,P:10);
FOR i:=1 TO 20 DO writeln(’F’,i,’=’,F[i]:7:4);
END.
29

Страницы