Вычислить значение Z по заданному массиву

@D_O_L_P_H_I_N · Регистрация: 02.01.2010

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

Вычислить значение Z по заданному массиву q(n,n),n≤15 и массиву x(n),Z=max(i=1,n)∑(отjдоn=1) q(ij) (xj)

@Eugeniy · 02.01.2010, 04:00

Вы имеете ввиду вычислить значение квадратической формы, при задоной матрице и в заданой точке?

@Puporev · 02.01.2010, 11:03

Pascal

uses crt;
const nmax=15;
var q:array[1..nmax,1..nmax] of real;
    x:array[1..nmax] of real;
    n,i,j:byte;
    p,z,s:real;
begin
clrscr;
randomize;
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Массив Q:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    q[i,j]:=10*random;
    write(q[i,j]:5:2);
   end;
  writeln;
  end;
writeln;
writeln('Массив Х:');
for i:=1 to n do
 begin
  x[i]:=10*random;
  write(x[i]:5:2);
 end;
writeln;
writeln;
z:=0;
for i:=1 to n do
 begin
  s:=0;
  for j:=1 to n do
  s:=s+q[i,j]*x[j];
  if s>z then z:=s;
 end;
write('Z=',z:0:2);
readln
end.

@D_O_L_P_H_I_N · 02.01.2010, 11:25 **[ТС]**

Puporev,благодарю)

@D_O_L_P_H_I_N 0 / 0 / 0 Регистрация: 02.01.2010 Сообщений: 19
		1
	Вычислить значение Z по заданному массиву 02.01.2010, 02:26. Показов 562. Ответов 3 Метки нет (Все метки) Вычислить значение Z по заданному массиву q(n,n),n≤15 и массиву x(n),Z=max(i=1,n)∑(отjдоn=1) q(ij) (xj) 0

@Eugeniy 3132 / 1325 / 156 Регистрация: 19.12.2009 Сообщений: 1,808
	02.01.2010, 04:00	2
	Вы имеете ввиду вычислить значение квадратической формы, при задоной матрице и в заданой точке? 0

@D_O_L_P_H_I_N 0 / 0 / 0 Регистрация: 02.01.2010 Сообщений: 19
	02.01.2010, 11:25 [ТС]	4
	Puporev,благодарю) 0