Developing.ru

Код: Выделить всё

#include <stdio.h>
#include <iostream.h>
#include <math.h>
#include <stdlib.h>
#include <conio.h>
#include <iomanip.h>
#define n 100
/*program laborat1.cpp
программа решает следующую задачу:
Дана вещественная матрица А размером m*n.
Обозначим  M(i,j) матрицу размером (m-1)*(n-1),
получаемую из матрицы А выбрасыванием i-й строки и j-го столбца.
Построить  матрицу В, где каждый элемент b(i,j)
равен наименьшему из элементов матрицы M(i,j).
*/

int main()
   {
          double min(float a ;int o,p);
          int i1,j1;
          {
              const int m=26;
              int n,i,j,k,l;
              int a[i][j],b[i][j];
    for (i1=1 ;i1<=n i1++)
    for (j1=1; j1<=n;j1++)
    {
      if ((a1[i1,j1]< m)&&((i1<>o) &&(j1<>p))) 
       {
                       m=a1[i1][j1];
                       min=m;
}
}
cout<<"vvedite razmernost matrix";
cin>>n;
  Randomize();
  for (i=1;i<=n;i++)
  for (j=1;j<=n;j++) 
      a[i][j]=rand%100;

  cout <<"matrix A" <<endl;
  for (i=1;i<=n;i++)
  {
    for (j=1;j<=n;j++)
      cout<<"%3a",a[i][j];
  cout<<endl;
}

  for (k=1;k<=n;k++)
  for (l=1;l<=n;l++)
    {
      b[k][l]=min(a,k,l);
}

  
  for (i=1;i<=n;i++)
  {
    cout<<endl;
    for (j=1;j<=n;j++)
    cout<<"%3a",b[i][j];
    cout<<endl;
   }

  
  return(0);
}

Код: Выделить всё

type matrix= array[1..100,1..100] of Integer;
{const n=100;}
var
  n,i,j,k,l:Integer;
  a,b:matrix ;
  function min(var a1:matrix; o,p:integer):integer;
  var
    i1,j1:Integer;
    m:Integer;
  begin
    m:=26;
    for i1:=1 to n do
    for j1:=1 to n do
      if (a1[i1,j1]< m) and ((i1<>o) and (j1<>p)) then
        m:=a1[i1,j1];
    min:=m
  end;
begin
writeln('vvedite razmernost matrix');
readln(n);
  Randomize;
  for i:=1 to n do
  for j:=1 to n do
    a[i,j]:=Random(25);

   writeln('matrix A');
  for i:=1 to n do begin
  for j:=1 to n do
      write(a[i,j]:3);
    
    Writeln;
  end;


  for k:=1 to n do
  for l:=1 to n do
    begin
      b[k,l]:=min(a,k,l)
    end;
   writeln;
  writeln('matrix B');
  for i:=1 to n do begin
  for j:=1 to n do
      write(b[i,j]:3);
   
    Writeln;
  end;

  
  Readln;
end.