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

Recur20. Вывести значение целочисленного выражения, заданного в виде строки $$S$$. Выражение определяется следующим образом (функция $$M$$ возвращает максимальный из своих параметров, а функция $$m$$ — минимальный):
<выражение>::= <цифра>| $$M$$(<выражение>, <выражение>) | $$m$$(<выражение>, <выражение>)

Решение:

program Recur20;
var
 Num:integer;
 S:String;

function Min(E1,E2:integer):integer;
begin
 if E1>E2 then Result:=E2
 else Result:=E1;
end;

function Max(E1,E2:integer):integer;
begin
 if E1<E2 then Result:=E2
 else Result:=E1;
end;

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;
   'm','M': Result:=1
   else
    begin
     delete(S,length(S),1);
     Result:=1+LenExpression(S);
    end;
  end;
end;

function Expression(S:String):integer;
var
 len,El1,El2:integer;

begin
 case s[length(S)] of
  ')':
   begin
    inc(Num);
    delete(S,length(S),1);
    len:=LenExpression(S);
    El1:=Expression(S);
    delete(S,length(S)-len+1,len);
   end;
  '0'..'9':
   begin
    El1:=ord(s[length(S)])-48;
    delete(S,length(S),1);
   end;
 end;

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

 Case s[length(S)] of
  ')':
   begin
    inc(Num);
    delete(S,length(S),1);
    len:=LenExpression(S);
    El2:=Expression(S);
    delete(S,length(S)-len+1,len);
   end;
  '0'..'9':
   begin
    El2:=ord(s[length(S)])-48;
    delete(S,length(S),1);
   end;
  end;

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

  if s[length(S)]='M' then Result:=Max(El1,El2)
  else Result:=Min(El1,El2);
end;

Function VerificationExpression(S:String):integer;
begin
 Case s[length(S)] of
  ')':
   begin
    delete(S,length(S),1);
    Result:=Expression(S);
   end;
  '0'..'9': Result:=ord(s[length(S)])-48;
 end;
end;

begin
 Write('S: ');
 Readln(S);
 Writeln('Exp: ',VerificationExpression(S));
 readln;
end.

100

101

102

program Recur20;

var

Num:integer;

S:String;

function Min(E1,E2:integer):integer;

begin

if E1>E2 then Result:=E2

else Result:=E1;

end;

function Max(E1,E2:integer):integer;

begin

if E1<E2 then Result:=E2

else Result:=E1;

end;

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;

'm','M': Result:=1

else

begin

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

Result:=1+LenExpression(S);

end;

function Expression(S:String):integer;

var

len,El1,El2:integer;

begin

case s[length(S)] of

')':

begin

inc(Num);

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

len:=LenExpression(S);

El1:=Expression(S);

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

end;

'0'..'9':

begin

El1:=ord(s[length(S)])-48;

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

end;

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

Case s[length(S)] of

')':

begin

inc(Num);

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

len:=LenExpression(S);

El2:=Expression(S);

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

end;

'0'..'9':

begin

El2:=ord(s[length(S)])-48;

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

end;

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

if s[length(S)]='M' then Result:=Max(El1,El2)

else Result:=Min(El1,El2);

end;

Function VerificationExpression(S:String):integer;

begin

Case s[length(S)] of

')':

begin

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

Result:=Expression(S);

end;

'0'..'9': Result:=ord(s[length(S)])-48;

end;

begin

Write('S: ');

Readln(S);

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

readln;

end.

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

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

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

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