Цель работы:
1. Построение схем алгоритмов с использованием вложенных циклов;
2. Разработка программ с использованием двумерных массивов
Типовой пример
Составить схему алгоритма и программу определения сумм элементов в каждой строке матрицы М={mij}, i=1,n; j=1,k, где n - число строк, k - число столбцов матрицы, mij - целые числа из диапазона: от 0 до 500. Записать полученные значения сумм в одномерный массив SUM, а затем вывести их на экран дисплея. Числа в массив М занести с помощью функции Random.
Определить и вывести на экран номер строки с минимальным значением суммы.
Схема алгоритма
 |
|
|
 | |||||||||
 | |||||||||
 | |||||||||
 | |||||||||
 | |||||||||
Текст программы
Uses crt;
{ Описание данных}
Var M:array[1..50,1..100]of integer;
Sum:array[1..50] of longint;
n,k,i,j,imin:integer;
Min:longint;
BEGIN clrscr;
{ Ввод данных}
writeln(' Введите число строк и столбцов');
readln(n,k);
Randomize; { Стандартная процедура см. теорию}
{ Заполнение матрицы случайными числами}
for i:=1 to n do
for j:=1 to k do
M[i,j]:=Random(500);
writeln(' Элементы заполненной матрицы');
for i:=1 to n do
begin
for j:=1 to k do
write(M[i,j]:4); writeln;
end;
writeln(' Сумма элементов в каждой строке');
write(' Hомера строк: ');
for i:=1 to n do
write(i,' ');writeln;
write(' Сумма в строке: ');
for i:=1 to n do
begin
Sum[i]:=0;
for j:=1 to k do
Sum[i]:=Sum[i]+M[i,j];
write(Sum[i], ' ');
end;writeln;
{ Поиск минимального значения}
Min:=Sum[1]; imin:=i;
for i:=1 to n do
if Sum[i] <= Min then
begin
Min:=Sum[i]; imin:=i;
end;
writeln(' Минимальная сумма = ',Min,' в строке ',imin);
readln;
END.
Варианты заданий
1. В прямоугольной матрице размером Т*М, имеющей имя МАТР
содержаться целые числа. Т - число строк, М - число столбцов. Ввести
элементы матрицы с клавиатуры. Определить и вывести на экран сумму
элементов в каждой строке. Определить строку с максимальным значением
этой суммы и вывести ее номер на экран.
2. В прямоугольной матрице размером М*Т, имеющей имя МАS
содержаться целые числа. М - число строк, Т - число столбцов. Ввести
элементы матрицы с клавиатуры. Определить и вывести на экран
сумму элементов в каждой строке. Определить строку с минимальным
значением этой суммы и вывести ее номер на экран.
3. В прямоугольной матрице размером К*М, имеющей имя МАTR содержаться целые числа. К- число строк, М- число столбцов. Ввести элементы матрицы с клавиатуры. Определить и вывести на экран сумму положительных элементов в каждой строке. Определить строку с максимальным значением этой суммы и вывести ее номер на экран.
4. В прямоугольной матрице размером М*К,, имеющей имя МАT содержаться целые числа. М- число строк, К- число столбцов. Ввести элементы матрицы с клавиатуры. Определить и вывести на экран сумму отрицательных элементов в каждой строке. Определить строку с максимальным значением этой суммы и вывести ее номер на экран.
5. В прямоугольной матрице размером L*М, имеющей имя МАTR содержаться целые числа. L- число строк, М- число столбцов. Ввести элементы матрицы с клавиатуры. Определить и вывести на экран сумму положительных элементов в каждой строке. Определить строку с минимальным значением этой суммы и вывести ее номер на экран.
6. В прямоугольной матрице размером М*К, имеющей имя МАT содержаться целые числа. М- число строк, К- число столбцов. Ввести элементы матрицы с клавиатуры. Определить и вывести на экран сумму отрицательных элементов в каждой строке. Определить строку с минимальным значением этой суммы и вывести ее номер на экран.
7. В прямоугольной матрице размером М*К, имеющей имя МА содержаться целые числа. М- число строк, К- число столбцов. Ввести элементы матрицы с клавиатуры. Определить и вывести на экран сумму элементов в каждом столбце. Определить столбец с максимальным значением этой суммы и вывести его номер на экран.
8. В прямоугольной матрице размером М*К, имеющей имя М содержаться целые числа. М- число строк, К- число столбцов. Ввести элементы матрицы с клавиатуры. Определить и вывести на экран сумму элементов в каждом столбце. Определить столбец с миниимальным значением этой суммы и вывести его номер на экран.
9. В прямоугольной матрице размером М*К,, имеющей имя ММ содержаться целые числа. М- число строк, К- число столбцов. Ввести элементы матрицы с клавиатуры. Определить и вывести на экран сумму положительных элементов в каждом столбце. Определить столбец с максимальным значением этой суммы и вывести его номер на экран.
10. В прямоугольной матрице размером М*К,, имеющей имя МАМ содержаться целые числа. М- число строк, К- число столбцов. Ввести элементы матрицы с клавиатуры. Определить и вывести на экран сумму отрицательных элементов в каждом столбце. Определить столбец с миниимальным значением этой суммы и вывести его номер на экран.
11. В квадратной матрице размером К*К, имеющей имя МА содержаться целые числа. К- число строк и столбцов. Ввести элементы матрицы с клавиатуры. Определить и вывести на экран сумму положительных элементов в каждом столбце. Определить столбец с минимальным значением этой суммы и вывести его номер на экран.
12. В квадратной матрице размером Т*Т, имеющей имя МКА, содержаться целые числа. Т - число строк и столбцов. Ввести элементы матрицы с клавиатуры. Определить и вывести на экран сумму отрицательных элементов в каждом столбце. Определить столбец с максимальным по модулю значением этой суммы и вывести его номер на экран.
13. В квадратной матрице размером Т*Т, имеющей имя МКА, содержаться целые числа. Т - число строк и столбцов. Ввести элементы матрицы с клавиатуры. Определить и вывести на экран число элементов равных 1 в каждой строке. Определить строку с максимальным числом единиц и вывести ее номер на экран.
14. В квадратной матрице размером Т*Т, имеющей имя МКА, содержаться целые числа. Т - число строк и столбцов. Ввести элементы матрицы с клавиатуры. Определить и вывести на экран сумму отрицательных элементов в каждом столбце. Определить столбец с минимальным по модулю значением этой суммы и вывести его номер на экран.
15. В квадратной матрице размером М*М, имеющей имя МКМ, содержаться целые числа. М - число строк и столбцов. Ввести элементы матрицы с клавиатуры. Определить и вывести на экран число элементов равных 1 в каждой строке. Определить строку с минимальным числом единиц и вывести ее номер на экран.
16. В квадратной матрице размером М*М, имеющей имя МНМ, содержаться целые числа. М - число строк и столбцов. Ввести элементы матрицы с клавиатуры. Определить и вывести на экран число элементов равных 0 в каждой строке. Определить строку с минимальным числом нулевых элементов и вывести ее номер на экран.
17. В квадратной матрице размером К*К, имеющей имя Ма, содержаться целые числа. К - число строк и столбцов. Ввести элементы матрицы с клавиатуры. Определить и вывести на экран число элементов равных 0 в каждой строке. Определить строку с максимальным числом нулевых элементов и вывести ее номер на экран.
18. В квадратной матрице размером М*М, имеющей имя МКМ, содержаться целые числа. М - число строк и столбцов. Ввести элементы матрицы с клавиатуры. Определить и вывести на экран минимальный элемент в каждой строке. Определить строку с максимальным значением из найденных минимумов и вывести ее номер на экран.
19. В квадратной матрице размером М*М, имеющей имя МКМ, содержаться целые числа. М - число строк и столбцов. Ввести элементы матрицы с клавиатуры. Определить и вывести на экран максимальный элемент в каждой строке. Определить строку с минимальным значением из найденных максимумов и вывести ее номер на экран.
20. В прямоугольной матрице размером М*Т, имеющей имя МТМ, содержаться целые числа. М - число строк Т- число столбцов. Ввести элементы матрицы с клавиатуры. Определить и вывести на экран минимальный элемент в каждой строке. Определить строку с максимальным значением из найденных минимумов и вывести ее номер на экран.
