
     11. 
    ~~~~~~~~~~~~~~~~

     -   ,    䨪஢ ᫠
, 뢠 .     ࠧ ⨯;
   ᢠ   -  ,  ஥
ᯮ  饭  ⮬ .



    । 
    ==================

    । ⨯  ⮨  १ࢨ஢ ᫮
RECORD,   ᫥  ,  稢騩  -
ࢨ஢ ᫮ END. ᮪  -  ᫥⥫쭮
 , ࠧ 窠  ⮩.  ᥪ -
,  ᢮ ।, ⮨     䨪-
஢, ࠧ 묨,  묨 ᫥ 稥  
 ,    .  ࠧ, 
ᥪ  । 䨪  ⨯    -
 .

ਬ:
-------

    type
      DaysOfMonth = 1..31;
      Date        = record
                      Day:   DaysOfMonth;
                      Month: (Jan,Feb,Mar,Apr,May,Jun,
                              July,Aug,Sep,Oct,Nov,Dec);
                      Year:  1900..1999;
                    end;
    var
      Birth:   Date;
      WorkDay: array [1..5] of Date;

      ਬ Day, Month  Year -  䨪 -
. 䨪    㭨묨 ⮫쪮  -
 ,  ன  ।.    ᫠
⥬ 㪠 䨪 ६  䨪 ,
ࠧ 窮.

ਬ:
--------

    Birth.Month:=Mar;
    Birth.Year:=1962;
    WorkDay [Current]:=WorkDay [Current-1];

    ⬥⨬,       ᨢ,   ᥩ ᪠
ᢠ 祭  ﬨ  ⨯. ᪮-
 ⠬      ⨯,  -
묨  樨,  ⮩,   , 
 ᮤন  ,  ,   ᢮ ।,  ⮦
ᮤন .


    type
      Name   = record
                 FamilyName: string[32];
                 ChristianNames: array [1..3] of string[16];
               end;
      Rate   = record
                 NormalRate, OverTime,
                 NightTime, WeekEnd: integer;
               end;
      Date   = record
                 Day: 1..31;
                 Month: (Jan,Feb,MAr,Apr,May,Jun,
                         July,Aug,Sep,Oct,Nov,Dec);
                 Year:  1900..1999;
               end;
      Person = record
                 ID:   Name;
                 Time: Date;
               end;
      Wages  = record
                 Individual: Person;
                 Cost: Rate;
               end;

    var
      Salary, Fee: Wages;


    ᫥  ।  ᫥騥  ᢠ-
:

    Salary:=Fee;
    Salary.Cost.OverTime:=950;
    Salary.Individual.Time:=Fee.Individual.Time;
    Salary.Individual.ID.FamilyName:='Smith';


     WITH
    =============

    ᯮ짮 ᥩ  ⮬ ,       ,
 ਢ   室 祭  ஢,   
⮬ ᫥ 뫮  㤮   ⤥  
   ६.    ⮣  ।祭 -
 WITH:   "뢠"  ⠪,  䨪 -
  ᯮ짮  䨪 ६.

     WITH ⮨  १ࢨ஢ ᫮ WITH,  
 ᫥: ᯨ᮪ ६ ⨯ RECORD, ࠧ -
묨, १ࢨ஢ ᫮ DO , , .
       WITH  砥 ⮫쪮 ᢮ -
䨪஬, ..  䨪 ६-:

    with Salary do
      begin
        Individual:=NewEmployee;
        Cost:=StandardRates;
      end;

    ᪠  ஢ WITH,  ..  "⨥"
ᥩ  㣨 ᥩ. ਬ, :

    with Salary,Individual,ID do
      begin
        FamilyName:='Smith';
        ChristianNames [1]:='James';
      end;

    ⭠ ᫥饩:

    with Salary do
      with Individual do
        with ID do
          . . .

    ᨬ쭠 㡨  ஢ WITH, ࠧ㬥-
  㬮砭, ࠢ 2,    ४⨢ W -
   祭     ⠭ ࠢ  0  9.
    WITH ॡ  ⮢    
 ࠧ襭 ஢ .  ⮬,   
  ஢ WITH 室  ন  
   ஢.


      ਠ⠬
    ===================

    ⠪ ⨯ RECORD ।ᬠਢ ⠪ 稥 ਠ-
⭮ ,    ࣠뢠 ୠ⨢ -
 ᥩ ⠪, ⮡   ᥩ  -
ঠ ࠧ筮 ᫮  ࠧ ⨯, 筮  -
ᨬ  ண  .

    ਠ⭠   ⮨   ਧ ࠭ ।-
 ⨯,    ᫥ ⪨,  ᮮ⢥騥  
 祭    ਧ.    祭  
ਧ । ࠧ  ਠ  ,      ⪠
   ,    ।  ⨯  ਠ,
ᮮ⢥饣  ⪥.

    । ⢮ ⨯:

    Origin = (Citizen,Alien);

     ⨯  Name  Date,  ।   ।饬 ਬ.

    ࠧ    ᨬ
 祭  ਧ CitizenShip: Citizen  Alien.

    type
      Person = record
                 PersonName: Name;
                 BirthDate:  Date;
                 case CitizenShip: Origin  of
                      Citizen: (BirthPlace: Name);
                      Alien:   (CountryOfOrigin: Name;
                                DateOfEntry    : Date;
                                PermittedUntil : Date;
                                PortOfEntry    : Name);
               end;


     ⮬  ।      ਠ⠬     ਧ
।⠢ ᮡ  ᠭ , ஥  
 ,    类 㣮 . ⥫쭮, ᫨ -
६ Passenger  ⨯ Person,     -
  ⨬묨:

    Passenger.CitizenShip:=Citizen;
    With Passenger,PersonName do
      if CitizenShip=Alien then
         Writeln (FamilyName);


    ஢  ,  ..  ,  ᮤঠ 騥
,  ᥣ ।⢮ ਠ⭮ .  ।-
饬 ਬ  PersonName  BirthDate -  䨪஢ -
.     ⮫쪮  ਠ .  -
⢨ 㣫 ᪮  ਠ  易⥫,  -
    ᥡ .

    ࡮-᪠  ⢥砥  ⠭ ᮮ⢥ -
祭     ਧ:  ⢥⢥    
ணࠬ. ⥫쭮,        ⨯  Person
   DateOfEntry    ⮣,  -
祭  ਧ CitizenShip  ࠢ Alien.   ⢨⥫-
 䨪  ਧ    饭,  
᪫祭 䨪 ⨯.     ਠ⠬ -
뢠  ,   ⨢ ਠ-
⠬ ᥩ    ਧ,    뢠  
.  ꥤ ਬ ।  
ᯮ짮 ⮫쪮 묨 ணࠬ⠬.
