Процедуры и функции: получить вектор А * b (A - матрица, b - вектор)

@Goderito · Регистрация: 24.10.2014

Есть квадратная матрица A порядка n и вектор b с n элементами. Получить вектор А * b.
Заранее спасибо)))

@CodeR · 07.11.2014, 12:29

Pascal

Const nmax=20;
Type matr=array[1..nmax,1..nmax] of integer;
     mas=array[1..nmax] of integer;
Var A:matr;
    B,X:mas;
    i,j,n:integer;
Procedure Mult(A:matr;B:mas;n:integer;Var X:mas);
Var i,j:integer;
Begin
    For i:=1 to n do
     For j:=1 to n do
      X[i]:=X[i]+A[i,j]*B[j];
End;
Begin
    Repeat
     write('Введите n: ');readln(n);
    Until (1<=n)and(n<=nmax);
    writeln('Матрица A');
    For i:=1 to n do
    Begin
      For j:=1 to n do
      Begin
        A[i,j]:=random(10);
        write(A[i,j]:3);
      End;
      writeln;
    End;
    writeln('Массив B');
    For i:=1 to n do
    Begin
      B[i]:=random(10);
      writeln(B[i]);
    End;
    Mult(A,B,n,X);
    writeln('A*B');
    For i:=1 to n do
     writeln(X[i]:3);
    readln;
End.

@Goderito 1 / 1 / 0 Регистрация: 24.10.2014 Сообщений: 62
		1
	Процедуры и функции: получить вектор А * b (A - матрица, b - вектор) 06.11.2014, 21:10. Просмотров 1112. Ответов 1 Метки нет (Все метки) Есть квадратная матрица A порядка n и вектор b с n элементами. Получить вектор А * b. Заранее спасибо))) 0

Опции темы

Процедуры и функции: получить вектор А * b (A - матрица, b - вектор)

Решение