Работа с элементами массива
(разбор на примерах)
При работе с элементами массива можно выделить несколько видов задач.
Нахождение суммы (или произведения) элементов
Такая задача была рассмотрена выше. Часто встречаются различные модификации этой задачи, например, требуется найти сумму элементов с заданным свойством. Пример Найти сумму элементов, кратных заданному числу. Решение Изменим функцию Sumиз программы Example_89. Будем суммировать не все элементы, а только те, которые удовлетворяют данному условию, то есть только те, которые делятся нацело на заданное число (остаток от деления на данное число равен 0). Program Example_92; Function Sum(m: myarray): Integer; Var i, s, k: Integer; Begin Writeln('Введите число'); Readln(k); s:=0; {Начальное значение суммы} For i:=1 To n Do {Нахождение суммы} If m[i] Mod k=0 Then s:=s+m[i]; {Если элемент кратен k, то прибавляем его к сумме} sum:=s; End;
Остальную часть программы Example_89 можно оставить без изменений.
Нахождение номеров элементов, Обладающих заданным свойством Пример Найти номера четных элементов. Решение Необходимо просмотреть весь массив, и если просматриваемый элемент является четным, то вывести его номер. Опишем процедуру, которой передается данный массив и выводятся нужные номера. Program Example_93; 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;
Нахождение количества элементов, Обладающих заданным свойством Пример Найти количество положительных и отрицательных элементов в данном массиве. Решение Опишем процедуру, которая имеет три параметра − массив и два счетчика, первый − для положительных элементов, второй − для отрицательных, элементы, равные нулю, учитывать не будем. Program Example_94; Procedure Quantity(m: myarray; Var k1, k2: Integer); Var i: Integer; Begin k1:=0; k2:=0; For i:=1 To n Do If m[i]>0 Then Inc(k1) Else If m[i]<0 Then Inc(k2); End; Смотрите программу Example_89. В разделе описания переменных Var дописать: pol, otr: Integer;. В основной программе записать обращение к процедуре Quantity(a,pol,otr). Есть ли в данном массиве элементы с Данным свойством, или найти первый (последний) элемент, отвечающий Заданным условиям
Для решения задач этого типа удобнее использовать циклы с условиями и составлять функции, результат которых имеет логический тип. Пример 1 Есть ли отрицательный элемент в массиве? Решение Начинаем просматривать массив с первого элемента (i=1). Пока не просмотрен последний (i<=n) и не найден отрицательный (m[i]>=0), будем переходить к следующему (inc(i)). Таким образом, мы закончим просмотр в одном из двух случаев: первый − просмотрели все элементы и не нашли отрицательного, тогда i>n, второй − нашли нужный, при этом i<=n. Опишем функцию, значение которой истина (True), если в массиве есть отрицательный элемент, и ложь (False), если его нет. Program Example_95; Function Controll (m: myarray): Boolean; Var i: Integer; Begin i:=1; While (i<=n) And (m[i]>=0) Do Inc(i); Controll:=(i<=n) End; Пример 2 Найти номер последнего отрицательного элемента массива. Решение Последний отрицательный − это первый отрицательный элемент, который встретится при просмотре массива с конца. Если очередной элемент не является отрицательным, то нужно уменьшать значение текущего индекса, пока он не станет меньше номера первого элемента или не будет найден отрицательный элемент. Таким образом, можно модифицировать предыдущую функцию. Но поскольку надо найти номер элемента, тип результата будет целым. Договоримся, что если в массиве нет отрицательного элемента, то значение функции будет равно 0. Program Example_96; Function Control2 (m: myarray): Integer; Var i: Integer; Begin i:=n; While (i>=1) And (m[i]>=0) Do Dec(i); Control2:=i; End. Методы работы с элементами Одномерного массива
Рассмотрим еще несколько типов задач. Изменение значений некоторых элементов Пример 1 Заменить отрицательные элементы массива на их абсолютные величины. Решение Для решения задачи опишем процедуру. Ей будем передавать один параметр − массив, который и будет результатом, при этом значения некоторых элементов могут быть изменены. Program Example_97; Procedure Substitution1 (Var m: myarray); Var i: Integer; Begin For i:=1 To n Do If m[i]<0 Then m[i]:=-m[i]; End; Пример 2 Прибавить к каждому элементу массива число 25. Решение Преобразуем предыдущую процедуру. Program Example_98; Procedure Substitution2 (Var m: myarray); Var i: Integer; Begin For i:=1 To n Do m[i]:=m[i]+25; End; Пример 3 Если очередной элемент массива четный, то прибавить к нему первый, если нечетный − прибавить последний. Первый и последний элементы не изменять. Решение Просмотрим все элементы массива, кроме первого и последнего, и если очередной элемент четный, то есть делится на 2 без остатка, то увеличим его на значение первого элемента, иначе − увеличим его на значение последнего элемента. Program Example_99; Procedure Substitution3 (Var m: myarray); Var i: Integer; Begin For i:=2 To n-1 Do If m[i] Mod 2=0 Then m[i]:=m[i]+m[1] Else m[i]:=m[i]+m[n]; End;
Создание массива
Рассмотрим два примера. Пример 1 Даны два одномерных массива одинаковой размерности. Получить третий массив такой же размерности, каждый элемент которого равен сумме соответствующих элементов данных массивов. Решение Пусть даны два массива − А и В, состоящие из пяти элементов. Получим из них массив С, тоже состоящий из пяти элементов, причем первый элемент этого массива равен сумме первых элементов массивов А и В, второй − сумме вторых элементов данных массивов − и так далее.
Для решения этой задачи опишем процедуру, которой передаются три параметра. Первые два − это два исходных одномерных массива, третий − это одномерный массив той же размерности, который является результатом и заполняется по указанному правилу. Program Example_100; Procedure Sum_Ar(a, b: myarray; Var с: myarray); Var i: Integer; Begin For i:=1 To n Do c[i]:=a[i]+b[i]; End; Пример 2 Даны первый член арифметической прогрессии и ее разность. Записать в массив первые n членов прогрессии. Решение Пусть а1 − первый член прогрессии, a k − ее разность, тогда i−й член можно найти по следующему правилу: a[i]:=a[i-1]+k, или a[i]:=a1+k*(i-1); если i=1, тo a[i]:=a1. Опишем процедуру, в которую передаются два параметра, а результатом является одномерный массив. Его первый элемент равен первому члену прогрессии, второй − второму − и так далее. Program Example_101; Procedure Progress (a1, k: Integer; Var a: myarray); Var i: Integer; Begin a[1]:=a1; For i:=2 To n Do Begin a[i]:=a[i-1]+k; Write(a[i]:5); End; End;
Популярное: Как выбрать специалиста по управлению гостиницей: Понятно, что управление гостиницей невозможно без специальных знаний. Соответственно, важна квалификация... Как распознать напряжение: Говоря о мышечном напряжении, мы в первую очередь имеем в виду мускулы, прикрепленные к костям ... Генезис конфликтологии как науки в древней Греции: Для уяснения предыстории конфликтологии существенное значение имеет обращение к античной... ©2015-2024 megaobuchalka.ru Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. (987)
|
Почему 1285321 студент выбрали МегаОбучалку... Система поиска информации Мобильная версия сайта Удобная навигация Нет шокирующей рекламы |