Решаем задачи Абрамян на Паскале. String70

String70. Дана строка, содержащая латинские буквы и скобки трех видов: «()», «[]», «{}». Если скобки расставлены правильно (то есть каждой открывающей соответствует закрывающая скобка того же вида), то вывести число $$0$$. В противном случае вывести или номер позиции, в которой расположена первая ошибочная скобка, или, если закрывающих скобок не хватает, число $$-1$$.

Решение:

program String70;
var
 S:String;
 i,Num1,Num2,Num3,error:integer;

begin
  Write('S: ');
  Readln(S);

  i:=1;
  error:=0;
  Num1:=0;
  Num2:=0;
  Num3:=0;
  while (i<=Length(S)) do
   begin
    if S[i]='(' then Num1:=Num1+1;
    if S[i]=')' then Num1:=Num1-1;

    if S[i]='[' then Num2:=Num2+1;
    if S[i]=']' then Num2:=Num2-1;

    if S[i]='{' then Num3:=Num3+1;
    if S[i]='}' then Num3:=Num3-1;

    if ((Num1<0) or (Num2<0) or (Num3<0)) and (error=0) then error:=i;
    inc(i);
   end;

  if error<>0 then Writeln(error)
   else if ((Num1>0) or (Num2>0) or (Num3>0)) then Writeln(-1)
    else Writeln(0);
end.

program String70;

var

S:String;

i,Num1,Num2,Num3,error:integer;

begin

Write('S: ');

Readln(S);

i:=1;

error:=0;

Num1:=0;

Num2:=0;

Num3:=0;

while (i<=Length(S)) do

begin

if S[i]='(' then Num1:=Num1+1;

if S[i]=')' then Num1:=Num1-1;

if S[i]='[' then Num2:=Num2+1;

if S[i]=']' then Num2:=Num2-1;

if S[i]='{' then Num3:=Num3+1;

if S[i]='}' then Num3:=Num3-1;

if ((Num1<0) or (Num2<0) or (Num3<0)) and (error=0) then error:=i;

inc(i);

end;

if error<>0 then Writeln(error)

else if ((Num1>0) or (Num2>0) or (Num3>0)) then Writeln(-1)

else Writeln(0);

end.

Другие задачи из раздела String можно посмотреть здесь.

Комментарии 4

Студент

16.01.2018 в 16:36

Прога не работает так как надо.
И зачем нужна строка C, если она нигде не используется?

Ответить
- Anton
  
  26.01.2018 в 10:18
  
  Переменная действительно лишняя, поправил.
  Было:
  
  Delphi/Pascal
  
  S,C:String;
  
  1
  
  S,C:String;
  
  Стало:
  
  Delphi/Pascal
  
  C:String;
  
  1
  
  C:String;
  
  А какие симптомы, что она не работает?
  
  Ответить
  - Valerii
    
    19.02.2019 в 13:23
    
    суть в том , когда тебе вводят например ((([[]))]) программа должна выдавать не 0, потому что скобки пересекаются, в одной скобке открывается другая, а в третьей закрывается, должна вывестись ошибка по идее
    
    Ответить

program String70; //pabc.net

// uses PT4;

begin
  // Task('String70');
  var S := new Stack<char>();
  var str := ReadlnString();
  var Left := '({[';
  var Right := ')}]';
  var err := False;
  var j := 0;
  
  while (j < str.Length) and (not err) do
  begin
    j += 1;
    if str[j] in Left then
      S.Push(str[j])
    else if str[j] in Right then
    begin
      if (S.Count <> 0) and 
         (Pos(S.Peek, Left) = Pos(str[j], Right)) then
        S.Pop
      else err := True;
    end
  end;
  Writeln(err ? j : S.Count = 0 ? 0 : -1)
end.

program String70; //pabc.net

// uses PT4;

begin

// Task('String70');

var S := new Stack<char>();

var str := ReadlnString();

var Left := '({[';

var Right := ')}]';

var err := False;

var j := 0;

while (j < str.Length) and (not err) do

begin

j += 1;

if str[j] in Left then

S.Push(str[j])

else if str[j] in Right then

begin

if (S.Count <> 0) and

(Pos(S.Peek, Left) = Pos(str[j], Right)) then

S.Pop

else err := True;

end

end;

Writeln(err ? j : S.Count = 0 ? 0 : -1)

end.

Ответить

Решаем задачи Абрамян на Паскале. String70

Комментарии:

Комментарии 4

Добавить комментарий Отменить ответ