Определить правильность расстановок скобок в тексте - 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('Неправильно');

Объяснение кода листинга программы

  1. Создаётся переменная Skobka и инициализируется значением 0.
  2. Задаётся цикл While, который будет выполняться до тех пор, пока не достигнут конец файла F.
  3. В цикле считывается строка St с помощью функции Readln.
  4. В цикле For происходит обработка каждого символа в строке St.
  5. Если текущий символ - это скобка '('. то значение переменной Skobka увеличивается на 1.
  6. Если текущий символ - это скобка ')'. то значение переменной Skobka уменьшается на 1.
  7. После завершения цикла For, проверяется значение переменной Skobka.
  8. Если Skobka равно 0, то выводится строка 'Правильно'.
  9. Если Skobka не равно 0, то выводится строка 'Неправильно'.

Оцени полезность:

10   голосов , оценка 4.1 из 5
Похожие ответы