Пример программы нахождения в одномерном массиве элемента, заданного пользователем и подсчета количества его вхождений в данный массив
Пусть требуется составить программу, которая формирует одномерный массив вводом с клавиатуры, находит в массиве элементы, заданные пользователем, подсчитывает их количество и выводит номер первого найденного элемента.
В разделе описания констант укажем значение константы Count=10. В программе значение этой константы определяет количество элементов массива. Употребление константы в описании размеров массива предпочтительнее, так как в случае изменения размеров массива не нужно будет вносить изменения во весь текст программы, а достаточно только один раз указать в разделе описания констант новое значение константы Count. Тогда раздел описания констант и переменных в программе будет таким: Сonst Count=10;
В связи с этим описание массива зададим так: М: array [1..Count] of Byte;
Введем переменные целого типа: N - значение искомого элемента; А - номер первого элемента массива, значение которого равно N; В - количество таких элементов в массиве; I - переменная, выполняющая функции параметра цикла и одновременно служащая указателем номера очередного элемента массива.
|
|
В связи с тем, что ни один подходящий элемент еще не найден, присвоим переменным A и В значение 0. Затем выведем на экран приглашение на ввод значения искомого элемента считаем это значение с клавиатуры. На Паскале это запишется следующим образом:
Write('Введите значение элемента массива для поиска: ');
Readln(N);
Поиск элемента массива, значение которого равно введенному числу N, выполняется в циклическом сравнении значений всех элементов от первого до последнего со значением числа N, поэтому запишем его в виде цикла с параметром.
Оператор if M[I] = N then … выполняет сравнение значения очередного элемента массива с заданным значением N. Если условие М[I] = N выполняется, то счетчик числа найденных элементов В увеличивается на единицу. Так как требуется найти номер первого элемента, т. е. при первом выполнении условия М[I] = N запомнить номер данного элемента, то можно записать: if В = 0 then А:= I.
Тогда блок поиска нужного элемента можно записать так:
for I:= 1 to Count do
if M[I] = N then
begin
if В =0 then A:= I;
В:= В+1;
end;
В заключительной части программа должна вывести на экран сообщение о том, что в массиве нет искомых элементов, или сообщение о количестве элементов массива, имеющих значение, равное N, и напечатать номер первого такого элемента. Это можно записать следующим образом:
if B=0 then
riteln('Нет таких элементов в массиве')
else
begin
Writeln('Количество элементов массива, имеющих значение ',N,' - ', B),
|
|
Writeln('Первый элемент, совпадающий с заданным ', А);
end;
В целом текст программы может быть таким:
program Find_Elem; {Поиск элемента в массиве}
Сonst
Count =10;
Var
М: array [1..Count] of byte;
N, A, B, I: Byte;
Begin {Основная программа}
for I:=1 to Count do {ввод элементов массива}
begin
writeln('Введите ',i,' элемент массива');
readln(M[I]);
end; {конец ввода}
writeln('Введенный массив: ');
for I:=1 to Count do {вывод элементов массива}
begin
write(' ',M[I],' ');
end; {конец вывода}
Writeln;
A:= 0; {Нет элемента с таким значением}
В:= 0; {Пока не найдено ни одного элемента}
Write('Введите значение элемента массива для поиска: ');
Readln(N);
for I:= 1 to Count do {Поиск элемента, значение которого =N}
if M[I] == N then
begin
if В = 0 then A:= I; {Запомнить номер первого элемента, равного N}
В:= В + 1; {Увеличить число найденных элементов на 1}
end;
if B=0 then
Writeln('Нет таких элементов в массиве')
else
begin
Writeln('Количество элементов массива, имеющих значение',N,'-',B ),
Writeln('Первый элемент, совпадающий с заданным - ', А);
end;
end.