Как написать программу на Паскале для проверки наличия слова в строке?
Паскаль - это язык программирования, который был создан в 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.
Это полный код программы, который позволяет пользователю вводить строку и искомое слово, и затем находить это слово в строке. Если вы хотите сделать эту программу еще лучше, то можете добавить обработку ошибок и другие функции на свое усмотрение.
В заключение, я надеюсь, что этот краткий обзор поможет вам написать программу на Паскале, которая проверяет наличие слова в строке. Помните, что практика - это ключ к успеху в программировании, поэтому не бойтесь экспериментировать и создавать собственные проекты. Удачи!
- Кто уже отдыхал в Хосте, или проживает, пляжи в каком состоянии? Конкретный санаторий "Волна"
- Вдруг встревоженно обнаружил, что уже два часа как сижу с выключенным телевизором. Включил и успокоился... А вы? :))
- У меня рост 160, вес 39 - нормально? Ещё на сколько худеть?
- Кто за стихи отцу родному?
- Почему тети живут с дядями, которые так сильно напиваются, что опсыкивают их когда спят?
- "Провели бы Вы со мной время?" - Запрос Для Девушек