
     7. 
    ~~~~~~~~~~~~~~~~~~

     ୮   । ⢨,   
 믮 ணࠬ ( ணࠬ).  ⢨ -
।  ଥ ᫥⥫쭮 ,   -
  -   饣 ⢨.  ⮬ ᫥
᪠  ।⠢ ᮡ   ᫥⥫쭮 ணࠬ-
஢:   믮 ᫥⥫쭮  ६  
  - ࠫ쭮.  ୠ  ࠭稢 ன
१ࢨ஢ ᫮ BEGIN  END,      -
    㣠 窮  ⮩.    
  .


     
    =================

      -  ,  ᮤঠ騥  -
 㣨 .   ⮩ 㯯 ⭮  ᢠ-
,   맮  楤,   室  ⮩
.


     ᢠ
    ---------------------

     㭤⠫    ஢  
ᢠ.  㪠뢠,  ன ६ ᢠ-
 । 祭. ᢠ ⮨  䨪-
 ६,    ᫥  ᢠ :=  -
ࠦ.

     ᢠ ६   ⨯  (஬  ⨯
FILE) 祭  ࠦ ⮫쪮 ⮣  ⨯.   ᪫祭,
᫨ ६    ⨯  REAL,  ⨯  ࠦ    
INTEGER.

ਬ:
--------
    Angle := Angle * Pi;
    AccessOk := False;
    Entry := Answer = PassWord;
    SpherVol := 4 * Pi * R * R;


    맮 楤
    ---------------

     맮 楤 (ணࠬ) 㦨  ⨢-
樨 ।⥫쭮 ।  楤  짮⥫  
।। ⠭⭮  楤.    ⮨  
䨪 楤,    ᫥ ᯨ᮪ -
ࠬ஢,     ᯨ᪮  ६  ࠦ,
ࠧ 묨,   祭  㣫 ᪮.   -
塞 ணࠬ 砥  맮 楤,  -
ࠢ । ⮩ 楤,  ⮬  । -
祭 ࠬ஢.    砭 楤 믮 ணࠬ
த  ,  ᫥饣  ஬ 맮 -
楤.

ਬ:
--------
    Find (Name,Address);
    Sort (Address);
    UpperCase (Text);
    UpdateCustFile (CustRecord);


     室
    -----------------

     室 ⮨  १ࢨ஢ ᫮ GOTO,
  ᫥ 䨪 ⪨.   㦨  ।
ࠢ , 祭 㪠 ⪮.  ᯮ-
  GOTO 室 ᮡ ᫥騥 ࠢ:

    1) ⪨     ।  ᯮ짮.  
          ࠧ ᠭ ⮪ ⮣ , 
        ⪨ ᯮ;
    2)  ⢨ ⮪ ࠭祭 ⥬ ,   ஬
         .  ⮬   । ࠢ
        楤  㭪樨,   .


    ⮩ 
    ---------------

    "⮩ " -  ,   ᮤঠ騩   
ᨬ     믮騩  ⢨.     -
짮 ⠬,  ᨭ⠪ ᪠ ॡ  ,
  ⢨ 믮  㦭.

ਬ:
--------
    begin end.
    while Answer<>' ' do;
    repeat until KeyPressed; {    }


     
    =====================

      -   樨,  ⠢  
㣨 ஢,     믮 ᫥⥫쭮
(⠢ ), ᫮ (᫮ )  -
⭮ (  横).  㦤  WITH ⫮ 
 11.


    ⠢ 
    ------------------
    ⠢   ᯮ,  ᫨ 㦭 믮 -
, 祬   ⠬,  ᨭ⠪ ᪠ ᪠ -
 ⮫쪮   .  ⠢  ।⠢
ᮡ ᫥⥫쭮   ᫠ ஢,  ࠧ-
 ᨬ  ";"    ࠭祭  १ࢨ஢묨  ᫮
BEGIN  END.     믮  ⮩  ᫥-
⥫쭮,  ன  ᠭ.

ਬ:
-------
    if Small > Big then
       begin
         Tmp:=Small;
         Small:=Big;
         Big:=Tmp;
       end;



    ᫮ 
    ------------------

    ᫮   롨ࠥ    믮 ⮫쪮  
室   ⠢ ஢.


     IF
    - - - - - -

     IF  ᯥ稢  믮 - 
⮫쪮 ᫨ ஥ ᫮ (ࠦ  ⨯  BOOLEAN)  㤥
⨭. ᫨  ,    㤥 , 
믮 㣮 , ᠭ ᫥ १ࢨ஢
᫮ ELSE.  ⨬,    ᫮ ELSE   ।⢮
ᨬ ";" .

    ᫥       ᫥饩     ᨭ⠪᪮
樨:

    if Expr1 then
       if Expr2 then
          Stmt1
       else
          Stmt2

    ࠭ ⥬ 樨 ⮩ 樨 :

    if Expr1 then
       begin
         if Expr2 then
            Stmt1
         else
            Stmt2
       end

    ..   ELSE ᮮ⢥ ᫥  IF,  
