Студопедия — READLN(STR);
Студопедия Главная Случайная страница Обратная связь

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

READLN(STR);






IS1:= STR; I:= POS('.', SI);

IF I<>0 THEN

BEGIN

DELETE(S1, 1,1);

I:= P0S(7, SI);

IF I<>0 THEN

BEGIN

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

WRITELN('ЧАСТЬ ТЕКСТА МЕЖДУ 1-Й И 2-Й ТОЧКОЙ');

WRITELN(SI)

END

ELSE

WRITELN('B ТЕКСТЕ ТОЛЬКО ОДНА ТОЧКА');

END

ELSE

WRITELN('B ТЕКСТЕ НЕТ НИ ОДНОЙ ТОЧКИ');

END.

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

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

- вводим строку STR и присваиваем значение вспомогатель­ной переменной SI:= STR;

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

- ищем вторую точку; если она есть, то вырезаем текст из S1 после нее;

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

Переменные:

I - номер позиции, которая соответствует точке;

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

S1 - вспомогательная переменная.

Задача 5.3 Дана строка символов. Выделить подстроку меж­ду первой и последней точкой.

PROGRAM PRG5_3;

VAR S1, STR: STRING;

J, L, I: INTEGER;

BEGIN

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

READLN(STR);

S1:= STR;

I:= P0S('.', S1);

J:= I; L:= 0;

IF I<>0 THEN

BEGIN

WHILE I<>0 DO

BEGIN

DELETE(S1, 1, I);

L:= L+1;

I:= P0S('.', S1);

END;

IF L <>J THEN

BEGIN

S1:=COPY(STR, J+1, L-J-1);

WRITELN('ЧАСТЬ ТЕКСТА МЕЖДУ 1-Й И ПОСЛЕДНЕЙ ТОЧКОЙ');

WRITELN(SI)

END

ELSE

WRITELN('B ТЕКСТЕ ТОЛЬКО ОДНА ТОЧКА');

END

ELSE

WRITELN('B ТЕКСТЕ НЕТ НИ ОДНОЙ ТОЧКИ');

END.

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

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

- вводим строку STR и присваиваем значение вспомогатель­ной переменной SI:= STR;

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

- ищем последнюю точку в цикле WHILE I<>0 DO; если она есть, то значение переменной L указывает на ее местополо­жение;

- в зависимости от присутствия точек выделяем подстроку S1:= COPY(STR, J+1, L-J-1) и выводим результат на экран.

Переменные:

I - номер позиции, которая соответствует точке;

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

L - местоположение последней точки;

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

S1 - вспомогательная переменная.

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

Мы рассматривали подобную задачу в предыдущей теме. Од­нако с использованием стандартных функций она решается про­ще.







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



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

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

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

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

Приготовление дезинфицирующего рабочего раствора хлорамина Задача: рассчитать необходимое количество порошка хлорамина для приготовления 5-ти литров 3% раствора...

Дезинфекция предметов ухода, инструментов однократного и многократного использования   Дезинфекция изделий медицинского назначения проводится с целью уничтожения патогенных и условно-патогенных микроорганизмов - вирусов (в т...

Машины и механизмы для нарезки овощей В зависимости от назначения овощерезательные машины подразделяются на две группы: машины для нарезки сырых и вареных овощей...

Меры безопасности при обращении с оружием и боеприпасами 64. Получение (сдача) оружия и боеприпасов для проведения стрельб осуществляется в установленном порядке[1]. 65. Безопасность при проведении стрельб обеспечивается...

Весы настольные циферблатные Весы настольные циферблатные РН-10Ц13 (рис.3.1) выпускаются с наибольшими пределами взвешивания 2...

Хронометражно-табличная методика определения суточного расхода энергии студента Цель: познакомиться с хронометражно-табличным методом опреде­ления суточного расхода энергии...

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