Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

PROGRAM PRG5_4;





VAR S1: STRING;

J, К, I: INTEGER;

BEGIN

WRITELN('BBEДИTE ТЕКСТ ДО ТОЧКИ');

READLN(S1);

J:= POS('.', S1);

IF S1[J-1] = "THEN K:=-1

ELSE К:= 0;

S1:=COPY(S1, 1, J-1);

REPEAT

I:=POS(' ', S1);

DELETE(S1, 1, I);

IF I<>1 THEN К:= K+1;

UNTIL I = 0;

WRITELN('KОЛИЧЕСTBO СЛОВ К = ', К)

END.

Для решения задачи:

- формируем тело программы и описываем переменные;

- вводим строку S1;

- определяем местоположение первой точки в тексте; если точка есть, то отрезаем от S1 текст начиная с нее;

- организуем поиск в строке пробелов до тех пор, пока они там встречаются;

- найдя пробел, отрезаем очередное слово и следующий за ним пробел;

- если в найденном слове есть хотя бы одна буква, то увели­чиваем счетчик слов;

- выводим результат на экран.

Переменные:

I - вспомогательная переменная;

J - местоположение первой точки;

S1 - строка текста;

К - счетчик слов.

ВВЕДИТЕ ТЕКСТ ДО ТОЧКИ

DFE ABBA DFGSABBA ВВВВ.

КОЛИЧЕСТВО СЛОВ К = 4

 

ВВЕДИТЕ ТЕКСТ ДО ТОЧКИ

DFE** ** ***. **DFGSABBA **BBBB

КОЛИЧЕСТВО СЛОВ К = 3

Рис. 5.2. Результат работы PRG5_4

Задача 5.5 Дана строка символов до точки. Группы символов в ней между группами пробелов считаются словами. Определить длину самого короткого и самого длинного слова.

PROGRAM PRG5_5;

VAR S1: STRING;

MAX, MIN, I, J: INTEGER;

BEGIN

WRITELN('BBEДИТЕ ТЕКСТ ДО ТОЧКИ');

READLN(S1);

J:= POS('.', S1);

S1:= COPY(S1, 1, J-1);

MAX:= 0;MIN:= 256;

REPEAT

I:= POS(' ', S1);







Дата добавления: 2015-09-07; просмотров: 333. Нарушение авторских прав; Мы поможем в написании вашей работы!




Практические расчеты на срез и смятие При изучении темы обратите внимание на основные расчетные предпосылки и условности расчета...


Функция спроса населения на данный товар Функция спроса населения на данный товар: Qd=7-Р. Функция предложения: Qs= -5+2Р,где...


Аальтернативная стоимость. Кривая производственных возможностей В экономике Буридании есть 100 ед. труда с производительностью 4 м ткани или 2 кг мяса...


Вычисление основной дактилоскопической формулы Вычислением основной дактоформулы обычно занимается следователь. Для этого все десять пальцев разбиваются на пять пар...

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

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

Тактические действия нарядов полиции по предупреждению и пресечению групповых нарушений общественного порядка и массовых беспорядков В целях предупреждения разрастания групповых нарушений общественного порядка (далееГНОП) в массовые беспорядки подразделения (наряды) полиции осуществляют следующие мероприятия...

Философские школы эпохи эллинизма (неоплатонизм, эпикуреизм, стоицизм, скептицизм). Эпоха эллинизма со времени походов Александра Македонского, в результате которых была образована гигантская империя от Индии на востоке до Греции и Македонии на западе...

Демографияда "Демографиялық жарылыс" дегеніміз не? Демография (грекше демос — халық) — халықтың құрылымын...

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

Studopedia.info - Студопедия - 2014-2025 год . (0.009 сек.) русская версия | украинская версия