Упростите логическое выражение или укажите его результат (при его однозначно-сти). Результат упрощения может содержать только операции инверсии, конъюнкции и дизъюнкции. а) (A and B and C and D) ↔ (not A or not B or C or not D)
б) (A and C → B and C) → (A and B → A and D)
//PascalABC.NET 3.2 сборка 1318
Var
c:char;
Reci:array of integer;
ma:array of array of integer;
n,nc,ip:integer;
resf:real;
function minor(ip,i,n:integer; var reci:array of integer):real;
Var
ic,j,c,ipp,icc:integer;
res:real;
b:boolean;
arf:array[1..4] of integer;
begin
b:=true;
c:=0;
reci[ip]:=i;
ipp:=ip+1;
if ipp=nc-1 then
begin
for ic:=1 to n do
begin
for j:=1 to ip do
if ic=reci[j] then
b:=false;
if b=true then
begin
inc(c);
arf[c]:=ma[ipp,ic];
end;
b:=true;
end;
inc(ipp);
for ic:=1 to n do
begin
for j:=1 to ip do
if ic=reci[j] then
b:=false;
if b=true then
begin
inc(c);
arf[c]:=ma[ipp,ic];
end;
b:=true;
end;
minor:=arf[1]*arf[4]-arf[2]*arf[3];
end
else
begin
for ic:=1 to n do
begin
for j:=1 to ip do
if ic=reci[j] then b:=false;
if b=true then
res+=ma[ipp,ic]*power(-1,ipp+i)*minor(ipp,ic,n,reci);
b:=true;
end;
minor:=res;
end;
end;
procedure start();
Var
i,j:integer;
begin
write('Введите количество строк и столбцов:');
readln(n);
ip:=1;
nc:=n;
setlength(Reci,n+1);
setlength(ma,n+1);
for i:=1 to n do
setlength(ma[i],n+1);
writeln('Введите матрицу:');
for i:=1 to n do
for j:=1 to n do
readln(ma[i][j]);
for i:=1 to n do
resf+=ma[ip][i]*power(-1,ip+i)*minor(ip,i,n,reci);
writeln('Res:',resf);
end;
begin
repeat
readln(c);
until c in ['Z','z','Y','y'];
if c in ['Y','y'] then halt else start();
end.
Пример работы программы:
3 //введено ни z, ни y, повторяем ввод
z //продолжаем программу
Введите количество строк и столбцов:3
Введите матрицу:
9
1
2
8
3
7
4
6
5
Res:-183
1.) 2
2.) 3
3.) 1
4.) 0
5.) 0
6.) 3
7.) 1
2.) Определите результаты выполнения следующих действий
1.) {
a = 1819;
b = (div (а,100)) * 10 + 9 = 18 * 10 + 9 = 180 + 9 = 189
a = mod (10*b - a),100) = mod (189*10-1819,100) = mod (71,100) = 71
a = 71 ; b = 189
};
2.) {
а = 7*3 – 4 = 21 - 4 = 17
а = а*5 = 17*5 = 85
b = div (a,10) = div (85,10) = 8
a = mod (a,10) = mod (85,10) = 5
a = 5 ; b = 8
};
3.) {
a = 5
b =a+2 = 5+2 = 7
a = (a+2)*(b-3) = (5+2)*(7-3) = 7*4 = 28
b = div (a,5) = div (28,5) = 5
a = mod (a,b) = mod (28,5) = 3
a = a+1 = 3+1 = 4
b = mod (a+14,7) = mod (18,7) = 4
a = 4 ; b = 4
};
3.) Представить следующие числа в нормализованном виде, указать мантиссу и порядок
1.)
Нормализованный вид: 3.7412*10^-5
Мантисса: 3.7412
Порядок: -5
2.)
Нормализованный вид: 1.65723*10^7
Мантисса: 1.65723
Порядок: 7