Упражнение 4
Одномерные массивы
Пример 1: Требуется найти максимальный элемент одномерного массива и его номер по порядку следования в массиве. Представить алгоритм задачи в виде блок-схемы и написать по ней программу.
Решение:
Алгоритм поиска: вводим переменную Mах, в которую записываем 1-ый элемент массива. Затем в цикле сравниваем каждый последующий элемент с Mах. Если число, хранящееся в текущем элементе, больше хранящегося в Mах, то число из текущего элемента записываем в Mах.
Рекомендуется перед написанием программы составить таблицу идентификаторов.
№ |
Наименование переменной |
Обозначения в программе
|
1 |
Имя массива |
х |
2 |
Размер массива |
N |
3 |
Индекс массива |
i |
4 |
Максимальный элемент |
max |
5 |
Номер максимального элемента |
k |
Программа поиска максимального элемента одномерного массива и его номера.
program PR6;
var
х: array[1..100] of integer;
k, max, n, i: integer;
Begin
Writeln (‘ввести количество элементов массива n’);
readln (n);
for i:=1 to n do
readln (х[i]); {ввод элементов массива }
max:=х[1];
for i:=1 to n do
if х[i]>max then
begin
max:=х[i];
k:=i;
end;
writeln(’ max = ’ , max , ’ k =’ , k);
end.
Блок-схема алгоритма поиска максимального элемента одномерного массива и его номера представлена на рис.17.
Блок 2– ввод количества элементов одномерного массива.
Блок 3 – начало цикла, в котором будут вводиться элементы одномерного массива.
Блок 4 – ввод элементов одномерного массива в цикле.
Блок 5 – значение первого элемента одномерного массива присваивается максимальному элементу.
Блок 6 – начало цикла, в котором в блоке 7 проверяется условие максимального элемента одномерного массива и в блоке 8 фиксируется значение и номер максимального элемента одномерного массива.
В блоке 9 – выводится максимальный элемент одномерного массива и его номер.
Рис. 17. Алгоритм поиска максимального элемента одномерного массива и его номера
Двумерные массивы
Пример 2: Для двумерного массива, состоящего из N строк и М столбцов, найти сумму элементов 3-столбца.
Решение: Таблица идентификаторов.
№ |
Наименование переменной |
Обозначения в программе |
1 |
Имя массива |
a |
2 |
Количество строк в массиве |
n |
3 |
Количество столбцов в массиве |
m |
4 |
Индекс строки |
i |
5 |
Индекс столбца |
j |
6 |
Сумма элементов 3 столбца |
s |
Программа поиска суммы элементов 3-столбца двумерного массива.
program PR6;
var
a: array[ 1.. 10, 1..10] of integer;
s, i, j, n, m :integer;
begin
writeln(’ввести количество строк- n и столбцов-m’);
readln(n, m);
for i:=l to n do
for j:=l to m do
begin
writeln(’ввести элемент массива a[’,i,’,’,j,’]=’);
readln (a[i,j],); {ввод элемента массива}
writeln(a[i,j]); {вывод элемента массива}
end;
s:=0;
for i:=1 to n do
s:=s+a[ i, 3]; {сумма элементов 3 столбца}
writeln(’s=’,s, );
end.