Пример 2.
{
Инициализация
массива выполняется с использованием
генератора равномерно-распределенных
чисел}
Program Ex2;
Uses Crt;
Const
{Определение размерности массива}
N=3; M=5;
Type
Mas=Array[1..N, 1..M] of Real;
Var
X:Mas;
i, j, Imax, Jmax: Integer;
Xmax: Real;
{Для поиска максимального элемента вводятся следующие переменные:}
{Xmax – значение максимального элемента; }
{Imax – строка максимального элемента; }
{Jmax – столбец максимального элемента}
Begin
{Инициализация массива}
{ Randomize – процедура изменения базы генерации случайных чисел}
Randomize;
For i:=1 to N do
For j:=1 to M do
{Генерация случайных чисел в диапазоне [-5;5]}
X[i,j]:=Random(100)/10-5;
{Поиск максимального элемента}
Xmax:=X[1,1];
Imax:=1; Jmax:=1;
For i:=1 to N do
For j:=1 to M do
If X[i,j]>Xmax then
begin
Xmax:=X[i,j];
Imax:=i; Jmax:=j
end;
{Вывод исходного массива и результатов поиска}
ClrScr;
Writeln(‘Исходный массив:’);
For i:=1 to N do
begin
For j:=1 to M do Write (X[i,j]:6:2);
Writeln
end;
Writeln;
Writeln(‘Максимальный элемент массива=’, Xmax);
Writeln(‘Строка максимального элемента массива=’,Imax);
Writeln(‘Столбец максимального элемента массива=’,Jmax)
End.
Вариант 3.
{ Инициализация массива выполняется с использованием типизированной константы-массив}
P
rogram
Ex3;
Uses Crt;
Const
{Определение размерности массива}
N=3; M=5;
{Обьявление и инициализация массива}
X: Array[1..N,1..M] of Real = ((3.5, 5.5, 3.5, 64.39, 4.5),
(7.34, 6.45,7.67, 4.67,12.34),
(12.23, 3.45, 2.45, 5.4, 6.77));
Var
i, j, Imax, Jmax: Integer;
{Для поиска максимального элемента вводятся следующие переменные:}
{Imax – строка максимального элемента; }
{Jmax – столбец максимального элемента}
Begin
{Поиск максимального элемента}
Imax:=1; Jmax:=1;
For i:=1 to N do
For j:=1 to M do
If X[i,j]>X[Imax, Jmax] then
begin
Imax:=i;
Jmax:=j
end;
{Вывод исходного массива и результатов поиска}
ClrScr;
Writeln(‘Исходный массив:’);
For i:=1 to N do
begin
For j:=1 to M do Write (X[i,j]:6:2);
Writeln
end;
Writeln;
Writeln(‘Максимальный элемент массива=’, X[Imax,Jmax]);
Writeln(‘Строка максимального элемента массива=’,Imax);
Writeln(‘Столбец максимального элемента массива=’,Jmax)
End.
Задание №1
Дана
матрица
размерности
.
Найти сумму элементов матрицы,
расположенных в строках с отрицательным
элементом на главной диагонали и
произведение элементов, расположенных
в строках с отрицательным элементом в
последнем столбце. (Главную диагональ
матрицы образуют элементы, для которых
индекс строки i равен
индексу столбца j. Например,
элементы
составляют главную диагональ матрицы
размерности
).
Задание №2
Дана матрица размерности . Если ниже главной диагонали матрицы нет ни одного отрицательного элемента, изменить матрицу, умножив каждый ее элемент на находящийся с ним в одной строке элемент главной диагонали, иначе каждый элемент матрицы умножить на максимальный элемент соответствующей строки. (Определение главной диагонали матрицы см. задание №1).
Задание №3
Дана
матрица
размерности
.
Определить номера столбцов, для которых
знаки элементов не совпадают. Определить
номера строк, элементы которых имеют
совпадающие значения. Подсчитать
количество таких строк и столбцов.
Задание №4
Дана
матрица
размерности
.
Построить новые матрицы
и
по следующему правилу:
,
где
Задание №5
По векторам
размерности
построить матрицу
размерности
с элементами:
где
Задание №6
Дана матрица размерности . Расположить элементы матрицы так, чтобы на главной диагонали были максимальные элементы строк (путем обмена соответствующих элементов строк). (Определение главной диагонали матрицы см. задание №1).
Задание №7
Дана
матрица
размерности
.
Расположить элементы матрицы так, чтобы
на побочной диагонали были минимальные
элементы столбцов (путем обмена
соответствующих элементов столбцов).
(Побочную диагональ матрицы образуют
элементы, для которых индекс строки i
соответствует индексу столбца j,
полученному по следующему правилу
j=n-i+1.
Например, элементы
составляют побочную диагональ матрицы
размерности
).
Задание №8
Дана матрица размерности . Определить номера элементов строк матрицы, сумма которых со следующим элементом той же строки максимальна. Определить номера элементов столбцов матрицы, произведение которых с предыдущим элементом того же столбца минимально.
Задание №9
Дан массив размерности . Выбрать в каждой строке, а затем и в каждом столбце по одному элементу таким образом, чтобы сумма была минимальной.
Задание №10
Дан массив размерности . Найти минимальный элемент среди элементов, расположенных ниже главной диагонали. (Определение главной диагонали см. задание №1).
Задание №11
Дана матрица размерности . Найти максимум среди сумм модулей элементов диагоналей, параллельных побочной диагонали матрицы. (Определение побочной диагонали см. задание №7).
Задание №12
Дана матрица размерности . Составить программу проверки выполнения следующих условий:
1) для всех
выполняется
условие
;
2) соответствует
ли расположение элементов следующему
правилу: сначала идет
элементов 1-ой строки; затем
элемент 2-ой строки, начиная со второго
элемента, и т.д. (в последней
-ой
строке есть только
-ый
элемент; все остальные элементы матрицы
равны нулю);
3) соответствует ли расположение элементов следующему правилу: сначала идет элементов 1-ой строки; затем элемент 2-ой строки, начиная с первого элемента, и т.д. (в последней -ой строке есть только 1-ый элемент; все остальные элементы матрицы равны нулю).
Задание №13
Вычислить
значения элементов массива
размерности
,
если
,
(
;
;
).
В полученном массиве найти минимальный элемент и его местоположение.
Задание №14
Дан
одномерный массив
.
Найти
,
где
;
;
,
.
Задание №15
Расстояние
между k-ой и i-ой
строками матрицы
размерности
определяется как
.
Найти номер строки, максимально удаленной
от первой строки матрицы
.
Задание №16
Заполнить матрицу размерности следующим образом:
1
2
3
4
на главной и побочной диагоналях “нули”, сектор 1 заполнить “единицами”, сектор 2 - “двойками”; сектор 3 - “тройками”; сектор 4 - “четверками”. (Определение главной и побочной диагоналей см. задание №1,7).