ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 06.12.2023
Просмотров: 24
Скачиваний: 1
ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.
Задачи по теме «Работа с символами и строками»
Пример: Дана строка, заканчивающаяся точкой. Подсчитать, сколько слов в строке.
Обозначение переменных:
s - исходная строка, k – позиция пробела, ks – количество слов
program stroki;
var s:string;
k,ks:byte;
begin
writeln('введите строку');
readln(s);
ks:=0;
repeat
k:=pos( ' ',s);
if k>0 then
begin
delete(s,1,k);
ks:=ks+1;
end;
until k=0;
if length(s)>1 then ks:=ks+1;
writeln('количество слов =', ks);
end.
На основе примера (изменив программу) решить следующие задачи
(по вариантам)
-
Дана строка, содержащая английский текст. Найти количество слов, содержащих букву ю. -
Дана строка, подсчитать, сколько в ней слов, начинающихся с А (русская) -
Дана строка, подсчитать, сколько в ней слов, имеющих чётную длину. -
Дана строка, содержащая текст. Найти длину самого длинного слова. -
Дана строка, содержащая текст. Найти длину самого короткого слова. -
Дана строка, содержащая текст. Найти количество слов, состоящих из 5 символов. -
Дана строка, содержащая текст, заканчивающаяся точкой. Найти длину последнего слова. -
Дана строка, содержащая английский текст. Найти количество вхождений последовательности символов ‘the’. -
Дана строка, содержащая текст, в котором есть скобки. Найти количество слов, состоящих более чем из 3 символов. -
Дана строка, содержащая текст. Вывести каждое слово в отдельной строке. -
Дана строка, содержащая текст. Вывести каждое второе слово в отдельной строке. -
Задана строка, в которой между словами поставлены лишние пробелы. Отредактировать строку так, чтобы между словами был строго 1 пробел. -
Имеется строка, вывести новую строку так, чтобы каждое слово было записано наоборот.