Найти максимальное и минимальное значения в двумерном массиве - Free Pascal
Формулировка задачи:
Нужно добавить в программу max и min значение матрицы а.
Program lab8; Var b: array[1..3,1..4] of integer; a: array[1..3,1..4] of real; i,j,bmin,bmax:integer; Begin randomize; Writeln('Ishodnaya matrica B'); for i:=1 to 3 do begin for j:=1 to 4 do begin b[i,j]:=random(10); write(b[i,j]:2); end; writeln; end; readln; bmax:=b[1,1]; bmin:=b[1,1]; for i:=1 to 3 do begin for j:=1 to 4 do begin if b[i,j]> bmax then bmax:=b[i,j]; if b[i,j]< bmin then bmin:=b[i,j]; end; end; writeln('bmax=',bmax,'':3,'bmin=',bmin); readln; for i:=1 to 3 do begin for j:=1 to 4 do begin a[i,j]:=(2*b[i,j]+bmin)/bmax; write(a[i,j]:5:2); end; writeln; end; readln; end.
Решение задачи: «Найти максимальное и минимальное значения в двумерном массиве»
textual
Листинг программы
uses crt; Var b: array[1..3,1..4] of integer; a: array[1..3,1..4] of real; i,j,bmin,bmax:integer; amin,amax:real; Begin clrscr; randomize; Writeln('Ishodnaya matrica B'); for i:=1 to 3 do begin for j:=1 to 4 do begin b[i,j]:=random(10); write(b[i,j]:2); end; writeln; end; bmax:=b[1,1]; bmin:=b[1,1]; for i:=1 to 3 do for j:=1 to 4 do begin if b[i,j]> bmax then bmax:=b[i,j]; if b[i,j]< bmin then bmin:=b[i,j]; end; writeln('bmax=',bmax,' ':3,'bmin=',bmin); writeln('Matrica A'); for i:=1 to 3 do begin for j:=1 to 4 do begin a[i,j]:=(2*b[i,j]+bmin)/bmax; write(a[i,j]:5:2); end; writeln; end; amax:=a[1,1]; amin:=a[1,1]; for i:=1 to 3 do for j:=1 to 4 do begin if a[i,j]> amax then amax:=a[i,j]; if a[i,j]< amin then amin:=a[i,j]; end; writeln('amax=',amax:0:2,' ':3,'amin=',amin:0:2); readln end.
Объяснение кода листинга программы
- Объявлены двумерные массивы b и a, а также переменные i, j, bmin, bmax, amin, amax типа integer и переменная amax типа real.
- Заполнение массива b случайными значениями от 1 до 10.
- Вывод матрицы b на экран.
- Инициализация bmax и bmin значением первого элемента первой строки матрицы b.
- Перебор всех элементов матрицы b и обновление bmax и bmin при необходимости.
- Вывод на экран максимального и минимального значения матрицы b.
- Заполнение матрицы a значениями, полученными путем усреднения соответствующих значений матрицы b с учетом минимального и максимального значений.
- Вывод матрицы a на экран.
- Перебор всех элементов матрицы a и обновление amax и amin при необходимости.
- Вывод на экран максимального и минимального значения матрицы a.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д