Определить, есть ли среди введенных чисел число к. Delphi

Одной из распространенных задач в программировании является поиск числа в наборе данных. В данной статье будет рассмотрен пример определения наличия числа к среди введенных пользователем чисел с помощью Delphi.

Алгоритм

Для решения задачи определения наличия числа к необходимо перебрать все введенные пользователем числа и сравнить их со значением к. Если число к найдено, то ответ будет положительным.

Псевдокод алгоритма:

найтиЧислоК(числаПользователя, к)
    для каждого числа в числаПользователя
        если число равно к
            вернуть ИСТИНА
    вернуть ЛОЖЬ
конец

Реализация

Рассмотрим пример реализации алгоритма на языке Delphi.

program FindNumber;

var
  numbers: array of integer;
  i, k: integer;
  found: boolean;

begin
  // вводим числа
  write('Введите количество чисел: ');
  readln(k);

  setlength(numbers, k);

  for i := 0 to k - 1 do
  begin
    write('Введите число ', i + 1, ': ');
    readln(numbers[i]);
  end;

  // вводим искомое число
  write('Введите искомое число: ');
  readln(k);

  // ищем искомое число
  found := false;
  for i := 0 to k - 1 do
  begin
    if numbers[i] = k then
    begin
      found := true;
      break;
    end;
  end;

  // выводим результат
  if found then
    writeln('Число ', k, ' найдено')
  else
    writeln('Число ', k, ' не найдено');
end.

Заключение

В данной статье был рассмотрен пример определения наличия числа к среди введенных пользователем чисел с помощью языка Delphi. Описанный алгоритм может быть использован в различных приложениях, например, для поиска элемента в массиве или для проверки наличия уникального значения в базе данных.