Написать программу для заполнения трех двумерных массивов последующего их вывода. Есть решение на C, помогите переписать на Pascal

@Rex_et_Deus · Регистрация: 08.03.2012

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

Условие задачи
Напишите программу для заполнения трех двумерных массивов последующего их вывода.
Первый массив, размерностью n на m, заполняется данными, вводимыми с клавиатуры, так что заполнение ведется по диагоналям параллельным главной, начиная с правого верхнего угла.
Второй массив, размерностью n на n, заполняется случайными числами так, что в каждом столбце получается убывающая последовательность элементов.
Третий массив, размерностью n на n, заполняется для произвольного n так же, как для n=5.

Название: 233365fb555e.jpg
Просмотров: 348

Размер: 4.2 Кб

Название: 233365fb555e.jpg
Просмотров: 348

Размер: 4.2 Кб

В последнем случае необходимо:
1)Описать построение массива для двух разных n;
2)Написать программу;
3)Привести трассировку для n=4.

Алгоритм работы
Первый массив заполняем следующим образом: вводим элементы в двумерный массив, как сказано в условии, при этом предварительно проверяем индекс элемента. Если индекс не попадает в массив, то производим корректировку, например, при вылезании за границы массива вправо, очередным будет элемент в первой строке следующей диагонали и т.п.
Второй массив: для получения убывающей последовательности в столбцах будем заполнять массив таким образом, что каждый вновь задаваемый элемент меньше предыдущего в столбце за счет уменьшения вышестоящего элемента на любое число от 1 до 40.
Третий массив: заполнение ведем по строкам и столбцам, чередуя, при этом после заполнения пары строка-столбец меняем направление заполнения. Одновременно уменьшается и количество недостающих элементов в строках и столбцах. Например, при n=4, заполнение массива идет так: - заполняем первую строку (4 числа), - уменьшаем количество заполняемых элементов (3) - заполняем последний столбец, начиная со второй строки(3 числа) - меняем направление - заполняем последнюю строку, начиная с предпоследнего элемента (3 числа) - уменьшаем количество заполняемых элементов (2) - заполняем первый столбец, начиная с предпоследней строки (2 числа) - меняем направление - заполняем вторую строку со второго столбца (2 числа) - уменьшаем количество заполняемых элементов (1) - заполняем предпоследний столбец с третьей строки (1 число) - меняем направление - заполняем третью строку с третьего элемента (1 число) - массив заполнен.

Есть решение задачи на С. Помогите, пожалуйста, переписать его на языке Pascal.

C

//Первый массив:
void main( void )
{
  int N, M, i, x, y, Mas[20][20];;
 
   cout <<"Введите кол-во строк n= ";
 cin >>N;
 cout <<"Введите кол-во столбцов m= ";
 cin >>M;
 x = 1;
 y = M;
  for (i = 1; i <= N * M; i ++)
  {
/* Возврат в начало следующей диагонали, если вылезли вниз */
    if  (x>N)
    { while (y!=1)
        {x--;
        y--;}
     x++;}
 
/* Возврат в начало следующей диагонали, если вылезли вправо */
    if  (y>M)
    { while (x!=1)
        { x--;
          y--;}
      y--;
    }
/* Возврат в начало следующей диагонали, если вылезли вверх */
    if  (x<1)
    { while (x!=1)
        { x++;
         y++;}
    }
/* Возврат в начало следующей диагонали, если вылезли влево */
   if  (y<1)
    { while (y!=1)
        { x++;
          y++;}
    }
/* Вводим значение элемента массива */
    cout<<"["<<x<<"]["<<y<<"]= ";
    cin>>Mas[x][y];
/* Переходим к следующей */
    x ++;
    y ++;
  }
 
 /* Вывод массива */
  for (x = 1; x <= N; x++)
  {
    for (y = 1; y <= M; y++)
      cout<<" "<<Mas[x][y];
      cout<<endl;
  }
}
 
//Второй массив:
void main( void )
{
  int N, i, x, y, Mas[20][20];;
 
   cout <<"Введите порядок матрицы n= ";
 cin >>N;
 
randomize();
 for (x = 1; x<=N ; x++)
  {
     for (y = 1; y<=N; y++)
    {
    Mas[x][y]=Mas[x-1][y]-random(40)-1;
    }
  }
 
 
 /* Вывод массива */
  for (x = 1; x <= N; x++)
  {
    for (y = 1; y <= N; y++)
      cout<<" "<<Mas[x][y];
      cout<<endl;
  }
}
 
//Третий массив:
void main ()
{
int result[100][100];
int x,y,d,max,i,j,n;
 
cout <<"\n n=";
cin>>n;
 
   y = 0;
   x = 1;
   max = n*n;
   i = n;
   d = 1;
//заполняем массив
   while (i>=1)
   {
     for (j=1;j<=i;j++)
      {y=y+d;
       result[x][y] = max;
       max--;
      }
    i--;
     for (j=1;j<=i;j++)
      {
       x=x+d;
       result[x][y]=max;
       max--;
      }
    d=d*(-1);
   }
 
 
//выводим массив
    for (i=1;i<=n;i++)
     {
        cout<<endl;
           for (j=1;j<=n;j++)
              {  cout.width(2);
             cout <<result[i][j] <<" ";}
     }
    
}

	04.04.2012, 11:01