Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

Turbo Pascal / Stud_1_1 / Metlab / LABOR9 / DESUNIT

.PAS
Скачиваний:
91
Добавлен:
03.03.2016
Размер:
2.41 Кб
Скачать
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.
Соседние файлы в папке LABOR9