Итак формулировка задачи такова «найти все четные элементы массива, вывести на экран, и подсчитать их количество».
Для начала определим, что такое четное число вообще? правильно, четными числами называются числа, которые делятся на 2 без остатка (иногда еще говорят кратны 2).
Теперь определимся как это реализовать. В паскале есть такой замечательный оператор mod, который нам как раз и необходим. Сей оператор отвечает за деление с остатком, а если быть точнее, применив данный оператор, вы получаете остаток от деления. Например 11 разделить на 2. Использовав mod мы получим в ответе число 1.
11/2 = 5 (остаток 1)
Теперь как это все записать в паскале. Пусть переменная х — это остаток
x := 11 mod 5
Вернемся к нашей задаче, где нас интересует нахождение четных элементов массива. Для ее решения нужно подойти к составлению кода логически .
Каков остаток при делении четного числа на 2? Верно, остаток всегда равен нулю. (Подробнее о четности вы можете прочесть в статье оператор div и оператор mod) То есть нам просто нужно использовать цикл с условием вида
if s[i] mod 2 = 0 then
Ну а теперь код всей задачи (как в помните нам еще было необходимо подсчитать количество четных чисел и вывести их всех на экран)
var i,x,y:integer;s:array [1..10] of integer;
begin
for i:=1 to 10 do
read(s[i]);
for i:=1 to 10 do
if s[i] mod 2=0 then begin
writeln (s[i]);
y:=y+1;
end;
writeln;
writeln(‘количество четных чисел = ‘,y)
end.
В программе Паскаль. Найти четные элементы массива
Ученик
(88),
закрыт
11 лет назад
Лось Филаретовый
Просветленный
(20328)
12 лет назад
нашел и посчитал:
var tbl:array[1..100]of integer;
x,n,k:integer;
begin
writeln(‘enigu kvanton de elementoj de tabelo’);
readln(n);
k:=0;
for x:=1 to n do begin
write(‘enigu ‘,x,’ elementon ‘);
readln(tbl[x]);
end;
writeln(‘para elementoj:’);
for x:=1 to n do begin
if tbl[x] mod 2=0 then begin
k:=k+1;
writeln(tbl[x]);
end;
end;
writeln(‘kvanto de para elementoj = ‘,k);
readln;
end.
Урок 23. Поиск элемента в массиве
Просмотров 3.1к. Обновлено 23 ноября 2020
Урок из серии: «Язык программирования Паскаль»
На этом уроке рассмотрим алгоритмы поиска элемента в одномерном массиве. Эти алгоритмы очень похожи на обработку последовательностей (поиск, выборка и т.д.).
Отличие заключается в том, что в массиве одновременно доступны все его компоненты. Такой доступ называется параллельным.
Рассмотрим несколько примеров.
Пример 1. Найти номера четных элементов.
Решение.
Для нахождения четных элементов необходимо просмотреть весь массив, и если будут попадаться четные элементы, то нужно выводить их на экран. Напишем процедуру, которая принимает в качестве входного параметра массив и выводит на экран нужные элементы.
Procedure Solve(m : myarray);
Var i: Integer;
Begin
For i:=1 To n Do
If m[i] Mod 2 = 0 Then Write(i:5);{если элемент четный, то вывести на экран}
End;
Пример 2. Есть ли отрицательный элемент в массиве?
Решение.
Для решения таких задач удобнее использовать циклы с условиями и составлять функции, результат которых имеет логический тип.
Начинаем с первого элемента (i = 1).
Пока не просмотрен последний (i<=n) и не найден отрицательный (m [i]>=0), будем переходить к следующему (inc (i)).
Таким образом, мы закончим просмотр в одном из двух случаев:
- первый — просмотрели все элементы и не нашли отрицательный, тогда i>n;
- второй — нашли нужный, при этом i<=n.
Напишем функцию, значение которой истина (True), если такой элемент есть, и ложь (False), если его нет.
Function Controll (m: myarray): Boolean; Var i : Integer; Begin i := 1; While (i<=n) And (m[i]>0) Do Inc(i); Control1:=(i<=n) End;
Пример 3. Найти номер последнего отрицательного элемента массива.
Решение.
Последний отрицательный — это первый отрицательный элемент, если начать просмотр с конца.
Если очередной элемент не является отрицательным, то нужно уменьшать значение текущего индекса, пока он не станет меньше номера первого элемента или не будет найден отрицательный элемент.
Таким образом, можно модифицировать предыдущую функцию. Но поскольку надо найти номер элемента, тип результата будем целым.
Договоримся, что если такого элемента нет, то значение функции будет равно 0.
Function Control2 (m: myarray): Integer;
Var i : Integer;
Begin
i:=n;
While (i>=1) And (m[i]>0) Do Des(i);
If i<1 Then Control2:=0
Else Control2:=i;
End;
Вы рассмотрели алгоритмы на поиск и выборку элементов в массиве.
На следующем уроке продолжим знакомиться с алгоритмами обработки одномерных массивов.
В данной статье я написал, что такое массивы в Паскале, и как их использовать благодаря языку программирования. Для примера, в конце статьи, написана простая программа, которая определяет четность числа и выводит из массива на экран четные числа.
Массив в Паскале (как и, почти, во всем программировании) — это набор переменных(или констант) одного типа. Массиву присваивается имя, как и переменной или константе. Набор переменных (констант) в массиве является конечным, то есть Вы должны указать, сколько переменных включает в себя массив, если он состоит из переменных, или указать все константы в него входящие, если он состоит из констант. Для доступа к конкретной переменной (констант) в массиве необходимо написать имя массива и в квадратных скобках указать порядковый номер переменной.
Пример объявления массива целых чисел в разделе констант:
const
int_num = (1,5,8,2,44,7,3,66,4,7,34,7896,23463456,23,1,85456,44354,9);Пример объявления массива целых чисел в разделе переменных:
var
int_number: array[1..1000] of integer;Чтобы обратится (записать значение) к массиву, необходимо указать, к какому конкретно элементу массива Вы хотите обратится:
int_number[587]:= 24545;Но если Вы хотите скопировать все значения массива number_1 в массив number_0, то можно записать так:
number_0:= number_1; {number_0[1]:=number_1[1], number_0[2]:=number_1[2], ...}Естественно для такой операции элементы массивы в Паскале должны иметь одинаковый тип.
Чтобы обработать большое количество элементов массива, для удобства используют циклы.
Например, цикл «for»:
for i:= 1 to 1000 do
begin
int_number[i]:=random(9); {Записываем случайное число}
end;Например, цикл «while»:
while i<=1000 do
begin
i:=i+1; {Увеличиваем счетчик на единицу}
int_nember[i]:=random(9); {Записываем случайное число}
end;Массивы могут быть многомерными.
Пример двумерного массива (матрица):
var
mat_num: array[1..100, 1..100] of real;Чтобы присвоить значения такому массиву необходимо уже два цикла, один будет вложен в другой:
for i1:=1 to 100 do
begin
for i2:=1 to 100 do
begin
mat_num[i1,i2]:=random(87)+sin(i1)*pi;
end;
end;Чтобы все стало лучше понятно, напишем программу, которая будет заносить в вывод массива только четные числа и выводить их на экран.
PROGRAM Chetnye_chisla; {Имя программы}
uses Crt; {Подключаем модуль Crt, необходимо для функции clrscr}
var {Раздел объявления переменных}
i,j: integer; {i- наши числа j- индекс массива}
ostatok: real; {Для проверки наличия остатка от деления}
ch_chisla: array[1..50] of integer; {Массив, в котором будут хранится четные числа}
BEGIN {Начало выполнения программы}
clrscr; {Для начала очищаем экран}
for i:=1 to 100 do {Начало цикла}
begin
ostatok:= i mod 2; {Определяем четность, делим число на 2}
if ostatok=0 then {Если нет остатка от деления, значить число четное}
begin
j:=j+1; {Увеличиваем индекс цикла на единицу}
ch_chisla[j]:=i; {Записываем четное число в массив}
write(i,' '); {Выводим на экран четное число и пробел}
end;
end;
readln; {Нужно чтобы увидеть результат - компьютер будет ждать нажатия "Enter"}
END. {Конец программы}Только зарегистрированные и авторизованные пользователи могут оставлять комментарии.
Информатика, 11 класс. Урок № 5.
Тема — Массивы. Типовые задачи обработки массивов
Перечень вопросов, рассматриваемых в теме: массивы, описание массивов, заполнение массивов, типовые задачи обработки массивов.
Глоссарий по теме: массив, элемент массива, размерность массива, индекс элемента массива, сортировка.
Основная литература по теме урока:
Л. Л. Босова, А. Ю. Босова. Информатика. Базовый уровень: учебник для 11 класса. — М.: БИНОМ. Лаборатория знаний, 2017
Дополнительная литература по теме урока:
– И. Г. Семакин, Т. Ю. Шеина, Л. В. Шестакова. Информатика и ИКТ. Профильный уровень: учебник для 11 класса. — М.: БИНОМ. Лаборатория знаний, 2012
– К. Ю. Поляков, Е. А. Еремин. Информатика. Углубленный уровень: учебник для 10 класса. В 2 ч. Ч. 2 — М.: БИНОМ. Лаборатория знаний, 2013
– Андреева Е. В. Программирование — это так просто, программирование — это так сложно. Современный учебник программирования. — М.: МЦНМО, 2015
– Молчанова С. И. Основы программирования. Турбо-Паскаль 7.0 для школьников и абитуриентов. — М.: «Аквариум»; ООО «Фирма «Издательство АСТ», 1999
Теоретический материал для самостоятельного изучения
Рассмотрим следующую задачу: ввести с клавиатуры 20 действительных чисел и вычислить их сумму, при этом каждое из чисел сохранить в памяти для последующей обработки.
Для решения этой достаточно простой задачи мы будем вынуждены ввести 20 имен переменных, что, естественно, очень неудобно. Но ведь чисел может быть гораздо больше, чем 20!
Основное предназначение современных компьютеров — обработка большого количества данных. Очень сложно каждой переменной при этом давать собственное имя и не запутаться. Выходом их этой ситуации является использование более сложных по своей конструкции типов данных — составных (или структурированных). Одним из таких типов являются массивы.
Массив — это поименованная совокупность однотипных элементов, упорядоченных по индексам, определяющим положение элемента в массиве.
Элемент массива — отдельная переменная, входящая в массив.
Индекс элемента массива — номер элемента в этом массиве.
Размерность массива — количество элементов, которое содержит массив.
Массивы бывают одномерными и многомерными. Мы будем рассматривать только одномерные массивы. Их условно можно представлять в виде таблицы, которая состоит из множества ячеек, расположенных в одну строку или в один столбец.
Описание массивов
В языке Паскаль массивы описываются в блоке описания переменных следующим образом:
var <идентификатор>: array [<тип индекса>] of <тип компонентов>
Здесь:
– array и of — служебные слова, которые буквально можно перевести как «массив» и «из»;
– <тип индекса> — описание индексации (нумерации) элементов массива. В качестве типа индекса можно использовать любые порядковые типы;
– <тип компонентов> — тип величин, непосредственно составляющих массив.
Приведем несколько примеров описаний:
- var day: array [1..365] of integer; — массив, состоящий из 365 целых чисел, которые пронумерованы от 1 до 365;
- var tem: array [0..11] of real; — массив, состоящий из 12 вещественных, пронумерованных от 0 до 11;
- var ocenka: array [–2..2] of char; — массив, состоящий из 5 символьных переменных с номерами от -2 до 2:
- const n=10; var slovo: array [1..n] of string; — n строковых величин, пронумерованных от 1 до n;
Для того, чтобы обратиться к элементу массива, нужно записать имя массива и в квадратных скобках индекс нужного элемента, например, day[100].
Рассмотрим основные приемы работы с массивами.
Заполнение одномерного массива значениями
Задать элементам массива значения мы можем:
— вводя значения с клавиатуры;
— случайным образом из некоторого диапазона;
— по формуле.
Но какой бы способ мы ни выбрали, нам обязательно нужно организовать цикл.
Для начала договоримся, что мы имеем дело с массивом из 10 натуральных чисел (хотя тип элементов в данном случае значения не имеет).
Вывод элементов массива на экран
Вывод элементов также нужно организовывать с помощью цикла. При этом можно объединять процессы формирования массива и вывода его элементов на экран в один цикл, и выводить элементы массива либо в столбик, либо в строчку.
Воспользуемся вторым и третьим способами, рассмотренными выше:
Теперь перейдем к задачам обработки массивов.
Вычисление суммы элементов массива
Алгоритм решения практически полностью совпадает с алгоритмом нахождения суммы некоторого количества чисел, который мы уже рассматривали на третьем уроке в этой теме.
Следующая группа задач очень часто встречается нам в реальной жизни. Это задача поиска в массиве. Например, поиск нужного слова в словаре, поиск времени отправления нужного поезда в расписании и т. д.
В программировании поиск — одна из наиболее часто встречающихся задач вычислительного характера.
В алгоритмах поиска существуют два возможных варианта окончания их работы: поиск может оказаться удачным — заданный элемент найден в массиве и определено его месторасположение, либо поиск может оказаться неудачным – необходимого элемента в данном объеме информации нет. Кроме того, искомый элемент может встретиться в массиве неоднократно.
Рассмотрим несколько типовых задач, которые уже знакомы вам из курса основной школы.
Поиск в массиве элемента, удовлетворяющего некоторому условию
Например, требуется найти в массиве элемент, значение которого равно значению переменной p, или сообщить, что такого элемента в массиве нет.
Мы построим алгоритм, идея которого следующая:
- Просматриваем все элементы массива с первого до последнего.
- Как только находим элемент, равный p, выведем его номер, и увеличим счетчик вхождений элемента m в массив на 1.
- Если после просмотра массива счетчик окажется равным 0, выведем сообщение об отсутствии искомого элемента в массиве.
Можно заметить, что наш алгоритм решает еще одну часто встречающуюся задачу обработки массивов — подсчет количества элементов, удовлетворяющих некоторому условию.
Поиск максимального (минимального) элемента массива
Подумаем, какие операции нужно выполнить, если требуется найти максимальный элемент. Естественно, как и в предыдущей задаче, операцию сравнения. Но с чем нам сравнивать очередной элемент массива?
Введем дополнительную переменную max, которой присвоим значение, равное значению элемента массива a[1]. Теперь будем сравнивать все элементы, начиная со 2-го, с max, и если найдем больший элемент, то присвоим его значение переменной max. Конечное значение этой переменной и будет значением наибольшего элемента массива.
Поиск максимального (минимального) среди всех элементов массива, удовлетворяющих некоторому условию
Фактически, эта задача является объединением двух предыдущих, но с одним «подвохом».
Допустим, нужно найти наибольшее среди всех четных чисел, входящих в массив произвольных натуральных чисел.
Мы знаем, что условие «четности» на языке Паскаль можно записать так: x mod 2=0. Значит, найти все четные элементы массива мы сможем. Но как среди них найти наибольший?
Прием, которым мы воспользовались в задаче 5, здесь может привести к ошибке. Например, на первом месте в массиве будет стоять НЕЧЕТНОЕ число, которое окажется больше всех четных. Здесь переменной max лучше присвоить начальное значение, заведомо меньшее всех элементов массива. Например, если наш массив составлен из натуральных чисел, то присвоить max значение -2. Если после окончания программы значение max останется таким же, это будет означать, что в массиве нет четных чисел. Если же они будут, max изменит значение.
Сдвиг элементов массива
Сдвиг элементов массива необходимо выполнять при удалении или вставке элементов. Если происходит удаление, то элементы, расположенные после удаленного, сдвигаются на одну ячейку влево. Если же происходит добавление, то элементы, расположенные после места вставки, сдвигаются вправо. При этом нужно учитывать, что размерность массива уже указана при его описании и измениться не может.
Таким образом при удалении элемента из массива мы можем получить, например, такую ситуацию. Допустим, имеется массив:
Удалим из него элемент с индексом i=4, т. е. a[1]=a[1], a[2]=a[2], a[3]=a[3], a[4]=a[5], a[5]=a[6], a[6]=a[7]. А вот для последнего элемента a[7] новое значение взять неоткуда. Он сохранит свое значение. Получим:
Чтобы избежать такого дублирования последнего элемента обычно на его место ставят число 0.
Программа удаления элемента из массива на языке Паскаль может выглядеть следующим образом:
Сложнее обстоит дело со вставкой элемента внутрь массива. Как мы сказали, при вставке все элементы, расположенные справа от места вставки, сдвигаются вправо. Последнему же элементу сдвигаться некуда, и он пропадет. Чтобы этого не произошло, нужно увеличить размерность массива на 1. Но учесть это надо при описании массива. Второй важный момент заключается в том, что сдвиг значений мы будем производить справа налево до заявленной позиции вставки:
Реверс массива
Реверс массива — это перестановка его элементов в обратном порядке: первый элемент становится последним, а последний — первым.
Из примера видно, что местами меняются 1-й элемент с N-м, второй — с (N–1)-м и т. д. Замечаем, что сумма индексов элементов, участвующих в обмене, равна N+1, поэтому элемент с номером i должен меняться местами с (N+1–i)-м элементом.
Теперь разберемся с организацией цикла. Если мы организуем цикл по всем элементам, то получим:
Все вернулось в исходное состояние, потому что реверс выполнился дважды. Чтобы этого не произошло, нужно остановить процесс обмена на середине массива, т.е. на элементе с индексом (N div 2).
Сортировка массива
Сортировка — один из наиболее распространенных процессов обработки данных.
Под сортировкой массива понимают расстановку элементов массива в заданном порядке.
Порядок сортировки может быть любым, для чисел обычно рассматривают сортировку по возрастанию или убыванию значений.
Цель сортировки — ускорить последующий поиск элементов, т. к. нужный элемент легче искать в упорядоченном массиве.
Существует много различных алгоритмов сортировки. Мы рассмотрим некоторые из них на примере сортировки массива целых чисел в порядке неубывания (a[i]<=a[i+1]).
Обменная сортировка методом «пузырька»
Свое название этот алгоритм получил из-за схожести с физическим явлением всплытия пузырька воздуха в воде. Точно также в массиве как бы «всплывают» наверх (к началу массива) меньшие элементы.
Сначала мы сравниваем последний и предпоследний элементы массива. Если они стоят неправильно (нижний элемент меньше верхнего), то меняем их местами. Далее сравниваем следующую пару элементов и т. д.
В итоге самый «легкий» элемент поднимается на самый верх.
Теперь спускаемся вниз и начинаем аналогичные сравнения, но при этом остановимся на втором сверху элементе, потому что, как мы уже выяснили, верхний — наименьший.
На каждом проходе число сравнений будет уменьшаться на 1. Число проходов будет на единицу меньше числа элементов в массиве, ведь в самом конце последний элемент уже окажется наибольшим и сравнивать его смысла нет.
Сортировка выбором
Еще один простой метод сортировки — метод выбора. Его идея заключается в том, что на каждом этапе среди неотсортированных элементов выбирается минимальный и меняется местами с первым среди неотсортированных:
Рассмотренные алгоритмы сортировки являются достаточно простыми для понимания и запоминания, но на практике применяются редко. Дело в том, что они обладают квадратичной сложностью, т. е. в общем случае число сравнений и обменов сопоставимо с n2, где n — число элементов в массиве.
С примером более эффективного алгоритма сортировки — «быстрой сортировкой» — вы сможете познакомиться в дополнительном материале.
