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

Тема в разделе "Другие языки", создана пользователем bobkli, 6 мар 2013.

Модераторы: Цукер
  1. bobkli

    bobkli Местный

    Регистр.:
    2 ноя 2007
    Сообщения:
    691
    Симпатии:
    116
    Ребята помогите решить задачи на поскале (с решением)
     
  2. the_hamster

    the_hamster Постоялец

    Регистр.:
    15 сен 2008
    Сообщения:
    101
    Симпатии:
    19
    Э туплю, а у массивов в скобках задана размерность? Типа x1(5) - массив из пяти элементов, а t1(2,3) - двумерный по три?
     
  3. versa4e

    versa4e Постоялец

    Регистр.:
    30 май 2010
    Сообщения:
    86
    Симпатии:
    56
    Четвертая
    Код:
    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.