Добавил:
Yanus
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
UNIT GNK2;
INTERFACE
USES GNK;
type IntArray = array [0..18] of integer;
Binarray= array [1..16,1..10] of byte;
Masarray = array [1..19,1..15] of byte;
BinArray1 = array [1..15] of byte;
BinArray2 = array [1..19] of byte;
const
flag : array [1..4,1..4] of byte = ((3,5,6,7),(6,8,10,11),(9,11,13,14),(12,14,17,19));
flag1: array [1..4,1..4] of byte = ((2,3,3,3),(5,6,7,7),(8,9,10,10), (11,12,14,15));
var jmax:integer;
Procedure OPD4(var mas:Masarray;var MOP:Intarray;var NRS,NPR:word;Param:byte;inf:word;Key1:Byte);
Procedure MTAB4(mas:masarray;inf:word;MOP:INTARRAY;var MAT:binarray;param,key2:byte);
Procedure ISP4(KP, KI:BinArray2;MAT:Binarray;MJ,KJ, NRS:integer;MOP:IntArray;var Kk:BinArray2; var KRIP, KRI:word);
PROCEDURE OPD(NRS,N1:word;var NPS:word;var MT1,MT2,MOP);
PROCEDURE MTAB(NRS,NPS,MJ,KJ:word;var MOP,MAT);
PROCEDURE RPT(T0,V,M,S:real;var PK,T1:real);
PROCEDURE DVK(NUK,INF:word;var MDV);
PROCEDURE KDR(var MAT,MDV,KP; MJ,KJ,NRS,INF:word);
INTERFACE
USES GNK;
type IntArray = array [0..18] of integer;
Binarray= array [1..16,1..10] of byte;
Masarray = array [1..19,1..15] of byte;
BinArray1 = array [1..15] of byte;
BinArray2 = array [1..19] of byte;
const
flag : array [1..4,1..4] of byte = ((3,5,6,7),(6,8,10,11),(9,11,13,14),(12,14,17,19));
flag1: array [1..4,1..4] of byte = ((2,3,3,3),(5,6,7,7),(8,9,10,10), (11,12,14,15));
var jmax:integer;
Procedure OPD4(var mas:Masarray;var MOP:Intarray;var NRS,NPR:word;Param:byte;inf:word;Key1:Byte);
Procedure MTAB4(mas:masarray;inf:word;MOP:INTARRAY;var MAT:binarray;param,key2:byte);
Procedure ISP4(KP, KI:BinArray2;MAT:Binarray;MJ,KJ, NRS:integer;MOP:IntArray;var Kk:BinArray2; var KRIP, KRI:word);
PROCEDURE OPD(NRS,N1:word;var NPS:word;var MT1,MT2,MOP);
PROCEDURE MTAB(NRS,NPS,MJ,KJ:word;var MOP,MAT);
PROCEDURE RPT(T0,V,M,S:real;var PK,T1:real);
PROCEDURE DVK(NUK,INF:word;var MDV);
PROCEDURE KDR(var MAT,MDV,KP; MJ,KJ,NRS,INF:word);