饬 ⢨ ELSE.


ਬ:
--------

    if Interest > 25 then
       Usury:=true
    else
       Takeloan:=OK;

    if (Entry < 0) or (Entry > 100) then
       begin
         Write('  1  100,  : ');
         Read (Entry);
       end;


     CASE
    - - - - - - -

     롮  CASE  ⮨    ࠦ (ᥫ) 
ᯨ᪠ ஢,     । ⪠ -
 ⮣  ⨯,    ᥫ.  뢠 믮 ⮣
 ஢ ᯨ᪠,   ⪠ ਠ ࠢ ⥪饬 -
  ᥫ.  ᫨     ⮪ ਠ  ᮢ 
⥪騬 祭 ᥫ,    ⠪  롮 -
⥭ ⮬ ,   믮 , ᫥-
騥  १ࢨ஢ ᫮ ELSE.  ELSE  
롮  ७ ⠭ ᪠.

    ⪠ ਠ ⮨   ᫠ ⠭  -
, ࠧ 묨;    ᫥ 稥. -
 뢠   ⠭, ࠧ  -
 騬 窠.   ⠭  ᮢ  ⨯ -
. ,  ᫥騩  ⪮ ਠ,  믮,
᫨ ⥪饥 祭 ᥫ ࠢ   ⠭  -
    .

     ᥫ    ⮩ ⨯, ஬ REAL.

ਬ:
--------

    case Operator of
         '+': Result:=Answer+Result;
         '-': Result:=Answer-Result;
         '*': Result:=Answer*Result;
         '/': Result:=Answer/Result;
    end;


    case Year of
         Min..1939: begin
                      Time:=PreWorldWar2;
                      Writeln('  ...');
                    end;
         1946..Max: begin
                      Time:=PostWorldWar2;
                      Writeln('஥  .');
                    end;
                 else
                    begin
                      Time:=WorldWar2;
                      Writeln ('  ६ ');
                    end;
    end;




     横
    ---------------

     ७ (横) 뢠 ⭮ 믮-
   ஢.  ᫨ ⢮ ७ ⭮
 砫 横,   ਬ  FOR.  㣨 
㦭 ᯮ짮    WHILE   REPEAT (横  ࠭
 ᫮ ७).



     FOR
    - - - - - - -

     FOR 뢠,  室騩   ⠢ 
 ⭮  믮    㢥祭  㬥襭
祭, ᢮ ன ६,  뢠
ࠢ饩 ६   .  ᫨  祭
室 㢥稢,  ᯮ  १ࢨ஢  ᫮
TO,  ᫨ 㬥,   ᫮ DOWNTO,  ᫥ 祣 㪠뢠
筮 祭.

    ࠬ 横,    砫쭮   筮 祭 
   ⮣  ⨯. ᪠   ⨯, ஬
REAL.

    ᫨ 砫쭮 祭  筮 祭  ᯮ-
 ଠ TO,  ᫨ 砫쭮 祭  筮 
ᯮ ଠ DOWNTO, , 室騩  ⠢ -
 FOR,  믮  ࠧ.

ਬ:
--------

    for i:=2 to 100 do
      if A[I] > Max then
         Max:=A[I];

    for i:=1 to NoOfLines do
      begin
        Readln (Line);
        if Length(Line) < Limit then
           ShortLines:=ShortLines+1
        else
           LongLines:=LongLines+1
      end;

    ⨬,  ,  室騩  ⠢  FOR, 
 ᮤঠ ,  騥 祭 ࠬ 横-
. ᫨ 室 ४  横    ⨦  筮
祭, ᫥   ᯮ짮     GOTO,    ⠪
樨  ४:  襩 ணࠬ᪮ ࠪ-
  ⠪ 樨  ࠬ WHILE  REPEAT.

    ᫥ 襭  FOR ࠬ 横 ࠢ  -
 祭, ᫨ 横  믮,  ⨢ 砥
ࠬ 横  ᢠ  祭.



     WHILE
    - - - - - - - -

    ࠦ, ࠢ饥   横  WHILE,      ⨯
BOOLEAN.  㤥 믮   ,   ࠦ
⨭. ᫨    祭  ।  砫 横 ࠢ FALSE,
 믮  㤥.

ਬ:
--------

    while Size>1 do
      Size:=Sqrt(Size);

    while ThisMonth do
      begin
        ThisMonth:=CurMonth=SampleMonth;
        Process; { 쭥 ࠡ⪠ }
      end;


     REPEAT
    - - - - - - - -

    ࠦ, ࠢ饥  横  REPEAT,      ⨯
BOOLEAN. ᫥⥫쭮 ஢  १ࢨ஢묨
᫮ REPEAT  UNTIL 믮 ⭮   , 
ࠦ .   ⨢  WHILE  
REPEAT ᥣ  믮     ࠧ,  ⠪  ஢ઠ
᫮ ந  砭 横.

ਬ:
-------

    repeat
      Write(^M,'⮦   ? (Y/N): ');
      Read(Kbd,Answer);
    until UpCase(Answer) in ['Y','N'];
