ОНИ / Гуменюк А.С / Цифровое моделирование систем передачи данных / GAS / GAS / (4)OPTIM / optimal

uses Gnk,Gnk2,Fkt,crt;
const
L=4; {¤«Ё­  Ў«®Є  Ё«Ё L-Ја ¬¬л}
Reg='B'; {Є«оз ¤«п Їа®жҐ¤га FBL,VIEW,KVT,DCF,SEG Ё STAT,
ЇаЁ­Ё¬ Ґв 2 §­ зҐ­Ёп:
'B'-Є®¤Ёа®ў ­ЁҐ Ё ¤ҐЄ®¤Ёа®ў ­ЁҐ Ў«®Є®ў;
'L'-Є®¤Ёа®ў ­ЁҐ Ё ¤ҐЄ®¤Ёа®ў ­ЁҐ L-Ја ¬¬;}
TF='T'; {Є«оз ¤«п Їа®жҐ¤га FPC,VIEW -
ЇаЁ­Ё¬ Ґв 2 §­ зҐ­Ёп:
'T' - ®Ўа Ў®вЄ  ⥪бв®ў®© Ё­д®а¬ жЁЁ;
'F' - ®Ўа Ў®вЄ  га®ў­Ґ© Єў ­в®ў ­Ёп;}
KBL=200; {¤«Ё­  Ёбб«Ґ¤гҐ¬®© ўлЎ®аЄЁ б®®ЎйҐ­Ё©}
LEN=10; { ¬ ЄбЁ¬ «м­®Ґ зЁб«® а §а冷ў нд䥪⨢­®Ј® Є®¤  }
INF=10; { а §а冷ў ¤ў®Ёз­®Ј® Ї®§ЁжЁ®­­®Ј® Є®¤  }
var
FF:text;
{д ©«®ў п ЇҐаҐ¬Ґ­­ п ¤«п бўп§Ё б ⥪бв®ўл¬ д ©«®¬,
®ЇаҐ¤Ґ«пҐ¬®Ј® Ї®«м§®ў вҐ«Ґ¬}

WT:array[1..KBL,1..L] of word; {¤ўг¬Ґа­л© ¬ ббЁў а §¬Ґа®¬ (KBL,L),
ᮤҐа¦ йЁ© ўбҐ б®®ЎйҐ­Ёп,Ў«®ЄЁ Ё«Ё
L-Ја ¬¬л;}
WP:array[1..KBL] of word;
{®¤­®¬Ґа­л© ¬ ббЁў ¤«Ё­®© KBL,
ᮤҐа¦ йЁ© ­®¬Ґа  б®®ЎйҐ­Ё©, Ў«®Є®ў Ё«Ё L-Ја ¬¬ ;}
PC:array[1..KBL,1..2] of word;
{¤ўг¬Ґа­л© ¬ ббЁў а §¬Ґа®¬ (KBL,2),ᮤҐа¦ йЁ©
ў 1-¬ бв®«ЎжҐ ­®¬Ґа  б®®ЎйҐ­Ё©, Ў«®Є®ў Ё«Ё L-Ја ¬¬,
  ў 2-¬ бв®«ЎжҐ - Ёе зЁб«  Ї®пў«Ґ­Ёп;}
DIF:word; {Є®«ЁзҐбвў® а §«Ёз­ле б®®ЎйҐ­Ё©, Ў«®Є®ў Ё«Ё L-Ја ¬¬ ў Ёбб«Ґ¤гҐ¬®©
ўлЎ®аЄҐ;}
TREE:array[1..KBL,1..3] of word;
{¤ўг¬Ґа­л© ¬ ббЁў а §¬Ґа®¬ (KBL,3),
ЇаҐ¤бв ў«пойЁ© "¤ҐаҐў®" ў ¬Ґв®¤Ґ • д䬥­ , Ё ᮤҐа¦ йЁ© :
ў 1-¬ бв®«ЎжҐ ­®¬Ґа  б®®ЎйҐ­Ё©,
Ў«®Є®ў Ё«Ё L-Ја ¬¬, Ё¬ҐойЁе Ў®«м襥 зЁб«® Ї®пў«Ґ­Ё©;
ў 2-¬ бв®«ЎжҐ ­®¬Ґа  б®®ЎйҐ­Ё©,
Ў«®Є®ў Ё«Ё L-Ја ¬¬, Ё¬ҐойЁе ¬Ґ­м襥 зЁб«® Ї®пў«Ґ­Ё©;
ў 3-¬ бв®«ЎжҐ ­®¬Ґа  ўбЇ®¬®Ј вҐ«м­ле "б®®ЎйҐ­Ё©",
Ї®«гз ойЁебп ў १г«мв вҐ б㬬Ёа®ў ­Ёп зЁбҐ« Ї®пў«Ґ­Ёп.}
KOD:array[1..KBL,1..LEN] of word;
{ ¤ўг¬Ґа­л© ¬ ббЁў а §¬Ґа®¬ (KBL,LEN),
ᮤҐа¦ йЁ© Є®¤®ўлҐ б«®ў  нд䥪⨢­®Ј® Є®¤  }
BIN:array[1..KBL,1..INF] of word;
{ ¤ўг¬Ґа­л© ¬ ббЁў а §¬Ґа®¬ (KBL,INF),
ᮤҐа¦ йЁ© Є®¤®ўлҐ б«®ў  ¤ў®Ёз­®Ј® Ї®§ЁжЁ®­­®Ј® Є®¤ ;}
i:word;
LKOD:string; {- нд䥪⨢­®Ґ Є®¤®ў®Ґ б«®ў® }
FK,FT: TEXT;
begin
Clrscr;
Assign(FF, 'Text.txt');
FileMode := 0; { Set file access to read only }
Reset(FF);
FBL(FF,REG,L,KBL,WT);
{ Џа®жҐ¤га  FBL § Јаг¦ Ґв Ё­д®а¬ жЁо б ⥪бв®ў®Ј® д ©« ,
®ЇаҐ¤Ґ«пҐ¬®Ј® Ї®«м§®ў вҐ«Ґ¬, ў ®Ўа Ў влў Ґ¬л© ¬ ббЁў }

