
     17.    
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

     䠪,  । ⥬ ࡮ 믮 ।஢-
 ⮫쪮  , ࠭稢 ࠧ 室 ⥪⮢ ண-
ࠬ. ४⨢  I   ᯮ짮  ⮣,
⮡     ࠭祭,  ᪮   
ࠧ 室 ⥪     ࠡ      㦭
᫥⥫쭮  樨.  ⮣, ।⢮ -
祭   襩 ᭮  ⠡쭮 ண-
ࠬ, ᪮  ᯮ㥬 ணࠬ, ⫠ -
,  ࠭  "⥪" 䠩,    ன  
    ணࠬ   室.

    ⠪ ४⨢  I:

    {$I FileName}

     FileName -   ⨬  䠩.  ஡ -
,   㪢  ८ࠧ    ᮮ⢥騥
. ᫨   㪠 ⨯ 䠩,   㬮砭 ਭ
⨯ .PAS .  ४⨢   ᠭ  ⤥쭮 -
 ணࠬ.

ਬ:
--------

    {$I first.pas}
    {$I COMPUTE.MOD}
    {$I StdProc }

       ,    䠩    -
 ७  (⨯),      䠩  뢠饩
䨣୮ ᪮  ⠢ ஡;    ⨢  砥
䨣ୠ ᪮ 㤥 ਭ    䠩.

    ⮡ த஢ ᯮ짮 ।⢠ 祭
䠩 ।,   襩 "⥪"  ᯮ㥬
楤  㭪権  䠩   STUPCASE.FUN.  
ᮤন 㭪 STUPCASE,   뢠   ᨬ  
ப   ⢥ ࠬ  頥 祭 ⮣ -
,  ஬   㪢   ᮮ⢥騥
.

    ন 䠩 STUPCASE.FUN:

    function StUpCase(St:AnyString):AnyString;
    var
      I: Integer;
    begin
      for I:=1 to Length(St) do
        St[I]:=UpCase(St[I]);
      StUpCase:=St;
    end;


    ᫨   ணࠬ,    ,  㦭 ८ࠧ
ப 㪠 ࠧ,    㦭  ⮫쪮    䠩
STUPCASE.FUN   樨,   ⮣,  ⮡ ९뢠
 ⥪:

    program IncludeDemo;
    type
      InData = string[80];
      AnyString = string[255];
    var
      Answer: InData;
    {$I STUPCASE.FUN}
    begin
      ReadLn(Answer);
      WriteLn(StUpCase(Answer));
    end;

    ⮨⢮ ⮣ ⮤  ⮫쪮  ⮬,       
  ,     ⮬,     
 ணࠬ    , ᪮ 
   "筮" ணࠬ ⮬᪨ 
   ணࠬ,   ᥡ  ணࠬ.

     ⬥,   ࡮-᪠ ᪠ ந
冷   ⭮ 宦 ࠧ ࠧ -
.   ⮬  ᪮쪮 䠩,  ᮤঠ ࠧ-
   ᯮ㥬  । ⨯    
ࠧ ணࠬ.

     ४⨢ ,   ᪫祭 B  C,  
묨  ⭮襭  䠩,  ஬  , ..
᫨  砥 䠩 ன ४⨢ ⠭  -
祭, ⫨筮   ⮣,  ஥    ᭮ 䠩,
 ᫥    ᭮ (騩) 䠩 㤥 -
⠭ ࢮ砫쭮 祭 ⮩ ४⨢. ४⨢ B 
C  묨. ਫ C ᮤন ᠭ ४⨢
.

    砥 䠩    묨,  .. 砥-
 䠩   ᮤঠ ४⨢ 祭 㣮 䠩
 ᫥騬 த ࠡ⪨.
