Поиск максимума и минимума в двумерном массиве на Pascal: решение ошибки и расширение функционала

Delphi , Синтаксис , Массивы

Поиск максимума и минимума в двумерном массиве на Pascal

В данной статье мы рассмотрим пример программы на языке Pascal, которая заполняет двумерный массив, а затем находит в нем максимальное и минимальное значения. В процессе решения возникла ошибка, которую мы обсудим и исправим, а также расширим функционал программы для поиска минимального значения.

Инициализация программы

Программа начинается с объявления двумерного массива a размером 21x21 целых чисел, а также переменных m, i, j для целых чисел.

program Ex2DimArray;
var
    a: array [0..20, 0..20] of integer;
    m, i, j: integer;
begin
    // Заполнение массива
    for i := 0 to 19 do
        for j := 0 to 19 do
            a[i,j] := i * j;

    // Поиск максимального значения
    m := 0;
    for i := 0 to 19 do
        for j := 0 to 19 do
            if m <= a[i,j] then
                m := a[i,j];

    // Вывод массива
    for i := 0 to 19 do
    begin
        for j := 0 to 19 do
            Write(a[i,j]:2, ' ');
        Writeln;
    end;

    // Вывод максимального значения
    Writeln('Maximum is ', m);
end.

Ошибка и ее исправление

В исходном коде программы была допущена опечатка: вместо a[i,j] было написано a[i.j]. Это привело к ошибке, так как в Pascal для обращения к элементам массива используются квадратные скобки, а не точки. Исправление заключалось в замене . на [].

Подтвержденный ответ

После исправления ошибки программа корректно работает, заполняя массив и выводя максимальное значение.

Расширение функционала

Для добавления функционала по поиску минимального значения в массиве, необходимо сделать следующие изменения:

1. Инициализация переменной m значением первого элемента массива, то есть m := a[0,0].
2. Использовать обратное неравенство m >= a[i,j] для поиска минимального значения.

// Поиск минимального значения
m := a[0,0];
for i := 0 to 19 do
    for j := 0 to 19 do
        if m >= a[i,j] then
            m := a[i,j];

// Вывод минимального значения
Writeln('Minimum is ', m);

Заключение

Мы рассмотрели, как исправить ошибку в программе на Pascal и добавили функционал для нахождения минимального значения в двумерном массиве. Это позволит использовать программу для более широкого круга задач, связанных с анализом данных в двумерных массивах.

Создано по материалам из источника по ссылке.

Данный текст описывает процесс создания программы на Pascal, которая работает с двумерным массивом: заполняет его, находит и выводит максимальное и минимальное значения, а также содержит описание и исправление найденной ошибки и добавление функции поиска

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Массивы ::