Дипломная работа: Восьмиэлементные ассоциативные кольца
{ i1:=6;i2:=6;i3:=6;i4:=6;i5:=6;i6:=6;i7:=6;i8:=6;i9:=6;}
for i1:=0 to 7 do
for i2:=0 to 7 do
for i3:=0 to 7 do
for i4:=0 to 7 do
for i5:=0 to 7 do
for i6:=0 to 7 do
for i7:=0 to 7 do
for i8:=0 to 7 do
for i9:=0 to 7 do begin
zap(i1,i2,i3,i4,i5,i6,i7,i8,i9,a1,r);
writeln(r);
end;
writeln(' ',r);
close(f);
writeln('ok');
readln;
end.
Программа 3. Нахождениеизоморфных колец:
program izomorf;
uses crt;
const p=1;
type mas=array [0..7,0..7] of integer;
mas1=array [1..3] of integer;
var a,b,a1:mas;
y:mas1;
n,j1,i2,t,h,g,d:integer;
f,f1,f2,f3,f8:text;
procedure basis(var y:mas1);