Дана матрица А(nxn) и вектор х = (х1, х2, ..., хn). Написать программу вычисления вектора b = A*х.

@Алёнка))) · Регистрация: 08.12.2011

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

@GoldenBoy · 14.12.2011, 00:18

Вроде так.

Pascal

var A:array[1..50,1..50] of integer;
    x,b:array[1..50] of integer;
    n,i,j:integer;
begin
write('Vvedite razmernost n= ');
readln(n);
 
writeln('Matrica A:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(11)-5;
write(a[i,j]:4);
end;
writeln;
end;
 
writeln('Vector x:');
for i:=1 to n do
begin
x[i]:=random(11)-5;
write(x[i]:4);
end;
writeln;
 
writeln('Vector b:');
for i:=1 to n do
begin
b[i]:=0;
for j:=1 to n do
b[i]:=b[i]+A[i,j]*x[j];
write(b[i]:4);
end;
end.

@Алёнка))) 0 / 0 / 0 Регистрация: 08.12.2011 Сообщений: 5
		1
	Дана матрица А(nxn) и вектор х = (х1, х2, ..., хn). Написать программу вычисления вектора b = Aх. 13.12.2011, 21:41. Показов* 2565. Ответов 1 Метки нет (Все метки) Дана матрица А(nxn) и вектор х = (х1, х2, ..., хn). Написать программу вычисления вектора b = A*х. 0

	14.12.2011, 00:18

Дана матрица А(nxn) и вектор х = (х1, х2, ..., хn). Написать программу вычисления вектора b = A*х.

Решение