Даны числа n и m. Создайте массив A[n][m] и заполните его змейкой - Pascal

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

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

Здравствуйте. Помогите пожалуйста неумехе. Плохо понимаю Pascal
Задания:

5)

Даны числа n и m. Создайте массив A[n][m] и заполните его змейкой (см. пример). P.S: первые 6 с http://informatics.mccme.ru/

Решение задачи: «Даны числа n и m. Создайте массив A[n][m] и заполните его змейкой»

textual
Листинг программы
uses crt;
  type mas=array[1..100,1.. 100] of integer;
  var a:mas;
      i,j,n,m:integer;
begin
  clrscr;
  write('n=m=');readln(n,m);
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          if i mod 2 =1 then
            a[i,j]:=(i-1)*m+j
            else a[i,j]:=i*m-j+1;
          write(a[i,j]:4);
        end;
      writeln;
    end;
  readln;
end.

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

  1. Объявляется переменная типа mas (массив), названная a.
  2. Объявляются переменные i, j, n и m типа integer.
  3. Очищается экран.
  4. Запрашивается у пользователя ввод значений переменных n и m.
  5. Выполняется вложенный цикл по переменным i и j от 1 до n и от 1 до m соответственно. 5.1. Если значение i делится на 2 с остатком равным 1:
    • Присваивается значение массиву a с индексами [i,j] равное выражению (i-1)*m+j. 5.2. В противном случае:
    • Присваивается значение массиву a с индексами [i,j] равное выражению i*m-j+1. 5.3. Выводится значение массива a с индексами [i,j], выровненное по ширине в 4 символа.
  6. Печатается символ перехода на новую строку.
  7. Ожидается ввод пользователя перед завершением программы. Этот код создает и заполняет двумерный массив A размером n на m элементов значениями, заполняя его по порядку для нечетных строк и в обратном порядке для четных строк.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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