Определить правильность расстановок скобок в тексте - Turbo Pascal
Формулировка задачи:
Дан файл содержащий произвольный текст. Определить правильно ли в нем расставлены скобки. (количество "("=количеству ")" )
Решение задачи: «Определить правильность расстановок скобок в тексте»
textual
Листинг программы
Skobka:=0; While not EOF(F) do Begin Readln(F,St); For i:=1 to Length(St) do If St[i]='(' then Inc(Skobka) else If St[i]=')' then Dec(Skobka); End; If Skobka=0 then Writeln('Правильно') else Writeln('Неправильно');
Объяснение кода листинга программы
- Создаётся переменная Skobka и инициализируется значением 0.
- Задаётся цикл While, который будет выполняться до тех пор, пока не достигнут конец файла F.
- В цикле считывается строка St с помощью функции Readln.
- В цикле For происходит обработка каждого символа в строке St.
- Если текущий символ - это скобка '('. то значение переменной Skobka увеличивается на 1.
- Если текущий символ - это скобка ')'. то значение переменной Skobka уменьшается на 1.
- После завершения цикла For, проверяется значение переменной Skobka.
- Если Skobka равно 0, то выводится строка 'Правильно'.
- Если Skobka не равно 0, то выводится строка 'Неправильно'.