Stud_2_1 / Example / DESUNIT

UNIT DesUnit;
{ ѓ«®Ў «м­лҐ ®ЇЁб ­Ёп Є®­бв ­в, вЁЇ®ў Ё ЇҐаҐ¬Ґ­­ле }

Interface

Uses Crt;

Const
    MaxKodif = 50;      { ¬ Єб.Є®«-ў® Є®¬Ї®­Ґ­в®ў Є®¤ЁдЁЄ в®а  }
    Enter = 13;         { Є®¤ Є« ўЁиЁ "Enter" }
    PressKey = 'Ќ ¦¬ЁвҐ Є« ўЁиг "‚ ‚ Ћ „"';
Type
    ProductType = record       { вЁЇ Є®¬Ї®­Ґ­в   аеЁў  Ё§¤Ґ«Ё© }
      NumberShop : byte;       { ­®¬Ґа жҐе  }
             Kod : longint;    { Є®¤ Ё§¤Ґ«Ёп }
          Dimens : string[5];  { Ґ¤Ё­Ёж  Ё§¬ҐаҐ­Ёп }
           Price : real;       { 業  Ё§¤Ґ«Ёп }
            Plan,              { Ї« ­ ўлЇгбЄ  Ї® Ї®«гЈ®¤Ёп¬ }
            Fact               { д Єв.ўлЇгбЄ Ї® Ї®«гЈ®¤Ёп¬ }
                 : array[1..2] of real
    end;
    PointerProduct = ^DynProduct;
    DynProduct = record
         Inf : ProductType;
        Next : PointerProduct;
    end;
    KodifType = record       { вЁЇ Є®¬Ї®­Ґ­в  Є®¤ЁдЁЄ в®а  Ё§¤Ґ«Ё© }
      Kod  : longint;        { Є®¤ Ё§¤Ґ«Ёп }
      Name : string[35];     { ­ Ё¬Ґ­®ў ­ЁҐ Ё§¤Ґ«Ёп }
    end;
    KodifAr = array[1..MaxKodif] of KodifType;

    string80 = string[80];
    StringAr = array[1..10] of string80;

Var
    np : word;                 { Є®«-ў® Є®¬Ї®­Ґ­в®ў  аеЁў  }
    nk,                        { Є®«-ў® Є®¬Ї®­Ґ­в®ў Є®¤ЁдЁЄ в®а  }
    KeyRegime,                 { Є«оз ўлЎ®а  аҐ¦Ё¬  а Ў®вл }
    Device : byte;             { гбва®©бвў® ўлў®¤  १㫤мв в®ў: }
                               { 0 - нЄа ­; 1 - нЄа ­ Ё ¬ Ј­.¤ЁбЄ; }
                               { 2 - нЄа ­ Ё ЇаЁ­вҐа }
    SignArchive : boolean;     { ЇаЁ§­ Є ᮧ¤ ­Ёп  аеЁў  }
    Reply : char;              { бЁ¬ў®« ®вўҐв  ­  § Їа®б Їа®Ја ¬¬л }
    Product : ProductType;     { Є®¬Ї®­Ґ­в  аеЁў  }
    Lp,Rp,                     { «Ґўл© Ё Їа ўл© гЄ § вҐ«Ё ®зҐаҐ¤Ё }
    Run : PointerProduct;      { ⥪гйЁ© гЄ § вҐ«м ®зҐаҐ¤Ё  аеЁў  }

    Kodif : KodifType;         { Є®¬Ї®­Ґ­в Є®¤ЁдЁЄ в®а  }
    Kodifs : KodifAr;          { ¬ ббЁў Є®¬Ї®­Ґ­в®ў Є®¤ЁдЁЄ в®а  }

    St : StringAr;             { бва®ЄЁ ¤«п ЇҐз вЁ в Ў«Ёж }

    FileInput,                 { д ©« Ёб室­ле ¤®Єг¬Ґ­в®ў }
    FileAdd,                   { д ©« ¤®Ў ў«пҐ¬ле ¤®Єг¬Ґ­в®ў }
    FileKodif,                 { д ©« Є®¤ЁдЁЄ в®а  Ё§¤Ґ«Ё© }
    FileRes : text;            { д ©« १г«мв в®ў }
    FileOut                    {  аеЁў­л© д ©« Ё§¤Ґ«Ё© }
         : file of ProductType;

Implementation

End.