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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

Min:=A[1]; MinN:=1;
FOR i:=2 TO 10 DO
IF
Min>A[i] THEN
BEGIN Min:=A[i]; MinN:=i; END;
writeln(’Минимальный элемент данного массива =’, Min);
{Расчет суммы и произведения}
S:=0; P:=1;
FOR i:=1 TO MinN-1 DO S:=S+A[i];
FOR i:=MinN+1 TO 10 DO
IF A[i]>0 THEN P:=P∗A[i];
writeln(’Сумма =’, S:10:6);
writeln(’Произведение =’, P:10:6);
END.
Пример 2.6.2 Найти критерий линейной корреляции по формуле
()()
()()
k
yyxx
yy xx
ii
i
n
i
i
n
i
i
n
=
−−
−−
=
==
∑
∑∑
1
2
1
2
1
где
x
n
x
i
i
n
=⋅
=
∑
1
1
,
y
n
y
i
i
n
=⋅
=
∑
1
1
.
VAR x, y:ARRAY[1..100] OF real;
Xs, Ys, Sxy, Sx2, Sy2, k:real;
i, n:integer;
BEGIN
{Ввод массивов x и y с клавиатуры.}
write(’Введите количество элементов в массиве. n=’);
readln(n);
FOR i:=1 TO n DO
BEGIN
write(’x’,i, ’=’); readln(x[i]);
write(’y’,i, ’=’); readln(y[i])
END;
{Расчет средних значений массивов x и y}
Xs:=0; Ys:=0;
FOR i:=1 TO n DO
BEGIN
Xs:=Xs+x[i]/n;
Ys:=Ys+y[i]/n
END;
28

Страницы