Вычислить значение выражения

@TopSecret96 · Регистрация: 28.04.2015

Author24 — интернет-сервис помощи студентам

через одномерный массив
$https://www.cyberforum.ru/cgi-bin/latex.cgi?\frac{{x1}^{2}+{x2}^{2}+..+{xn}^{2}}{{y1}^{2}+{y2}^{2}+..+{yn}^{2}}, n=50$

@Puporev · 10.06.2015, 11:42

Pascal

uses crt;
const n=50;
type mas=array[1..n] of real;
procedure massiv(var a:mas;c:char);
var i:byte;
begin
writeln('Массив ',c);
for i:=1 to n do
 begin
  a[i]:=5*random;
  write(a[i]:5:2);
 end;
writeln;
end;
function summa(a:mas):real;
var i:byte;
    s:real;
begin
s:=0;
for i:=1 to n do
s:=s+sqr(a[i]);
summa:=s
end;
var x,y:mas;
    z:real;
begin
massiv(x,'X');
massiv(y,'Y');
z:=summa(x)/summa(y);
writeln('Результат=',z:0:2)
end.

@TopSecret96 0 / 0 / 0 Регистрация: 28.04.2015 Сообщений: 32
		1
	Вычислить значение выражения 10.06.2015, 01:26. Показов 943. Ответов 1 Метки нет (Все метки) через одномерный массив $https://www.cyberforum.ru/cgi-bin/latex.cgi?\frac{{x1}^{2}+{x2}^{2}+..+{xn}^{2}}{{y1}^{2}+{y2}^{2}+..+{yn}^{2}}, n=50$ 0

	10.06.2015, 11:42

Вычислить значение выражения

Решение