
     9.  
    ~~~~~~~~~~~~~~~~~~~~~~

     ࡮-᪠ ।ᬮ७ 㤮  ப  ⨯  
ࠡ⪨ ப  ᨬ,  ..  ᫥⥫쭮⥩ ᨬ.
ப ⨯ -   ⨯,       宦
 ⨯ ARRAY (.   10). ,    ਭ-
樯쭮 ⫨稥: ᫮ ᨬ  ப (..  ப)
  ᪨  0   孥 ࠭,
  ६  ᫮ ⮢ ᨢ ﭭ.


    । ப ⨯
    ===========================

    । ப  ⨯   㪠뢠 ᨬ쭮
᫮ ᨬ,  ஥  ᮤঠ ப    ⨯,
.. ᨬ  ப  ⨯. । -
   १ࢨ஢  ᫮  STRING,      ᫥
ᨬ쭠  ப   ᪮.  -  -
 ⠭  1  255.  ⨬,   ப   
 㬮砭:  ᥣ   㪠.

ਬ:
-------

    type
      FileName = string[14];
      ScreenLine = string[80];

    ப ६      ᨬ-
     , ᮤঠ騩  ⥪ . -
 ᨬ  ப   1   ப.


    ப ࠦ
    ===================

    樨  ப 믮    -
. ப ࠦ      ப  ⠭,
ப ६, 㪠⥫ 㭪権  権.
     "+"   ᯮ짮   ⥭樨  (楯-
) ப.  㭪 CONCAT (. ࠧ "㭪 CONCAT"  ⮩
) 믮   㭪,   "+"   㤮.
᫨  १  255, 䨪 訡 ਮ -
.

ਬ:
--------

    'TURBO '+'Pascal'   = 'TURBO Pascal'
    '123'+'.'+'456'     = '123.456'
    'A '+'B'+' C '+'D'  = 'A B C D'

    樨 ⭮襭  =  <>  >  <  >=  <=   訩 -
, 祬    ⥭樨.      ਬ 
ப ࠭,  १    祭  ⨯  BOOLEAN
(TRUE   FALSE).    ࠢ  ப  ᨬ
ࠢ ᫥ ࠢ.  ᫨ ப  ࠧ , 
 ᨬ  ,   ᪫祭 ᫥ ᨬ 
 ப,  ⪠ ப ⠥ 襩. ப
ࠢ  ᮡ ⮫쪮  ⮬ 砥, ᫨    ᮤঠ-
 .

ਬ:
--------

    'A' < 'B'                                 true
    'A' > 'b'                                 false
    '2' < '12'                                false
    'TURBO' = 'TURBO'                         true
    'TURBO ' = 'TURBO'                        false
    'Pascal Compiler' < 'Pascal compiler'     true



    ப ᢠ
    ======================

     ᢠ ப ६  祭  ப
ࠦ ᯮ  ᢠ.

ਬ:
-------

    Age:='fiftieth';
    line:='Many happy returns on your '+Age+' birthday';

    ᫨ ᨬ쭠  ப ६  ॢ襭  (
१ ᢠ ६ 祭,  ᮤঠ饣 ᫨-
  ᨬ),  譨 ᨬ  ࠢ  ᥪ.  ,
᫨ ६ Age 뫠   STRING[5], ᫥ ᢠ-
  㤥 ᮤঠ ⮫쪮 5  ᨬ: 'fifti'.



    楤 ࠡ⪨ ப
    =========================

     ࡮-᪠ । ᫥騥 ⠭ 楤,
ࠡ騥  ப:

    楤 DELETE
    ----------------
    ⠪: DELETE(St,Pos,Num);

     楤  㤠 ப,  ᮤঠ Num ᨬ,
 ப St, 稭  樨 Pos. ᫨ Pos , 祬 ⥪-
   ப,      ᨬ  㤠.   ⪥
㭨⮦ ᨬ  殬 ப (.. ᫨ Pos+Num ॢ-
  ப) 㤠 ⮫쪮 ᨬ,  ਭ騥 -
. ᫨ Pos  室   1..255, 䨪 訡-
 ਮ 믮.

    ᫨ St  祭 'ABCDEFG', 

    DELETE (St,2,4)  ᢮ St 祭 'AFG',
    DELETE (St,2,10) ᢮ St 祭 'A'.


    楤 INSERT
    ----------------
    ⠪: INSERT(Obj,Target,Pos);

    楤 INSERT ⠢ ப Obj  ப Target,  -
稭  樨 Pos.  Obj -  ப ࠦ,  Target  -
ப ६,  Pos -  楫 ࠦ. ᫨ Pos -
蠥  Target,  ப Obj ᮥ ࠢ  ப
Target. ᫨  Pos  ਭ  1..255,  䨪
訡 ਮ 믮.

    ᫨ St  祭 'ABCDEFG', 

    INSERT ('XX',St,3) ᢮ St 祭 'ABXXCDEFG'.


    楤 STR
    -------------
    ⠪: STR(Value,St);

     楤 ८ࠧ ᫥ 祭 Value  ப
  १  St.  Value -  ࠬ 뢮 ⨯
INTEGER  REAL,  St -  ப ६. ࠬ -
 -  ࠦ  ᯥ樠묨   ଠ஢.
஡  ⮬  㧭  ࠧ,  饭 -
 WRITE   14.


    ᫨ ६ I  祭 1234, :

    STR(I:5,St) ᢮ St 祭 ' 1234'.

    ᫨ ६ X  祭 2.5E4, :

    STR (X:10:0,St) ᢮ St 祭 '      2500'.


    㭪, ᯮ 楤 STR,     -
