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

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

Решение:

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

function Max(S:String):integer; forward;
function Min(S:String):integer; forward;

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

function fMin(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 Min(S:String):integer;
var
 len,El:integer;
begin
 case s[length(S)] of
  ')':
   begin
    inc(Num);
    delete(S,length(S),1);
    len:=LenExpression(S);
    if S[length(S)-len+1]='m' then El:=Min(S)
    else El:=Max(S);
    delete(S,length(S)-len+1,len);
   end;
  '0'..'9':
   begin
    El:=ord(s[length(S)])-48;
    delete(S,length(S),1);
   end;
 end;

 case s[length(S)] of
  ',':
   begin
    delete(S,length(S),1);
    Result:=fMin(Min(S),El);
   end;
  '(':Result:=El;
 end;
end;

function Max(S:String):integer;
var
 len,El:integer;
begin
 case s[length(S)] of
  ')':
   begin
    inc(Num);
    delete(S,length(S),1);
    len:=LenExpression(S);
    if S[length(S)-len+1]='m' then El:=Min(S)
    else El:=Max(S);
    delete(S,length(S)-len+1,len);
   end;
  '0'..'9':
   begin
    El:=ord(s[length(S)])-48;
    delete(S,length(S),1);
   end;
 end;

 case s[length(S)] of
  ',':
   begin
    delete(S,length(S),1);
    Result:=fMax(Max(S),El);
   end;
  '(':Result:=El;
 end;
end;

Function VerificationExpression(S:String):integer;
var
 len:integer;
begin
 case s[length(S)] of
  ')':
   begin
    inc(Num);
    delete(S,length(S),1);
    len:=LenExpression(S);
    if S[length(S)-len+1]='m' then Result:=Min(S)
    else result:=Max(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

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

program Recur22;

var

Num:integer;

S:String;

function Max(S:String):integer; forward;

function Min(S:String):integer; forward;

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

begin

if E1<E2 then Result:=E2

else Result:=E1;

end;

function fMin(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 Min(S:String):integer;

var

len,El:integer;

begin

case s[length(S)] of

')':

begin

inc(Num);

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

len:=LenExpression(S);

if S[length(S)-len+1]='m' then El:=Min(S)

else El:=Max(S);

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

end;

'0'..'9':

begin

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

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

end;

case s[length(S)] of

',':

begin

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

Result:=fMin(Min(S),El);

end;

'(':Result:=El;

end;

function Max(S:String):integer;

var

len,El:integer;

begin

case s[length(S)] of

')':

begin

inc(Num);

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

len:=LenExpression(S);

if S[length(S)-len+1]='m' then El:=Min(S)

else El:=Max(S);

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

end;

'0'..'9':

begin

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

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

end;

case s[length(S)] of

',':

begin

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

Result:=fMax(Max(S),El);

end;

'(':Result:=El;

end;

Function VerificationExpression(S:String):integer;

var

len:integer;

begin

case s[length(S)] of

')':

begin

inc(Num);

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

len:=LenExpression(S);

if S[length(S)-len+1]='m' then Result:=Min(S)

else result:=Max(S);

end;

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

end;

begin

Write('S: ');

Readln(S);

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

readln;

end.

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

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

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

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