Массивы.

Массивы – это набор элементов определённого типа. В этой задаче в качестве массива выступает квадратная матрица дробных чисел.

 

    

Описание: Эта программа запрашивает у пользователя матрицу (массив чисел). Выводит её на экран. Находит на её главной диагонали максимальное число и сумму элементов главной диагонали этой матрицы. В комментариях к тексту программы приведены дополнительные сведения о конкретных процедурах и функциях.

 

Текст программы:

 

program Program5;

uses

  Crt;

type

  XArray = array [1..50, 1..50] of real; {Описание типа массива X}

var

  i, j, n, k, imax, jmax:integer;

  X: XArray; {Использование описанного выше типа массива X для описания переменной X – массива чисел}

  Sum, Max: real;

begin clrscr;

{ Ввод массива}

Write('Введите размер квадратной матрицы X  n = '); Readln(n);

 

for i := 1 to n do {Цикл по i – по строкам матрицы}

       for j := 1 to n do {Вложенный цикл по j – по столбцам матрицы}

  begin

    Write('Введите X[ ',i,', ',j,'] = ');

    Readln(X[i,j]);

  end;

 

{Показ массива}

Writeln(' Набранная матрица: ');

i:=1;

while i<=n do

  begin

  for j := 1 to n do

    Write(X[i, j]:6:2,' ');

  Writeln;

  i := i + 1;

  end;

{Подсчёт суммы на главной диагонали и поиск максимального значения}

Max := X[1,1];

imax := 1;

jmax := 1;

Sum := 0;

for i := 1 to n do

  begin

    Sum := Sum + X[i,i];

    if Max < X[i,i] then

    begin

    Max:= X[i,i];

    imax:=i;

    jmax:=i;

    end;

  end;

{Вывод результатов выполнения программы}

Writeln(' Xmax[ ',imax,', ',jmax,'] = ',Max:8:2);

Writeln(' Сумма чисел на главной диагонали: ',Sum:8:2);

{Ожидание нажатие клавиши перед закрытием программы – для просмотра результатов}

Writeln(' Нажмите любую клавишу для завершения …‘);

Readkey;

end.

 

'Загрузить текст программы'

 

Примечания:

• Количество элементов массива (n) не может быть больше описанного для переменной X (n<50).
• Поскольку требуется найти максимальное число и сумму не главной диагонали, вложенный цикл не требуется, а используется запись X[i,i].

 

Попробуйте поэкспериментировать с текстом программы для лучшего понимания:

• Попробуйте выполнить те же операции с элементами матрицы, но не на главной, а, например, на обратной диагонали (для этого случая также можно не использовать вложенный цикл).
• Попробуйте найти минимальное число.
• Оцените удобство использования оператора цикла for, заменив его на какой-нибудь другой оператор цикла (while, repeat).

 

Посмотрите на изменения в выполнении программы после каждого изменения её текста.

'К списку тем'     'Версия для печати'