end;
Sum:=0;
for i:=1 to M do for j:=1 to N do begin
if odd(i) then Sum:=Sum+B[i,j]; end; Edit5.Text:=FloatToStr(Sum);
end;
7. Запустить проект на выполнение. Результат выполнения программы показан на рис. 5.4.
Рис. 5.4. Результат выполнения программы для контрольного примера 5.3
5.3. Содержание отчета
Отчет должен содержать ответы на контрольные вопросы, тексты программ и результат решения соответствующего варианта.
5.4.Контрольные вопросы
1.Приведите определение массива.
2.Какие данные могут быть элементами массива?
3.С какой целью применяется компоненты StringGrid и DrawGrid?
80
4.Какие основные свойства компонентов StringGrid и DrawGrid?
5.В каких разделах программы и модуля описываются локальные и глобальные переменные?
5.5. Варианты заданий
Вариант 1
Задание 1. Сформировать матрицу А размерности m ×n , для которой
|
cos(i2 |
+ n j) |
i < j |
|
|
|
|
|
|
|
|
aij = |
2i (j +1) |
i = j . |
|
|
ln(i j) |
i > j |
|
|
|
|
|
Числа m и n вводятся с клавиатуры. |
|||
Задание 2. |
Написать программу, вычисляющую значение матрицы |
||
C = A + k B . Найти произведение всех элементов матрицы C (для вывода значения использовать компонент Edit). Элементы матриц A , B и параметр k вводятся с клавиатуры.
Задание 3*. Написать программу, вычисляющую произведение двух матриц произвольной размерности. Элементы матриц вводятся с клавиатуры в компонент StringGrid. Предусмотреть возможность ввода с клавиатуры количества строк и столбцов заданных матриц.
Вариант 2
Задание 1. Сформировать матрицу А размерности n ×n , для которой
|
|
j |
|
sin |
i + |
2 |
i < j |
|
|
|
|
|
|
|
i = j . |
aij = i j |
|
||
2 i + 1 |
j |
i > j |
|
|
|
|
|
|
|
|
|
Число n вводится с клавиатуры. |
|||
Задание 2. |
Задана вещественная матрица A размерности m ×n . Написать |
||
программу нахождения суммы элементов строки матрицы, в которой расположен
81
элемент с наименьшим значением. Предполагается, что этот элемент единственный. Элементы матрицы A и числа m и n вводятся с клавиатуры. Для вывода результата использовать компонент Edit.
Задание 3*. Написать программу, вычисляющую произведение двух матриц произвольной размерности. Элементы матриц вводятся с клавиатуры в компонент StringGrid. Предусмотреть возможность ввода с клавиатуры количества строк и столбцов заданных матриц.
Вариант 3
Задание 1. Сформировать матрицу А размерности n ×n , для которой
|
|
3 |
|
|
|
i − |
|
|
i < j |
|
1+ 1 |
|
||
|
|
|
j |
|
aij |
|
|
|
i = j . |
= 2 j |
|
|
||
|
tg(i + j) |
|
i > j |
|
|
|
|
|
|
Число n вводится с клавиатуры.
Задание 2. Дана вещественная матрица A размерности m ×n , все элементы которой различны. Написать программу нахождения номера столбца, в котором находится наибольшее количество отрицательных элементов. Элементы матрицы A и числа m и n вводятся с клавиатуры.
Задание 3*. Написать программу, вычисляющую произведение двух матриц произвольной размерности. Элементы матриц вводятся с клавиатуры в компонент StringGrid. Предусмотреть возможность ввода с клавиатуры количества строк и столбцов заданных матриц.
Вариант 4
Задание 1. Сформировать матрицу A размерности n ×n , для которой
82
|
|
3 ei |
|
|||
j |
− |
|
|
|
i < j |
|
|
|
7 |
||||
|
i |
|
|
|
||
|
|
|
|
i = j . |
||
aij = |
|
|
|
|
|
|
|
+ j |
|
||||
1 |
|
|
||||
sin2 i |
|
i > j |
||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Число n вводится с клавиатуры.
Задание 2. Для матрицы A размерности m ×n посчитать количество элементов меньше нуля и равных нулю. Элементы матрицы A и числа m, n
вводятся с клавиатуры. Для вывода результатов использовать компонент Edit. Задание 3*. Написать программу, вычисляющую произведение двух матриц
произвольной размерности. Элементы матриц вводятся с клавиатуры в компонент StringGrid. Предусмотреть возможность ввода с клавиатуры количества строк и столбцов заданных матриц.
Вариант 5
Задание 1. Сформировать матрицу А размерности m ×n , для которой
|
|
|
j |
2 |
−i |
2 |
|
|
||
|
sin |
|
|
|
|
|
i < j |
|||
|
|
|
|
|
|
|||||
|
|
|
|
|
|
i |
|
|
|
|
|
|
|
|
|
|
|
|
|||
aij |
|
|
|
|
|
|
|
|
|
i = j . |
= i, |
|
|
|
|
|
|
|
|
||
|
|
|
|
|
|
i j |
|
|
|
|
|
|
|
|
|
|
|
, i > j |
|||
|
arcsin |
|
||||||||
|
i + 2 j |
|||||||||
|
|
|
|
|
|
|
|
|
|
|
Числа m и n вводятся с клавиатуры.
Задание 2. Для заданной матрицы A [m , n] найти минимальный элемент (и его номер) и максимальный элемент (и его номер). Для вывода результатов использовать компонент Edit. Элементы матрицы A и числа m, n вводятся с клавиатуры.
Задание 3*. Написать программу, вычисляющую произведение двух матриц произвольной размерности. Элементы матриц вводятся с клавиатуры в компонент
83
StringGrid. Предусмотреть возможность ввода с клавиатуры количества строк и столбцов заданных матриц.
Вариант 6
Задание 1. Сформировать матрицу А размерности m ×n , для которой
|
|
|
|
|
|
|
(i + j) sin i, |
i < j |
|||||
|
|
|
|
|
|
|
1 |
|
|
|
|
i = j . |
|
aij = |
|
|
j |
, |
|
|
|
|
|
||||
3 |
i |
j |
|
|
||
|
|
, |
i > j |
|||
|
|
|
|
|
||
|
|
|
2 j |
|||
i |
+ |
|
|
|||
Числа m и n вводятся с клавиатуры. |
||||||
Задание 2. Для |
матрицы A размерности m ×n посчитать количество |
|||||
положительных элементов в каждом столбце. Элементы матрицы A и числа m, n
вводятся с клавиатуры. Для вывода результатов использовать компонент Edit. Задание 3*. Написать программу, вычисляющую произведение двух матриц
произвольной размерности. Элементы матриц вводятся с клавиатуры в компонент StringGrid. Предусмотреть возможность ввода с клавиатуры количества строк и столбцов заданных матриц.
Вариант 7
Задание 1. Сформировать матрицу А размерности n ×n , для которой
|
|
|
|
|
|
|
|
|
|
|
|
i < j |
|
|
|
ctgij, |
||||
a |
|
j |
|
|
i = j . |
|
ij |
= |
2 |
|
|||
|
|
|
|
|||
|
|
|
2i +5 j |
i > j |
||
|
|
|
||||
|
|
|
i |
2 |
|
|
|
|
|
|
|
||
Число n вводится с клавиатуры.
Задание 2. Найти матрицу, транспонированную относительно исходной. Предусмотреть ввод исходной матрицы различной размерности. Если исходная матрица квадратная (для размерности не более 3), то вычислить ее определитель.
84
В противоположном случае выдать сообщение 'Матрица не является квадратной или ее размерность больше 3'. Элементы матрицы вводятся с клавиатуры.
Задание 3*. Написать программу, вычисляющую произведение двух матриц произвольной размерности. Элементы матриц вводятся с клавиатуры в компонент StringGrid. Предусмотреть возможность ввода с клавиатуры количества строк и столбцов заданных матриц.
Вариант 8
Задание 1. Сформировать матрицу А размерности m ×n , для которой
|
|
|
|
|
|
sin(i + j), i < j |
|||
aij |
|
i = j |
. |
|
= 1, |
||||
|
|
|
i + j |
|
|
|
|
, i > j |
|
|
|
|
||
|
arctg |
2i +3 j |
||
|
|
|
|
|
Числа m и n вводятся с клавиатуры.
Задание 2. Задана вещественная квадратная матрица порядка n. Написать программу нахождения среднего арифметического наибольшего и наименьшего значений ее элементов. Элементы матрицы и число n вводятся с клавиатуры. Для вывода результата использовать компонент Edit.
Задание 3.* Написать программу, вычисляющую произведение двух матриц произвольной размерности. Элементы матриц вводятся с клавиатуры в компонент StringGrid. Предусмотреть возможность ввода с клавиатуры количества строк и столбцов заданных матриц.
85