뢠  ࠦ  ஢ WRITE  WRITELN.



    楤 VAL
    -------------
    ⠪: VAL(St,Var,Code);

     楤  ८ࠧ  ப  ࠦ St  楫
 ⢥ 祭 (  ᨬ    ⨯  ६
Var)    祭  ६ Var. St  
ப, ᮤঠ饩 ᫥ 祭  ᮣ᭮  ࠢ  
᫮ ⠭ (.  ࠧ "᫠"   4).   騥,
 楢 ஡  ࠧ.  Var   楫  
⢥  ६,   Code   楫 ६.
᫨ 訡  㦥, ६ Code ⠭  0,
 Code ਭ 祭 樨 ࢮ 訡筮 ᨬ-
,  ⮬ 砥 祭 Var  ।.

    ᫨ St  祭 '234', :

    VAL (St,I,Result) ᢮ I 祭 234,   Result - -
                      祭 0;

    ᫨ St  祭 '12X', :

    VAL (St,I,Result) ᢮  I  ।  祭,  
                      Result - 祭 3;

    ᫨ St  祭 '2.5E4'  X  ⨯ REAL, :

    VAL (St,X,Result) ᢮ X 祭 2500,  Result - -
                      祭 0.

    㭪, ᯮ 楤 VAL,     -
뢠  ࠦ  楤 WRITE  WRITELN.



    㭪樨 ࠡ⪨ ப
    =======================

     ࡮-᪠  । ᫥騥 ⠭ ப
㭪樨:


    㭪 COPY
    ------------
    ⠪: COPY(St,Pos,Num)

     㭪 頥 ப,  ᮤঠ Num  ᨬ
ப St, 稭  樨 Pos. St -  ப ࠦ,
Pos  Num - 楫 ࠦ.  ᫨ Pos ॢ蠥   ப,
頥  ப. ᫨  ⪠  ᨬ-
  殬 ப (..  Pos+Num ॢ蠥    ப),
 ⮫쪮 ᨬ  ப.  ᫨ Pos  室 
 1..255, 䨪 訡 ਮ 믮.

    ᫨ St  祭 'ABCDEFG', :

    COPY (St,3,2)   ୥ 祭 'CD',
    COPY (St,4,10)  ୥ 祭 'DEFG'
    COPY (St,4,2)   ୥ 祭 'DE'


    㭪 CONCAT
    --------------
    ⠪: CONCAT(St1,St2[,..,Stn])

     㭪  頥 ப,  祭 ⥬ 楯
㬥⮢  ⮬ 浪,   ஬   㪠.  㬥⠬
   ᫮ ப ࠦ St1,St2,..,Stn, ࠧ-
 묨.  ᫨  १ ॢ蠥 255, 䨪-
 訡  ਮ  믮.   뫮 㪠  ࠧ
"ப ࠦ"  9,   "+"   ᯮ-
  祭 ⮣  १,     㤮-
.  㭪  CONCAT  ।ᬮ७  ⮫쪮  ᮢ⨬ 
㣨 ࠬ  몠 ᪠.

    ᫨ St1    祭  'TURBO'  St2  祭 'is
fastest', :

    CONCAT(St1,' Pascal ',St2) ୥ 祭 'TURBO Pascal is
fastest'.


    㭪 LENGTH
    --------------
    ⠪: LENGTH(St)

    頥  ப ࠦ St, .. ᫮ ᨬ-
  St.   १ - INTEGER.

    ᫨ St  祭 '123456789', :

    LENGTH (St) ୥ 祭 9.


    㭪 POS
    -----------
    ⠪: POS (Src,Trg)

     㭪  "ᬠਢ"  ப Trg  ᪠ ࢮ
宦 ப Src  ப Target.  Src  Trg - ப
ࠦ, ⨯ १ - INTEGER. ⮬  楫
᫮, 饥   Trg ࢮ ᨬ ᪮  -
窨.  樨 ࢮ ᨬ ࠢ 1. ᫨ ப 
, 頥 祭 0.

    ᫨ St  祭 'ABCDEFG', :

    POS ('DE',St) ୥ 4,
    POS ('H',St)  ୥ 0.



    ப  ᨬ
    ================

    ப ⨯ STRING  ⠭ ⮩  ⨯  CHAR  ᮢ-
⨬. ⮬ ,   । ப 祭,
    ᠭ 稭 ⨯ CHAR   .
 ⮣,  稭 ப  ᨬ쭮 ⨯  ᬥ-
訢  ࠦ.  ᫨ ६ ⨯  CHAR  ᢠ
ப 祭,  ⮩ ப   ࠢ 1, -
  訡 ਮ 믮.
     ⤥      ᨬ  ப  -
 ஢.    ⨣  ⥬    -
᭮ ࠦ 楫 ⨯, 祭   ᪮-
,   ப ६.

ਬ:
--------

    Buffer [5]
    Line [Length(Line)-1]
    Ord (Line[0])

    ᫥⢨ ⮣,    砫 ப    0  ᮤ-
  ப, ࠢ ᫥饥 ࠢ⢮:

    Length (Line) = Ord (Line[0]).

    ᫨ 㫥  ᨬ ப ᢠ - -
祭,  ⢥⢥  ,  ⮡ ᢠ  祭
 ॢ蠫  ᨬ쭮     ப ६,
  ணࠬ. ᫨ 祭 ० ஢ન 
(४⨢ {$R+} ),  ,  ஢-
,  祭  ப   ॢ室  ᨬ
 ப ६.     , ॢ-
騩 ⥪   ६.  ⮬ ⠥
 ப ᨬ  砩묨,  ᢠ  ।
⥪饩  ப   ⢨⥫쭮 祭 ப-
 ६.
