Курсовая работа. / РЯП_Ксю / Other / Bosk_tjp / proga / i_matr

{ Test program source for Compilator }
{ 21.05.2007 }

const t = true;
f = false;
c1 = 7;
type matr1 = array[3,c1];
matr2 = array[3,c1];
matr3 = array[3,15];
var
i: integer;
m1,m3: matr1;
m2,m4: matr2;
m5,m6: matr3;
begin
i := 0;
repeat
i:=i+1;
m1[i,3]:=t;
m1[i,4]:=t;
m1[i,5]:=t;
until i=3;
writes(' m1:');
writem(m1);

i:=0;
repeat
i:=i+1;
m2[2,i]:=t;
until i=c1;
writes(' m2:');
writem(m2);

con(m1,m2,m3);
writes(' CON(m1,m2,m3)');
writes(' m3:');
writem(m3);

dis(m1,m2,m4);
writes(' DIS(m1,m2,m4)');
writes(' m4:');
writem(m4);

read(i);
end.