Помощь - Поиск - Пользователи - Календарь
Полная версия: Вывод матрицы на экран
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Павел
4.05.2004 15:44
Делаю перемножение матриц но не пойму как матрицу-произведение вывести на экран. И перемножение правильно-ли?

Код
var
  a, b, c, d, e, f, g, h, i, j, k: integer;
  s: real;
  m1, m2, m3: array [1..50,1..50] of real;

Begin

    Write('Vvedite kolichestvo strok matrici m1 ');
    readln(a);
    Write('Vvedite kolichestvo stolbcov matrici m1 ');
    readln(b);
    randomize;
       for i:=1 to a do
       for j:=1 to b do
    m1[i,j]:=random(5);
    Write('Vvedite kolichestvo strok matrici m2 ');
    readln(c);
    Write('Vvedite kolichestvo stolbcov matrici m2 ');
    readln(d);
       for i:=1 to c do
       for j:=1 to d do
    m2[i,j]:=random(5);

     for i:=1 to a do
      begin
      writeln;
     for j:=1 to b do
      write(m1[i,j]:4:0, ' ');
      writeln;
      end;
      writeln;


      for i:=1 to c do
       begin
       writeln;
      for j:=1 to d do
       write(m2[i,j]:4:0, ' ');
       writeln;
       end;
      writeln;
     
      begin
       s:=0;
       s:=m1[i,k]*m2[k,j];
       m3[i,j]:=s;
      end;


      for i:=1 to e do
       begin
       writeln;
      for j:=1 to f do
       write(m3[i,j]:4:0, ' ');
       writeln;
       end;
End.
Павел
4.05.2004 18:56
Нашел ошибки и немного переделал, но все равно получаемая матрица состоит из нолей, только последнее значение - число.

Код

Uses
 Crt;
var
  a, b, c, d, e, f, g, h, i, j, k: integer;
  s: real;
  m1, m2, m3: array [1..50,1..50] of real;
Begin
    Clrscr;
    Write('Vvesti kolichestvo strok matrici m1 ');
    readln(a);
    Write('Vvesti kolichestvo stolbcov matrici m1 ');
    readln(b);
       for i:=1 to a do
       for j:=1 to b do
       begin
        write('Vvesti m1[',i,',',j,']: ');
        readln(m1[i,j]);
       end;
    Write('Vvesti kolichestvo strok matrici m2 ');
    readln(c);
    Write('Vvesti kolichestvo stolbcov matrici m2 ');
    readln(d);
       for i:=1 to c do
       for j:=1 to d do
       begin
        write('Vvesti m2[',i,',',j,']: ');
        readln(m2[i,j]);
       end;

     for i:=1 to a do
      begin
      writeln;
     for j:=1 to b do
      write(m1[i,j]:4:0, ' ');
      writeln;
      end;
      writeln;


      for i:=1 to c do
       begin
       writeln;
      for j:=1 to d do
       write(m2[i,j]:4:0, ' ');
       writeln;
       end;
      writeln;
      readln;

      begin
       s:=0;
       for k:=1 to 3 do
       s:=s+m1[i,k]*m2[k,j];
       m3[i,j]:=s;
      end;


      for i:=1 to a do
       begin
       writeln;
      for j:=1 to d do
       write(m3[i,j]:4:0, ' ');
       writeln;
       end;
readln;
End.
AlaRic
4.05.2004 22:47
Код

m3[i,k]:=m1[i,k]*m2[i,k];
Lik
5.05.2004 4:34
to AlaRic>> перемножение не массивов а матриц.
to Павел>> Вот тут ошибка:
Код

     begin
      s:=0;
      for k:=1 to 3 do
      s:=s+m1[i,k]*m2[k,j];
      m3[i,j]:=s;
     end;

Ты для себя программку пишешь ?
Павел
5.05.2004 10:11
to Lik>> да, для себя.
а где здесь ошибка?
как надо умножать?
Код
begin
     s:=0;
     for k:=1 to 3 do
     s:=s+m1[i,k]*m2[k,j];
     m3[i,j]:=s;
    end;


to AlaRic>> пробовал вставлял эту строку - нижняя строка состоит из чисел, остальное ноли.
Код
m3[i,k]:=m1[i,k]*m2[i,k];
Павел
6.05.2004 2:15
Все, разобрался. Только и не хватало перечисления.

Код

      for i:=1 to a do
        for j:=1 to d do
      begin
        s:=0;
        for k:=1 to a do
        s:=s+m1[i,k]*m2[k,j];
        m3[i,j]:=s;
      end;
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.