Pascalの宿題は俺にやらせろ！！Part2

Pascalの宿題は俺にやらせろ！！Part2 at TECH

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

50:43
 06/01/20 23:29:26 
すいません４５のところ間違ってました。訂正します。 
function expr: integer;                   {<式>を評価する関数} 
var value: integer; 
   function term: integer;                {<項>を評価する関数} 
   var value: integer; 
      function factor: integer;           {<因子>を評価する関数} 
      var value: integer; 
        function constant:integer; 
        var value:integer; 
        function digit: integer;         {<数字>を評価する関数} 
         begin{digit} 
            if (ord('0') <= ord(CurrentToken)) and (ord(CurrentToken) <= ord('9'))  
               then                       {CurrentTokenが<数字>ならば,} 
                  begin                   {その<数字>の順序数 - `0'の順序数} 
                     digit := ord(CurrentToken) - ord('0'); 
                     GetToken             {を, その数字の評価値とする.} 
                  end 
            else                          {そうでなければ, エラー.} 
               begin 
                  error := TRUE; 
                  writeln('Error at digit.') 
               end 
         end; 
begin{consstant} 
value:=digit; 
while (ord('0') <= ord(CurrentToken))  
and (ord(CurrentToken) <= ord('9')) do 
begin 
value:=value*10+digit; 
end; 
constant:=value; 
end;

次ページ