помогите решить задачу на Паскале

bobkli

Местный
Регистрация
2 Ноя 2007
Сообщения
688
Реакции
120
Ребята помогите решить задачи на поскале (с решением)
 
Э туплю, а у массивов в скобках задана размерность? Типа x1(5) - массив из пяти элементов, а t1(2,3) - двумерный по три?
 
Четвертая
Код:
const
  p=3;
  n=p+1;
  m=n+1;
type
  Tmatrix=array[1..n,1..m] of integer;
procedure createMatrix(var matrix:Tmatrix; sizeN,sizeM:integer);
var
  i,j:integer;
begin
  for i:=1 to sizeN do
    for j:=1 to sizeM do
      matrix[i,j]:=random(50);
end;
procedure printMatrix(const msg:string; const matrix:Tmatrix; sizeN,sizeM:integer);
var
  i,j:integer;
begin
  writeln(msg);
  for i:=1 to sizeN do
    begin
      for j:=1 to sizeM do
        write(matrix[i,j]:5);
      writeln;
    end;
end;
procedure sortMatrix(var matrix:Tmatrix; sizeN,sizeM:integer);
var
  i,j,k,buf:integer;
begin
  for k:=1 to sizeN do
    for i:=2 to sizeM do
      begin
        buf:=matrix[k,i];
        j:=i-1;
        while (j>0) and (matrix[k,j]>buf) do
          begin
            matrix[k,j+1]:=matrix[k,j];
            dec(j);
          end;
        matrix[k,j+1]:=buf;
      end;
end;
var
  x,y:Tmatrix;
begin
  randomize;
  createMatrix(x,n,m);
  createMatrix(y,p,n);
  printMatrix('Исходная матрица X: ',x,n,m);
  printMatrix('Исходная матрица Y: ',y,p,n);
  sortMatrix(x,n,m);
  printMatrix('Матрица X после сортировки : ',x,n,m);
  sortMatrix(y,p,n);
  printMatrix('Матрица Y после сортировки : ',y,p,n);
end.
 
Назад
Сверху