
     8.    
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    ᭮묨 ⨯   ᪠      ⨯.
 ⨯  ।⠢  ᮡ 筮   㯮冷-
祭 ⢮ 祭.   ⠭ ⨯ REAL 祭 
᫮  ⨯,   㤮⢮ ⮬ ।. -
⮬ ⨯ REAL    ᯮ짮     ,
 ᯮ 㣨  ⨯.



    ⮩ ⨯
    ===========

       ⠭   ⨯  (INTEGER,  REAL,
BOOLEAN, CHAR  BYTE) ᪠ ন  ⨯,  -
 짮⥫.    ⠪   뢠   묨
묨 ⨯.  ।  ⮣ ⨯   -
浪    祭.  祭   ⨯  
 ।⠢ 䨪ࠬ   ⠭⠬ -
 ⨯.

ਬ:
--------

    type
      Operator=(Plus,Minus,Multi,Divide);
      Day     =(Mon,Tues,Wed,Thur,Fri,Sat,Sun);
      Month   =(Jan,Feb,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec);
      Card    =(Club,Diamond,Heart,Spade);

    ६ ᫥ ⨯ Card  ਭ   -
 祭,   :  Club, Diamond, Heart, Spade.  㦥
  ⠭ ⨯ BOOLEAN,  । :

    type
      boolean=(False,True);

    樨 ⭮襭  =  <>  >  <  >=  <=   ਬ-
  ᥬ  ⨯, ᫨  ࠭ ਭ  -
  ⮬  ⨯ (⨯ INTEGER  REAL  ᬥ訢).  -
 祭 ⮣ ⨯  ᭮  ࠢ, ..
冷,   ஬  ᫥  祭   । ⨯.
,  ⨯ Card:

    Club < Diamond < Heart < Spade

    । ᫥騥 ⠭  㭪樨    㬥⠬
⮣ ⨯:

    Succ(Diamond) ᫥⥫ Diamond (Heart)
    Pred(Diamond) ।⢥ Diamond (Club)
    Ord (Diamond) 浪  Diamond (1, ᪮ -
                    ࢮ  祭  ⮣  ⨯
                  ࠢ 0).



    ࠭祭 ⨯
    ================

       ।        १
㣮, ࠭ । ⮣ ⨯.  ⨯ 뢠
࠭祭묨 ⨯  १ ⨯.  ।  ࠭-
祭  ⨯  ᮤন 襥  襥 祭.
ࢠ ⠭ ।  ࠭        
, 祬  ⠭, ।  ࠭. -
१ ⨯ REAL  ࠧ.

ਬ:
--------

    type
      HemiSphere   =(North,South,East,West);
      World        =(East..West);
      CompassRange =0..360;
      Upper        ='A'..'Z';
      Lower        ='a'..'z';
      Degree       =(Celc,Fahr,Reom,Kelv);
      Wine         =(Red,White,Rose,Sparkling);

     ⮬ ਬ ⨯ WORLD  ࠭祭 ⮣ -
 HEMISPHERE,   뢠   ⨯. -
 ⮩ ⨯  COMPASSRANGE -  ⨯ INTEGER,   ⨯
UPPER  LOWER - ⨯ CHAR.
     㦥   ⠭ ࠭祭 ⨯ BYTE,  -
 । :

    type
      Byte = 0..255;

    ࠭祭 ⨯  ࠭   ᢮⢠  ⮣
⨯,  ࠭祭 ⮫쪮  祭.
    ᯮ짮   ⨯  ࠭祭  -
  ⥫쭮  ४    襭  ⠡쭮
ணࠬ.  ⮣,  ࠧ "஢ઠ ࠭" , 
  ⥪  ணࠬ    ⠪ ஢ન,   
६ 믮 ணࠬ ஫ 祭, ᢠ
६    ⮣ ⨯  ࠭祭 ⨯.
㣮 २⢮ ⠪ ⨯ ⮨  ⮬,      
  .  ६  -
 ⨯  ࠭祭 ⨯,  饥 ᫮ ⮢  
 ॢ室 256, ࡮-᪠ 뤥 ⮫쪮   -
.


    ८ࠧ ⨯
    ====================

    㭪 ORD      ᯮ짮    ८ࠧ
 ⨯  祭 ⨯ INTEGER. ⠭ ᪠  -
ᬠਢ   ,  ..  ८ࠧ INTEGER 
祭 ⮣ ⨯.
     ࡮-᪠  祭 ⮣ ⨯   ८-
  祭 㣮 ⮣ ⨯  ⥬  浪 -
஬.  ⮣ 㦭  䨪 ॡ㥬 ⨯ 
 맮 㭪樨  ࠬ஬  㣫 ᪮.  ࠬ஬
  祭  ⮣ ⨯,   ᪫祭 REAL.
,  । ⨯  ਬ஢  । ࠧ
ࠢ ᫥饥:

    Integer(Heart)=2
    Month(10)     =Nov
    HemiSphere(2) =East
    Upper(14)     ='O'
    Degree(3)     =Kelvin
    Char(78)      ='N'
    Integer('7')  =55


    ஢ઠ ࠭
    ===============

     , ᯥ稢饣  ६ 믮 ஢-
 ࠭  ६ ⮣  ࠭祭 ⨯,  ࠢ-
 ४⨢  R  .    㬮砭   ਭ
{$R-}, ..   ⢨   ⠪  ஢ન.    믮
ᢠ ६ ⮣  ࠭祭 ⨯  ᫮-
 ⢨  ⮩  ४⨢:  {$R+},  ᢠ 祭
஢  宦    ⨯. ⨬ ४-
 짮     ,   ணࠬ  㤥 -
 ⫠.

ਬ:
-------

    program RangeCheck;
    type
      Digit=0..9;
    var
      Dig1,Dig2,Dig3: Digit;
    begin
      Dig1:=5;          { ୮ }
      Dig2:=Dig1+3;     { ୮, ᪮ DIG1+3<=9     }
      Dig3:=47;         { ୮,   뢠 訡 }
      {$R+} Dig3:=55;   { ୮  ਢ  訡 믮 }
      {$R-} Dig3:=167;  { ୮,   뢠 訡 }
    end.