FPC(TF,KBL,L,WT,WP,PC,DIF);
{ Џа®жҐ¤га  FPC ўл¤Ґ«пҐв д®а¬ЁагҐ¬лҐ Ёбв®з­ЁЄ®¬ а §«Ёз­лҐ б®®ЎйҐ­Ёп( «д ўЁв),
®ЇаҐ¤Ґ«пҐв Ёе Є®«ЁзҐбвў® Ё зЁб«  Ї®пў«Ґ­Ё© ў ⥪бвҐ,
д®а¬ЁагҐв в Ў«Ёжг ᮮ⢥вбвўЁп ¬Ґ¦¤г а §«Ёз­л¬Ё б®®ЎйҐ­Ёп¬Ё
Ё зЁб« ¬Ё Ёе Ї®пў«Ґ­Ёп,   в Є¦Ґ гЇ®а冷稢 Ґв нвг в Ў«Ёжг
ў Ї®ап¤ЄҐ гЎлў ­Ёп зЁбҐ« Ї®пў«Ґ­Ёп.}
FTAB(DIF,PC,TREE);
{ Џа®жҐ¤га  FTAB ᮧ¤ Ґв бЇҐжЁ «м­го в Ў«Ёжг TREE,
ЇаҐ¤бв ў«пойго "¤ҐаҐў®" ў ¬Ґв®¤Ґ • д䬥­  }
FPC(TF,KBL,L,WT,WP,PC,DIF);
FKOD(KBL,DIF,LEN,PC,TREE,KOD);
{ Їа®жҐ¤га  FKOD бва®Ёв нд䥪⨢­л© Є®¤.}
{FPC(TF,KBL,L,WT,WP,PC,DIF);}
FBIN(KBL,DIF,INF,PC,BIN);
{ Є®¤ЁагҐв б®®ЎйҐ­Ёп, Ї®бл« Ґ¬лҐ Ёбв®з­ЁЄ®¬, Їа®бвл¬ ¤ў®Ёз­л¬ Є®¤®¬.}
VIEW(TF,REG,KBL,DIF,L,LEN,INF,WT,WP,PC,KOD,BIN);
{ ўл¤ Ґв ­  нЄа ­ ўбҐ а §«Ёз­лҐ б®®ЎйҐ­Ёп,
ᮮ⢥вбвўгойЁҐ Ё¬ з бв®вл Ї®пў«Ґ­Ёп Ё Є®¤®ўлҐ б«®ў .}

for i:=1 to KBL do
begin
TVK(DIF,LEN,PC,KOD,WP[i],LKOD);{ Ё¬ЁвЁаго饩 Є®¤Ґа}
DCT(REG,DIF,L,LEN,KBL,I,LKOD,WT,KOD,WP,PC);
{Ё¬ЁвЁаго饩 ¤ҐЄ®¤Ґа Ё ЎгдҐа ¤«п ­ Є®Ї«Ґ­Ёп ЇаЁ­Ё¬ Ґ¬ле Є®¤®ўле б«®ў }
end;

BTK(KBL,DIF,L,INF,WP,PC,BIN);
{Љ®¤Ёа®ў ­ЁҐ б®®ЎйҐ­Ё©, Ў«®Є®ў Ё«Ё L-Ја ¬¬ ¤ў®Ёз­л¬ Ї®§ЁжЁ®­­л¬ Є®¤®¬.
(€¬Ёв жЁп дг­ЄжЁЁ ¤ў®Ёз­®Ј® Є®¤Ґа ).
‘®§¤ Ґвбп д ©« BIN_OUT.PAS, ᮤҐа¦ йЁ© ⥪бв,
§ Є®¤Ёа®ў ­­л© ¤ў®Ёз­л¬ Ї®§ЁжЁ®­­л¬ Є®¤®¬ ЎҐ§ Їа®ЎҐ«®ў}

STAT(KBL,L,LEN,REG,KOD,PC,WP);
{ ўлзЁб«пҐв бв вЁбвЁзҐбЄЁҐ Ї®Є § вҐ«Ё нд䥪⨢­®бвЁ Є®¤  }

WriteLn('‚®в Ё ўбс ॡпв !');
Readkey;
Close(FF);
end.