Используя процедуры и функции для работы со сторками - Pascal
Формулировка задачи:
используя процедуры и функции для работы со сторками,выполнить следующее задание.В строке длины не более 255 знаков удалить текст,расположенный в скобках (включая скобки)
не допоняла)))
пожалуйста)))))))))
Решение задачи: «Используя процедуры и функции для работы со сторками»
textual
Листинг программы
procedure Instr(s : string);{Ввести строку и подсчитать количество символов в ней} begin WriteLn('Введите строку:'); ReadLn(s); WriteLn('Число символов (включая пробелы): ', Length(s)); end; procedure Outtextscobka(s : string);{вывести текст в скобках} var oScob, cScob : integer;{позиция открывающей скобки}{позиция закрывающей скобки} sScob : string; {текст в скобках} begin oScob := pos('(', s); cScob := pos(')', s); if (oScob > 0) and (cScob > oScob) then sScob := Copy(s, oScob + 1, cScob - oScob - 1) else sScob := 'Скобки заданы неверно'; WriteLn('Текст в скобках (в отдельной переменной): ', sScob); end; procedure Delallscobka(s : string);{удалить из строки вместе со скобками} var oScob, cScob : integer;{позиция открывающей скобки}{позиция закрывающей скобки} begin if (oScob > 0) and (cScob > oScob) then begin Delete(s, oScob, cScob - oScob + 1); WriteLn('Строка без скобок: ', s) end; end; var s: String; //main begin Instr(s); Outtextscobka(s); Delallscobka(s); end. //end main
Объяснение кода листинга программы
- В первой процедуре
Instr
происходит ввод строки с помощью функцииReadLn
и подсчет количества символов в ней с помощью функцииLength
. - Во второй процедуре
Outtextscobka
ищется позиция открывающей скобки с помощью функцииpos
, а затем позиция закрывающей скобки. Если скобки заданы верно, то из строки выделяется текст в скобках с помощью функцииCopy
и выводится на экран. В противном случае выводится сообщение об ошибке. - В третьей процедуре
Delallscobka
также ищутся позиции открывающей и закрывающей скобок. Если они заданы верно, то с помощью функцииDelete
удаляется текст в скобках вместе со скобками, а затем выводится измененная строка. - В основной части программы после ввода строки и подсчета символов в ней, вызывается процедура
Outtextscobka
, которая выводит текст в скобках, а затем процедураDelallscobka
, которая удаляет этот текст вместе со скобками.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д