Sky Wall

Как написать программу на Паскале для проверки наличия слова в строке?

Паскаль - это язык программирования, который был создан в 1968 году в честь математика Блеза Паскаля. Он достаточно простой в изучении, что делает его отличным выбором для начинающих программистов. Если вы только начинаете свой путь в программировании на Паскале, то необходимо знать, как создать программу, которая проверяет наличие слова в строке. В этой статье я объясню, как это сделать.

Шаг 1. Начало программы

Чтобы начать программу, нужно открыть среду разработки Lazarus и создать новый проект. Далее, введите следующий код в окно исходного кода:

program CheckWord;

uses
  SysUtils;

var
  InputStr, SearchStr: string;

begin
  Write('Введите строку: ');
  Readln(InputStr);
  Write('Введите искомое слово: ');
  Readln(SearchStr);
end.

Этот код объявляет переменные InputStr и SearchStr, которые будут использоваться для хранения введенной строки и искомого слова соответственно. Также программа позволяет пользователю вводить строку и искомое слово с помощью команд Write и Readln.

Шаг 2. Проход по строке

После того, как пользователь ввел строку и искомое слово, необходимо проверить наличие этого слова в строке. Для этого нужно сперва разбить строку на отдельные слова. В Паскале существует функция AnsiPos, которая может найти позицию подстроки в строке. Код для поиска искомого слова в строке может выглядеть так:

var
  FoundPos: Integer;
begin
  FoundPos := AnsiPos(SearchStr, InputStr);
  if FoundPos > 0 then
    Writeln('Слово найдено в позиции: ', FoundPos)
  else
    Writeln('Слово не найдено');
end.

Здесь применяется функция AnsiPos, чтобы найти позицию искомого слова SearchStr в строке InputStr. Если слово не найдено, то программа выведет сообщение "Слово не найдено". В противном случае программа выведет позицию, в которой найдено искомое слово.

Шаг 3. Завершение программы

После того, как программа нашла искомое слово в строке, нужно закончить ее выполнение. Для этого добавьте следующую команду:

Readln;

Эта команда запрашивает ввод c клавиатуры и ждет, пока пользователь не нажмет клавишу Enter. Это позволит программе оставаться открытой, чтобы пользователь мог увидеть результаты ее выполнения.

Полный код программы

program CheckWord;

uses
  SysUtils;

var
  InputStr, SearchStr: string;
  FoundPos: Integer;

begin
  Write('Введите строку: ');
  Readln(InputStr);
  Write('Введите искомое слово: ');
  Readln(SearchStr);

  FoundPos := AnsiPos(SearchStr, InputStr);
  if FoundPos > 0 then
    Writeln('Слово найдено в позиции: ', FoundPos)
  else
    Writeln('Слово не найдено');

  Readln;
end.

Это полный код программы, который позволяет пользователю вводить строку и искомое слово, и затем находить это слово в строке. Если вы хотите сделать эту программу еще лучше, то можете добавить обработку ошибок и другие функции на свое усмотрение.

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