Сформировать двумерный массив - Pascal (84904)

Узнай цену своей работы

Формулировка задачи:

сформировать двумерный массив по такому правилу 12345 51234 45123 34512 23451

Решение задачи: «Сформировать двумерный массив»

textual
Листинг программы
uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j:integer;
begin
clrscr;
randomize;
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if j>=i then a[i,j]:=j-i+1
    else a[i,j]:=n-i+j+1;
    write(a[i,j]:3);
   end;
  writeln;
 end;
readln
end.

Объяснение кода листинга программы

  1. Объявляются переменные: n, i, j для цикла, a двумерный массив.
  2. Задается размер матрицы с помощью переменной n.
  3. Условие цикла repeat считывает размер матрицы до тех пор, пока он не будет в допустимом диапазоне [1..nmax].
  4. Выводится сообщение Исходная матрица: и в цикле for i:=1 to n do выводятся элементы матрицы a.
  5. В условии if j>=i проверяется, что индекс j больше или равен i, иначе a[i,j]:=n-i+j+1 присваивается значение элемента матрицы a.
  6. Каждое значение элемента матрицы выводится с помощью write(a[i,j]:3).
  7. В конце программы ожидается нажатие клавиши с помощью readln.

Оцени полезность:

14   голосов , оценка 3.786 из 5
Похожие ответы