Выпуск 5 - Российский государственный профессионально ...

МЕТОДИКА
34
май 2012 / ИНФОРМАТИКА
for i := 1 to 5 do
writeln('Получился элемент
массива mas[',i,']=', mas[i]);
end.
Задание 3
program mas_3;
var mas : array[1..5] of integer;
i, N : integer;
begin
write('Введите максимальное
значение элемента массива N: ');
readln(N);
for i := 1 to 5 do
begin
mas[i] := random(N) + 1;
end;
writeln;
for i := 1 to 5 do
writeln('Получился элемент
массива mas[',i,']=', mas[i]);
end.
Задание 4
program mas_2;
var mas : array[1..5] of integer;
i : integer;
begin
for i := 1 to 5 do
begin
mas[i] := random(15-(-3)+1) - 3;
end;
writeln;
for i := 1 to 5 do
writeln('Получился элемент
массива mas[',i,']=', mas[i]);
end.
Задание 5
program mas_5;
var mas : array[1..5] of integer;
i : integer;
begin
for i := 1 to 5 do
begin
mas[i] := i*i - i;
end;
writeln;
for i := 1 to 5 do
writeln('Получился элемент
массива mas[',i,']=', mas[i]);
end.
УЭ4 (материал для изучения новой темы)
Поиск элемента, соответствующего заданному
условию. Запоминание номера элемента.
Подсчет количества элементов, удовлетворяющих
условию
При обработке массивов часто встречается задача
поиска в массиве элемента 1 , соответствующего
некоторому условию: первого нулевого, первого ненулевого,
первого отрицательного и т.д. Возможен и
вариант, когда нужно найти не первый (“основной”)
элемент, соответствующий некоторому условию, а
второй по счету или же несколько таких элементов.
Кроме того, отдельно может ставиться задание, что
при наличии в массиве нескольких элементов, соответствующих
условию, требуется найти все такие
элементы либо достаточно найти любой из них.
Подобная задача решается путем полного перебора
элементов массива с проверкой соответствия
каждого очередного элемента заданному условию.
Если такое соответствие достигнуто, необходимо
(в зависимости от задания) запомнить (сохранить
в отдельной переменной) номер (индекс) найденного
элемента либо вывести его на печать. Далее,
в зависимости от задания, можно или прекратить
просмотр массива (если достаточно найти первый
требуемый элемент), или продолжить перебор элементов,
чтобы найти другие элементы, удовлетворяющие
заданному условию.
Поиск первого элемента, соответствующего
условию
Для решения этой задачи может быть использован
цикл for, обеспечивающий полный перебор элементов
массива. Но при достижении первого же подходящего
элемента массива надо досрочно прервать этот
цикл, не просматривая оставшиеся элементы.
Вопрос учащимся: почему необходимо досрочно
прервать цикл?
В некоторых языках программирования для прерывания
цикла предусмотрены специальные операторы.
В некоторых современных версиях языка Паскаль реализован
оператор break, а в более старых версиях Паскаля
досрочное прерывание цикла можно произвести,
используя оператор безусловного перехода goto на первый
же оператор
после завершающего
цикл слова
end. При этом цикловая
переменная
сохраняет свое
последнее значение
и далее может
быть использована
как результат
решения задачи.
Пример
Найти в одномерном
целочисленном
массиве и
вывести на экран
номер первого
нулевого элемента
(просмотр массива
произвести с
его начала):
Нет
Начало
Ввод массива
mas[]
i = 1 to 10
mas[i] = 0
Вывод
элемента
mas[i]
Конец
1
Очевидно, что для решения такой задачи достаточно
определить номер (индекс) элемента, тогда как сам этот
элемент можно при необходимости извлечь из исходного
массива по его индексу. Но можно аналогичным способом
запоминать в отдельной переменной само значение найденного
элемента.
Да