Язык программирования Pascal. Регулярные типы данных. Васильев В.В - 16 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

16
положенных ниже главной диагонали.
♣ При решении задач на поиск нужных элементов, расположенных ниже
(выше) главной (побочной) диагонали, часто бывает достаточно организовать
два вложенных цикла. При этом границы изменения индексов вложенного
цикла зависят от текущего значения параметра внешнего цикла.
Введем константы m=6 и n=9, хранящие количество строк и столбцов мат-
рицы. Организуем поиск наибольшего (max) и наименьшего (min) значений
элементов матрицы A, расположенных ниже главной диагонали. Вначале при-
своим max и min значение первого элемента a
21
из нужной зоны. Параметр
внешнего цикла i будет менять от 3 до m (наименьшее значение из числа строк
и столбцов), a параметр внутреннего цикла j будет менять от 1 до i-1. В тело
цикла включим два условных оператора, присваивающих max (min) значение
очередного элемента матрицы, если последний больше (меньше) текущего зна-
чения max (min). По завершению работы циклов найдем среднее арифметиче-
ское max и min. ♣
Program Sr_arifm;
Uses crt;
Const m=6; n=9;
Var i,j:integer; min,max:real; a:array[1..m,1..n] of
real;
Begin
Textbackground(7); Textcolor(blue); Clrscr;
writeln('Введите элементы вещественной матрицы размера ',m,'x',n);
for i:=1 to m do
for j:=1 to n do read(a[i,j]);
{------------------------------------------------------}
min:=a[2,1]; max:=min;
for i:=3 to m do
for j:=1 to i-1 do
begin
if a[i,j]<min
then min:=a[i,j];
if a[i,j]>max
then max:=a[i,j];
end;
writeln('Среднее арифметическое наибольшего и наименьшего значений элемен -
тов ,');
writeln('расположенных ниже главной диагонали равно ',
(max+min)/2:6:2);
readkey
End.{Sr_arifm}
Рассмотрим задачу на преобразование матрицы по указанному правилу.
Результат преобразования будет сохранен в другой матрице.
Задача 3. Будем называть соседями элемента с индексами i,j некоторой

Страницы