PROGRAM PRG5_1;

VAR STR, WRD: STRING;

I, L: INTEGER;

M: SET OF CHAR;

BEGIN

M:= ['.', ',', '!', ':',';', '?'.'-', ' '];

WRITELN('BBEДИTE СЛОВО');'

READLN(WRD);

WRD:= CONCAT(' ', WRD);

STR:= ' '+STR;

WRITELN('ВВЕДИТЕ ТЕКСТ');

READLN(STR);

L:= LENGTH(WRD);

REPEAT

I:= POS(WRD, STR);

IF (IO0) AND (STR[I+L] IN M) THEN DELETE(STR, I, L);

UNTIL 1 = 0;

WRITELN(STR)

ЕND.

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

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

- задаем значение множества М - множества знаков препина­ния и пробел;

- вводим слово WRD; присоединяем вначале его пробел, чтобы не спутать с подсловом; находим длину слова;

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

- цикл REPEAT... UNTIL I = 0 осуществляет просмотр строки до тех пор, пока в ней встречается слово WRD;

- значение I>0 указывает на номер символа в строке, с кото­рого начинается слово WRD;

- если такое слово найдено, то вырезаем его из строки;

- выводим на экран модифицированный текст.

Переменные:

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

L - длина слова;

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

WRD - слово;

М - множество знаков препинания и пробел.

 

ВВЕДИТЕ СЛОВО

АВВА

ВВЕДИТЕ ТЕКСТ

DFE ABBA DFGSABBA ВВВВ

DFE DFGSABBA ВВВВ

 

ВВЕДИТЕ СЛОВО

**

ВВЕДИТЕ ТЕКСТ

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

DFE** *** DFGSABBA **BBBB

 

Рис. 5.1. Результат работы PRG5_1

 

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

PROGRAM PRG5_2;

VAR S1, STR: STRING;

I: INTEGER;

BEGIN

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