Дана строка символов. Удалить из нее первый знак препинания.
Для решения данной задачи нам понадобится объявить множество знаков препинания М. Затем, последовательно проверяя каждый символ строки на принадлежность этому множеству, найдем первый знак препинания. Найдя знак, необходимо досрочно выйти из цикла проверки, например с помощью оператора BREAK.
PROGRAM PRG3_1;
VAR STR : STRING;
L, I, J : INTEGER; M : SET OF CHAR;
BEGIN
WRITELN(‘BBEДИTE ТЕКСТ’);
READLN(STR);
L := LENGTH(STR);
FOR I := 1 TO L DO
IF NOT(STR[l] IN M) THEN
WRITE(STR[I])
ELSE
BREAK;
FOR J := 1+1 TO L DO
WRITE(STR[J]);
WRITELN
END.
Для решения задачи:
— формируем тело программы и описываем переменные;
— задаем значение множества М — множества знаков препинания;
— цикл FOR I := 1 ТО L DO осуществляет вывод строки до первого знака препинания;
— цикл FOR J := 1+1 ТО L DO выводит строку после первого знака препинания;
— после вывода закрываем строку оператором WRITELN.
Переменные:
I, J — переменные циклов;
L — длина строки;
STR — строка текста;
М — множество знаков препинания.