      5.  ⮬   ࠡ⪨ ⥪⮢

     5.1. ⠢ ᨬ, ਨ  ..

     5.1.1.    ⥪     ⥯ 砫 
騬  窠. 襭    祭  
'^'  (⠪  ,    ਬ, 'x**y'   'x^y').  
 ᥣ ᤥ? 室 ⥪ ࠧ蠥  ᨬ 
ᨬ, 騩 ⥪ ॡ  ᨬ  ᨬ-
.

     襭.    ணࠬ  室      
 ﭨ: "᭮"  "᫥ 窨"

ﭨ    ।               ⢨
           室 ᨬ   ﭨ

᭮        *             ᫥          
᭮     x <> '*'        ᭮      x
᫥           *            ᭮      '^'
᫥        x <> '*'        ᭮      *, x

砭.    ⮬ '***'   '^*' (   '*^'). 
᫮    ਢ ⠫,    
- ।,  ணࠬ " ⢮ ࠧ㬭".  
  砥,  ,  ᠬ  ⮩  ᯮᮡ ᭨, 
ணࠬ  -    ﭨ  ⢨  .

     5.1.2.  ணࠬ, 㤠  ⥪ ᫮ -
 'abc'.

     5.1.3.  ᪠ ਨ   䨣 ᪮:

                begin {砫 横}
                i:=i+1; {㢥稢 i  1}

 ணࠬ,  㤠﫠  ਨ    ⠢﫠
    ᪫祭    ஡  (⮡ '1{}2'
ॢ⨫    '12',   '1 2').

     襭. ணࠬ   ﭨ: "᭮"  "-
 ".

ﭨ    ।               ⢨
           室 ᨬ   ﭨ

᭮        {                      
᭮     x <> '{'        ᭮      x
          }            ᭮      ஡
       x <> '}'                  

     砭.  ணࠬ  ਭ   -
ਨ: ப த
       '{{਩ } }'
ॢ 
        '  }'
(  砫    ஡). ࠡ⪠  ਥ
 ⮬⮬  (㦭 " ᫮ ᪮" -  
ந쭮 ࠫ쭮 ᫮  頥   ).

     5.1.4.  ᪠᪨ ணࠬ 뢠 ⠪ ப,  -
祭  窨. ᫨ 䨣ୠ ᪮ 砥  -
,    砥 砫   .  ᢮ -
।, 窠  ਨ  砥 砫   ப.
  ணࠬ, ⮡  ?

     . ﭨ 㤥 : ᭮,    -
,  ப.

     5.1.5.     ॠ権 ᪠ - 
ਨ 

      i:=i+1;     (*   here i is increased by 1  *)

 ⮬ 뢠 ᪮   ᮮ⢥⢮  뢠襩
(    { ... *)  ࠧ蠥).  㤠 ⠪ -
ਨ?

     5.2.  ᥫ

       筠    ᫠   室 ணࠬ
ᨬ  ᨬ.  ⨬ ""  ᫮  (  
६ ⨯ real  祭). ஬ ⮣,  ᮮ 
訡, ᫨ ᫮ ᠭ ୮.

      ⭮, ।⠢ ᥡ ⠪ . ᫥-
⥫쭮  ᨬ  室   ⠭  ⠢
.   짮 㭪樥 Next:char,  -
頥  ᨬ ⠢襩 ,  ⠪ 㭪樥 Move,  -
 ࢮ ࠥ  ᨬ  ⠢襩 , ॢ-
   ⥣ ⠭.

        ---------------------|--------------------------
          ⠭   | Next |  ?  |  ?  |  ?  |
        ---------------------|--------------------------


㤥  뢠 筮  ⠪ ᫥⥫쭮 ᨬ-
:

  <0   ஡> <1   >

 ⠪ ⠪:

  <0   ஡> <1   >.<1   >

