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

Recur18. Проверить правильность выражения, заданного в виде непустой строки $$S$$ (выражение определяется по тем же правилам, что и в задании Recur17). Если выражение составлено правильно, то вывести True, иначе вывести False.

Решение:

program Recur18;

function LenExpression(S:String):integer;
var len:integer;
begin
 if length(S)<=0 then Result:=0
 else
  case s[length(S)] of
   ')':
    begin
     delete(S,length(S),1);
     len:=LenExpression(S);
     delete(S,length(S)-len+1,len);
     Result:=len+LenExpression(S)+1;
    end;
   '(': Result:=1
   else
    begin
     delete(S,length(S),1);
     Result:=1+LenExpression(S);
    end;
  end;
end;

function Expression(S:String):boolean;
var
 len:integer;
begin
 Result:=True;
  if length(s)>0 then
   case s[length(S)] of
    ')': begin
          delete(S,length(S),1);
          len:=LenExpression(S);
          Result:=Expression(S);
          delete(S,length(S)-len+1,len);
         end;
    '0'..'9': delete(S,length(S),1);
    else Result:=false;
   end
   else Result:=False;
   if Result and (length(s)>0) then
    Case s[length(S)] of
     '-': delete(S,length(S),1);
     '+': delete(S,length(S),1);
     '*': delete(S,length(S),1);
     else Result:=False;
    end;
   if Result and (length(s)>0) then
    Case s[length(S)] of
     ')': begin
           delete(S,length(S),1);
           len:=LenExpression(S);
           Result:=Expression(S);
           delete(S,length(S)-len+1,len);
          end;
     '0'..'9': delete(S,length(S),1);
     else Result:=false;
   end
  else Result:=False;
   if Result and (length(s)>0) then
    if s[length(S)]='(' then Result:=True
    else Result:=False
   else Result:=False;
end;

Function VerificationExpression(S:String):boolean;
begin
 if length(s)>0 then
  if s[length(S)] = ')'then
   begin
    delete(S,length(S),1);
    Result:=Expression(S);
   end
  else Result:=false
 else Result:=false
end;

var
 S:String;
 i:integer;
begin
 for i:=1 to 5 do
  begin
   Write('S: ');
   Readln(S);
   Writeln('Exp: ',VerificationExpression(S));
 end;
end.

program Recur18;

function LenExpression(S:String):integer;

var len:integer;

begin

if length(S)<=0 then Result:=0

else

case s[length(S)] of

')':

begin

delete(S,length(S),1);

len:=LenExpression(S);

delete(S,length(S)-len+1,len);

Result:=len+LenExpression(S)+1;

end;

'(': Result:=1

else

begin

delete(S,length(S),1);

Result:=1+LenExpression(S);

end;

function Expression(S:String):boolean;

var

len:integer;

begin

Result:=True;

if length(s)>0 then

case s[length(S)] of

')': begin

delete(S,length(S),1);

len:=LenExpression(S);

Result:=Expression(S);

delete(S,length(S)-len+1,len);

end;

'0'..'9': delete(S,length(S),1);

else Result:=false;

end

else Result:=False;

if Result and (length(s)>0) then

Case s[length(S)] of

'-': delete(S,length(S),1);

'+': delete(S,length(S),1);

'*': delete(S,length(S),1);

else Result:=False;

end;

if Result and (length(s)>0) then

Case s[length(S)] of

')': begin

delete(S,length(S),1);

len:=LenExpression(S);

Result:=Expression(S);

delete(S,length(S)-len+1,len);

end;

'0'..'9': delete(S,length(S),1);

else Result:=false;

end

else Result:=False;

if Result and (length(s)>0) then

if s[length(S)]='(' then Result:=True

else Result:=False

else Result:=False;

end;

Function VerificationExpression(S:String):boolean;

begin

if length(s)>0 then

if s[length(S)] = ')'then

begin

delete(S,length(S),1);

Result:=Expression(S);

end

else Result:=false

end;

var

S:String;

i:integer;

begin

for i:=1 to 5 do

begin

Write('S: ');

Readln(S);

Writeln('Exp: ',VerificationExpression(S));

end;

end.

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

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

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

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

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