Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Turbo Pascal / Stud_1_1 / Metlab / LABOR9 / DESUNIT
.PAS 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.
{ ѓ«®Ў «млҐ ®ЇЁб Ёп Є®бв в, вЁЇ®ў Ё ЇҐаҐ¬Ґле }
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