Приложение b листинг программы №2
var
stdinput:
string;
i,
k, m: integer;
begin
//
Длина текущей последовтельности символов
k
:= 0;
//
Длина максимальной последовтельности
символов
m
:= 0;
writeln('Enter
a string:');
readln(stdinput);
//
если ввод не пустой, то начинаем обработку
if
length(stdinput)
> 0
then
begin
//
Добавляем в конец исследуемой строки
латинский символ
stdinput
:= stdinput + 'a';
for
i
:= 1
to
length(stdinput)
do
//
Сверка i-того символа стоки с регулярным
выражением, содаржащим все латинские
симовлы
//
Если i-тый символ принадлежитм ножеству
латинских символов, то подсчитываем
длину последовательности симоволов
if
stdinput[i]
in
['a'..'z',
'A'..'Z']
then
begin
//
если максимальной последовательности
меньше текущей, то меняем длину
максимальной последовательности
if
m
< k then
m
:= k;
k
:= 0
end
//
Если i-тый символ не латинский, то
увеличиваем длинну полсделовательсти
на 1;
else
k:=k+1;
//
Выводим в стандартный вывод максимальную
длинну последовательности
writeln('lenth
of a string is: ',
m)
end
//
Если вывод пустой, то сообщаем об этом
else
writeln('Input
is empty')
end.
2023
г.