Переписать в С++

@TP7 · Регистрация: 23.12.2009

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

Помогите перевести в С++ немогу перевести.

Перемножение 2-х прямоугольных матриц.

Pascal

Program PP_2;
uses crt;
type matr = array [1..8, 1..8] of real;
procedure UmnMatr(x,y:integer;m1,m2:matr;var m3:matr);
var k,i,j:integer;
begin
for k:=1 to x do
for j:=1 to x do
  begin
    m3[k,j]:=0;
    for i:=1 to y do
    m3[k,j]:=m3[k,j]+m1[k,i]*m2[i,j];
  end;
end;
var A,B,C:Matr;
    n,m,l : integer;
    i,j,k : integer;
begin
clrscr;
write ('Введите количество строк первой  n=');
readln (n);
write ('Введите количество столбцов первой матрицы и строк второй матрицы m=');
readln (m);
write ('Введите количество столбцов второй матрицы l=');
readln (l);
writeln ('Введите элементы матрицы А: ');
for i:=1 to n do
for j:=1 to m do
begin
write ('A[',i,',',j,']=');
readln(A[i,j]);
end;
writeln ('Введите элементы матрицы B : ');
for i:=1 to m do
for j:=1 to l do
begin
write ('B[',i,',',j,']=');
readln(B[i,j]);
end;
clrscr;
writeln('Матрица A:');
for i:=1 to n do
  begin
    for j:=1 to m do
    write(a[i,j]:6:2);
    writeln;
  end;
writeln('Матрица B:');
for i:=1 to m do
  begin
    for j:=1 to l do
    write(b[i,j]:6:2);
    writeln;
  end;
writeln ('Матрица С=A*B:');
UmnMatr(n,m,a,b,c);
for i:=1 to n do
   begin
     for j:=1 to l do
     write (C[i,j]:8:2);
     writeln;
   end;
readln
end.

@GrihaI · 11.05.2010, 10:47

Напиши задание постараюсь помочь.

@TP7 · 17.05.2010, 16:47 **[ТС]**

Задание: перемножить 2 прямоугольные матрици.

@GrihaI · 17.05.2010, 17:42

матрицу А х матрицу В, ответ в матрице С. размеры какие?

@alex_x_x · 17.05.2010, 18:56

C++

#include <iostream>
 
const int N = 8;
 
void MulMatrix( double *A, double *B, double *C, const int n, const int m, const int l ){
  for( int i=0;i<n;++i ){
    for( int j=0;j<l;++j ){
      *(C+l*i+j) = 0;
      for( int k=0;k<m;++k ){
        *(C+l*i+j) += *(A+m*i+k)*(*(B+l*k+j));
      }
    }
  }
}
 
int main(){
  double A[N][N], B[N][N], C[N][N];
  int n,m,l;
  cout << "(n,m,l)" << endl;;
  cin >> n >> m >> l;
  if( n<0 || n>N_MAX || m<0 || m>N_MAX || l<0 || l>N_MAX ){
    cout << "bad dimension!\n";
    return -1;
  }
  for( int i=0;i<n;++i ){
     for( int j=0;j<m;++j ){
         cout << "A[" << i + 1 << "," << j + 1<< "] = ";
         cin >> A[i][j]l  
     }
  }
  for( int i=0;i<m;++i ){
     for( int j=0;j<l;++j ){
         cout << "B[" << i + 1 << "," << j + 1 << "] = ";
         cin >> B[i][j]l  
     }
  }
  MulMatrix( A,B,C,n,m,l );
  for( int i=0;i<n;++i ){
     for( int j=0;j<l;++j ){
         cout << "C[" << i + 1 << "," << j + 1 << "] = " << C[i][j];
     }
  }
  return 0;
  
}

спешил, возможно есть ошибки

@GrihaI · 17.05.2010, 19:21

C++

#include <stdlib.h>
#include <iostream>
#include <time.h>
using namespace std;
int**create(int h,int w)
{
    int**p,i;
    p=new int*[h];
    for(i=0;i<h;i++)
        p[i]=new int[w];
    return p;
}
void print(int **p,int h,int w)
{
    int i,j;
    for(i=0;i<h;i++)
    {
        for(j=0;j<w;j++)
        {
            cout<<p[i][j]<<"\t";
        }
        cout<<endl;
    }
}
void main()
{
    int i,j,h,w;
    int **array_a,**array_b,**array_c;
    srand (time (NULL));
    cout<<"height:";
    cin>>h;
    cout<<"width:";
    cin>>w;
    array_a=create(h,w);
    array_b=create(h,w);
    array_c=create(h,w);
    for(i=0;i<h;i++)
        for(j=0;j<w;j++)
        {
            array_a[i][j]=rand()%10+1;
            array_b[i][j]=rand()%10+1;
            array_c[i][j]=(array_a[i][j]*array_b[i][j]);
        }
    cout<< "array 1\n";
    print(array_a,h,w);
    cout<< "\narray 2\n";
    print(array_b,h,w);
    cout<< "\narray 3\n";
    print(array_c,h,w);
}

@GrihaI 13 / 13 / 3 Регистрация: 23.04.2010 Сообщений: 31
	11.05.2010, 10:47	2
	Напиши задание постараюсь помочь. 0

@TP7 1 / 1 / 0 Регистрация: 23.12.2009 Сообщений: 93
	17.05.2010, 16:47 [ТС]	3
	Задание: перемножить 2 прямоугольные матрици. 0

@GrihaI 13 / 13 / 3 Регистрация: 23.04.2010 Сообщений: 31
	17.05.2010, 17:42	4
	матрицу А х матрицу В, ответ в матрице С. размеры какие? 0

	17.05.2010, 19:21