7.Найтипроизведение двух квадратных...

Тема в разделе "Информатика", создана пользователем Злой Ниггер, 30 янв 2010.

  1. 7.Найтипроизведение двух квадратных матриц А(3*3) и В(3*3).

    9.Дан массив
    А(3*4). Найти номера всех максимальных элементов в каждой строке.

    10.Дан массив
    А(3*4). Найти в каждой строке сумму элементов, кратных 3.



    11.Дан массив
    А(3*4). Найти количество элементов в каждой строке, больших среднего
    арифметического элементов данной строки.

    паскаль
     
  2. 19sasha91

    19sasha91 New Member

    7. Произведение двух матриц - это матрица, каждый член которой есть
    c(i, j) = Summa(1, k) a(i, k)*b(k, j)
    То есть надо три цикла друг в друге, а внутри эта формула.
    for i:=1 to 3 do
    begin
    for j:=1 to 3 do
    begin
    C[i,j]:=0;
    for k:=1 to 3 do C[i,j] := C[i,j] + A[i,k]*B[k,j];
    end;
    end;
    9. Номера максимальных элементов в каждой строке А(3, 4) сами образуют
    массив B(3). Цикл такой:
    for i:=1 to 3 do
    begin
    Max = A[i, 1];
    for j:= 1 to 4 do
    if A[i,j] > Max then Max := A[i,j]; B:= j;
    end;

    10. Тоже самое, как в 9
    for i:=1 to 3 do
    begin
    B = 0;
    for j:= 1 to 4 do if (A[i,j] mod 3 = 0) then B := B + A[i,j];
    end;

    11. Сначала заполним массив B средними ариф. по строкам
    for i:=1 to 3 do
    begin
    B = 0;
    for j:= 1 to 4 do B := B + A[i,j];
    B := B / 4;
    end;
    А потом найдем в каждой строке A[i,j], сколько элементов больше B.
    Посчитаем их в счетчике с и запишем обратно в массив B.
    for i:=1 to 3 do
    begin
    c:=0;
    for j:= 1 to 4 do if A[i,j] > B then c:=c+1;
    B := c;
    end;















     

Поделиться этой страницей

Наша группа