Задано: массив P=(p1,p2,...pn); элемент L (массив может быть как числовым так и символьным.
Найти: Есть ли в массиве P, элемент равный L. Результат присвоить символьной переменной.
Исходные данные:
N - размер массива;
P - массив размером N;
L - значение, которое ищется в массиве;
Результат: R - имеет значение "элемент, равный L есть" или "элемента, равного L нет" в зависимости от результата поиска;
Вспомогательная переменная: I - индекс управляющая переменная цикла.
Procedure POISK ( n:integer; P :mas; L :integer; var R :string);
{ процедура поиска заданного значения среди элементов массива }
Label m ;
begin
R :=" элемента равного L в массиве нет " ;
for i := 1 to n do
If P[i] = L then
begin R := " элемент , равный L есть "; Goto m end;
m: end;
Примечание. Если элемент, равный L, найден, то чтобы завершить цикл используется оператор безусловного перехода Goto m , где локальная метка m обязательно должна быть описана в процедуре.
Опубликовал Kest
November 12 2008 21:17:25 ·
0 Комментариев ·
16550 Прочтений ·
• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •
Комментарии
Нет комментариев.
Добавить комментарий
Рейтинги
Рейтинг доступен только для пользователей.
Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.
Нет данных для оценки.
Гость
Вы не зарегистрированны? Нажмите здесь для регистрации.
Главная
Каталог файлов