⨬,  ᮣ᭮ ⮬  ।  '1.',  '.1',  '1.  1',
'-1.1'   묨 ﬨ. 㫨㥬 ⥯ -
 筮:

     5.2.1.   室 ப ᨬ , -
     砫 筮 . ।, 
   筮   .

     襭. 襬 ணࠬ  ᪠ (ᯮ  "-
 ⨯"  來 : ६ state  ਭ-
   祭, 㪠  ᪮).

    var state:
     (Accept, Error, Initial, IntPart, DecPoint, FracPart);

    state := Initial;
    while (state <> Accept) or (state <> Error) do begin
    | if state = Initial then begin
    | | if Next = ' ' then begin
    | | | state := Initial; Move;
    | | end else if Digit(Next) then begin
    | | | state := IntPart; {᫥ 砫 楫 }
    | | | Move;
    | | end else begin
    | | | state := Error;
    | | end;
    | end else if state = IntPart then begin
    | | if Digit (Next) then begin
    | | | state := IntPart; Move;
    | | end else if Next = '.' then begin
    | | | state := DecPoint; {᫥ 筮 窨}
    | | | Move;
    | | end else begin
    | | | state := Accept;
    | | end;
    | end else if state = DecPoint then begin
    | | if Digit (Next) then begin
    | | | state := FracPart; Move;
    | | end else begin
    | | | state := Error; {    }
    | | end;
    | end else if state = FracPart then begin
    | | if Digit (Next) then begin
    | | | state := FracPart; Move;
    | | end else begin
    | | | state := Accept;
    | | end;
    | end else if
    | | {⠪    }
    | end;
    end;

,   ᢠ state:=Accept  state:=Error  ᮯ-
஢ ᤢ (ᨬ,      ᫠,
 ࠥ).

     ਢ ணࠬ    祭  ⠭
᫠.

     5.2.2.  ।   ⥫ ॡ-
: ᫨ ⠭ ᮪  筮 ,   -
६ val:real ᫥   祭.

     襭.    ⥭ ஡  ᯮ ६
step - ⥫  ᫥饩 筮 .

    state := Initial; val:= 0;
    while (state <> Accept) or (state <> Error) do begin
    | if state = Initial then begin
    | | if Next = ' ' then begin
    | | | state := Initial; Move;
    | | end else if Digit(Next) then begin
    | | | state := IntPart; {᫥ 砫 楫 }
    | | | val := DigitValue (Next);
    | | | Move;
    | | end else begin
    | | | state := Error;
    | | end;
    | end else if state = IntPart then begin
    | | if Digit (Next) then begin
    | | | state := IntPart; val := 10*val + DigitVal(Next);
    | | | Move;
    | | end else if Next = '.' then begin
    | | | state := DecPoint; {᫥ 筮 窨}
    | | | step := 0.1;
    | | | Move;
    | | end else begin
    | | | state := Accept;
    | | end;
    | end else if state = DecPoint then begin
    | | if Digit (Next) then begin
    | | | state := FracPart;
    | | | val := val + DigitVal(Next)*step; step := step/10;
    | | | Move;
    | | end else begin
    | | | state := Error; {    }
    | | end;
    | end else if state = FracPart then begin
    | | if Digit (Next) then begin
    | | | state := FracPart;
    | | | val := val + DigitVal(Next)*step; step := step/10;
    | | | Move;
    | | end else begin
    | | | state := Accept;
    | | end;
    | end else if
    | | {⠪    }
    | end;
    end;

     5.2.3.   , ᫨ ।  ᫮      
""   "" (  祣  ).

     ଠ  ᥫ   ⮩  筮  ⠪ -
⨭:

   -----      ---------
---| + |---->-|  |-------->--------------------->
 | -----  | | --------- | |                      |
 | -----  | |           | | -----     ---------  |
 |-| - |--| |----<------| |-| . |->---|  |--|
 | -----  |                 -----   | --------- |
 |        |                         |-----<-----|
 |--->----|


     5.2.4.    , ᫨  ⮬  ᫥ ᫠  -
 ⥫ ⥯ ,     254E-4  (=0.0254)    
0.123E+9 (=123000000).  ᮮ⢥ ⨭.

     5.2.5.     ணࠬ    5.2.2,  ⮡
ࠧ  楫  ஡  (  '1.', '.1'  -
 '.' - ᫥ ᫮ ⠥ ࠢ )?

       ୥     ⮬⠬   10 (ࠢ 
ࠧ殬).
