Комментарии к программе - Pascal ABC

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

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

Решение задачи: «Комментарии к программе»

textual
Листинг программы
Program tub;  // Заголовок программы
const t=20;   //Объявляем константу t=20
var a:array[1..t,1..t] of integer;  //Объявляем двумерный массив а[1..20,1..20] из целых чисел
    m,n,i,j,k,mx,imx : integer;     // Объявляем переменные
begin
     randomize;      //Инициализируем генератор случайных чисел
 
     repeat          //Оператор цикла для проверки условия ввода данных
           write('Количество строк от 2 до ',t,' m=');
           readln(m);  //Вводим m
     until m in [2..t]; //если m входит в диапазон [2..t=20], то программа
                        // переходит к следующей строке программы, иначе обратно
                        // возвращается в начало цикла
 
     repeat             // Аналогичная ситуация, что и предыдущем цикле
           write('Количество столбцов от 2 до ',t,' n=');
           readln(n);
     until n in [2..t];
 
     //заполняем массив а[m,n]
     for i:=1 to m do   // строки
     begin
          for j:=1 to n do       // столбцы
          begin
               a[i,j]:=random(50);  //случайными целыми числами из интервал 0..(50-1)
               write(a[i,j]:4);     // и тут же выводим на печать
          end;
          writeln;  //напечатав строку массива, переходим на новую строку экрана для печати
     end;
     //Находим в какой строке находится максимальное количество нечетных элементов
     mx:=0;
     for i:=1 to m do
     begin
          k:=0;
          for j:=1 to n do
              if odd(a[i,j]) then inc(k);  //если элемент в строке нечетный,
                                           //то k увеличиваем на 1
          if k>mx then  //Если количество нечетных элементов в последней считанной
          begin         //строке больше, чем в предыдущей, то
               mx:=k;  // присваиваем последнее значение k переменной mx
               imx:=i; //а также номер строки
          end;
     end;
     write('Максимальное количество нечетных=',mx,' в стороке ',imx)
end.

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

  1. Объявляем программу tub и заголовок программы.
  2. Объявляем константу t=20.
  3. Объявляем двумерный массив а[1..20,1..20] из целых чисел.
  4. Объявляем переменные m,n,i,j,k,mx,imx.
  5. Используем оператор цикла repeat для проверки условия ввода данных.
  6. Вводим m и проверяем, входит ли m в диапазон [2..t].
  7. Повторяем шаг 6, пока m удовлетворяет условию.
  8. Используем оператор цикла repeat для повторения предыдущего шага.
  9. Вводим n и проверяем, входит ли n в диапазон [2..t].
  10. Повторяем шаг 9, пока n удовлетворяет условию.
  11. Заполняем массив а[m,n] случайными целыми числами из интервал 0..(50-1).
  12. Находим в какой строке находится максимальное количество нечетных элементов.
  13. Если количество нечетных элементов в последней считанной строке больше, чем в предыдущей, то присваиваем последнее значение k переменной mx.
  14. Выводим на печать максимальное количество нечетных элементов и номер строки.

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


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

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

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