obwest.ru

19.11.17
[1]
переходы:58

скачать файл
Дана строка символов. Удалить из неё первый знак препинания

Дана строка символов. Удалить из неё первый знак препинания.


Для решения данной задачи нам понадобится объявить множество знаков препинания М. Затем, последовательно проверяя каждый символ строки на принадлежность этому множеству, найдем первый знак препинания. Найдя знак, необходимо досрочно выйти из цикла проверки, например с помощью оператора BREAK





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


Переменные:

I , J - переменные циклов;

L - длина строки;

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

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


PROGRAM PRG3_3;

VAR STR : STRING;

L, I, J: INTEGER;

M: SET OF CHAR;

BEGIN

M: = [‘.’,’,’,’!’,’,: ` ;` , `?` , `-`];

WRITELN(`введите текст);

READLIN(STR);

L := LENGTH(STR);

FOR I := 1 TO L DO

IF NOT(STR[I] IN M) THEN WRITE(STR[I])

ELSE BREAK;

FOR J := I + 1 TO L DO

WRITE(STR[J]);

WRITELN

END.


скачать файл | источник
просмотреть