Файл: Проверить корректность расстановки скобок в арифметическом выражении - Pascal ABC

Формулировка задачи:

Помогите написать задачу!!! Проверить корректность расстановки скобок в арифметическом выражении. Выражение задается из файла "input.txt" и может содержать произвольное количество круглых скобок. Программа должна выдать одну строчку: "правильно" или "неправильно". Заранее спасибо!!!

Код к задаче: «Файл: Проверить корректность расстановки скобок в арифметическом выражении - Pascal ABC»

textual
function balance(s: string): boolean;{Cyborg Drone ©}
var i, n: integer;
begin
  n := 0;
  for i := 1 to length(s) do
    begin
      if s[i] = '('
        then inc(n)
        else if s[i] = ')'
          then dec(n);
      if n < 0 then break
    end;
  balance := n = 0 
end;
var s: string;f:text;
begin
  assign(f,'input.txt');
  reset(f);
  readln(f,s);
  writeln(s);
  writeln('Balance: ', balance(s));
  close(f);
end.

10   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