Как найти все слова в строке паскаль

program str1;

var
str, word, newWord: string;
i, j, number, correctWord : integer;
isIdenticaly: boolean;

begin
correctWord := 0;
writeln (‘Введите строку’);
readln(str);
writeln (‘Введите cлово’);
readln(word);

//количество возможных слов и соответственно итераций цикла
number:= Length(str)-(Length(word)-1);

//Тут мы запускаем цикл, который повторится столько раз, сколько возможно получить слов такой же длины, как искомое слово
for i:=1 to number do
begin

isIdenticaly:= true; //Это переменная которая изначально равна true, но меняет значение на false если символ искомого слова не соответствует символу нового слова

//тут запускаем цикл внутри цикла, который проверяет каждую букву нового слова на соответствие символу искомого слова
for j:=0 to (Length(word)-1) do
begin

if (str[i+j] <> word[j+1]) then
begin
isIdenticaly:= false; //В этом месте мы меняем true на false если хоть один символ слова отличается от искомого
break;
end;

end;
if (isIdenticaly = true) then // Тут мы проверяем, если эта переменная осталась true до этого момента, значит все символы соответствуют
begin
correctWord:= correctWord + 1;
end;
end;

writeln(correctWord); //выводим количество найденных подходящих слов

end.

1. Выделение слов из строки

Под словами будем понимать последовательности
символов разделенных пробелами (кроме,
соответственно, первого и последнего
слов).

Пусть s=’мама мыла раму’. Признаком конца
слова можно считать пробел, кроме
последнего слова. Чтобы не обрабатывать
последнее слово специальным образом,
добавим в конец строки оператором S:=s+’
‘ символ «пробел».

Просмотрим все элементы строки и если
символ не пробел, то добавляем его к
строке t. Если пробел, то в t уже целое
слово. Выдаем его на экран, и начинаем
формировать в t новое слово. Перед
формированием «очищаем» слово t (t:=”-
пустая строка).

Var s, r, t: string;

i: integer;

Begin

Readln(s);

s:=s+’ ‘; t:=”; {tпустая строка}

For i:=1 to length(s) do

If s[i]<>’ ‘ then t:=t+s[i]

else Begin

Writeln(t);

t:=”;

End;

readln

End.

Используем эту идею для решения более
сложной задачи: найти в строке самое
длинное слово – палиндром. Для этого
формируем как прямое слово t:=t+s[i],
так и обратноеr:=s[i]+r.
Кроме того, последовательно проверяем
длины слов и ищем самое длинное.

Var s, r, t, wmax: string;

i, lmax, l: integer;

Begin

Readln(s); s:=s+’ ‘;

r:=”;{“обратное”
слово-пустая строка}

t:=”;{“прямое”
слово-пустая строка }

wmax:=”;{искомое слово –
пустая строка}

For i:=1 to length(s) do

Ifs[i]<>’
‘then{символ не равен
пробелу}

Begin

r:=s[i] + r; t:=t + s[i]

End

else Begin

If r = t then

If length(r)>length (wmax)

thenwmax:=r;

r:=”;t:=”;
{готовимся формировать новые слова}

End;

Write(wmax);

Readln

End.

Теперь представим, что «очень много»
символов последовательно записано в
текстовом файле (на олимпиадах обычно
бывает именно так). Тогда последним
символом окажется код #26 (признак конца
файла). Но, если при создании файла в
конце строки будет нажата клавиша
«Enter», то в конце файла могут появиться
и символы #13 (CR) или (и) #10 (LF). Не забудьте
об этом при участии в соревнованиях,
именно из этого символа команда СГАУ
на четвертьфинале чемпионата мира сдала
программу только с третьей попытки,
заработав 40 минут штрафного времени.
Обязательно закрывайте выходной файл,
иначе результат в нем может не появиться.

Используем стандартные файлы ввода и
вывода. Тогда их можно не описывать и
не указывать их имена в операторах ввода
и вывода

Будем считывать символы из файла
последовательно и по алгоритму,
изложенному выше, решим задачу.

Var r, t, wmax: string;

ch: char;

Begin

Assign (input, ‘input.txt’); Reset(input);

Assign (output, ‘output.txt’); Rewrite(output);

r:=”; t:=”; wmax:=”;

Repeat

Read (ch);

If (ch<>’ ‘)and(ch<>#26)and(ch<>#10)and(ch<>#13)
then

Begin r:=ch+r; t:=t+ch End

else Begin

If r=t then

If length (r)>length (wmax) then wmax:=r;

r:=”; t:=”;

End;

Until (ch=#26) or (ch=#10) or (ch=#13);

Write (wmax);

Close (output);

End.

Соседние файлы в предмете Программирование на Pascal

• #
• #
• #
• #
• #
• #

Как найти слова в строке?
, Нужно найти слова и их длину

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей: