Решите 3 , чтобы было всё ясно и понятно,
1. для логической функции x= (a\/b) -> ((ac)/\b) заполните таблицу истинности. столбец a-двоичная запись числа 15, b – числа 51, c-числа 85. числа в столбце записываются вниз от старшего разряда к младшему. в ответе укажите значение числа x в десятичной системе счисления.
2. дан фрагмент таблицы истинности функции f. определите, какому столбцу таблицы истинности функции f соответствует каждая из переменных x, y, z.
(таблица в приложенном фото)
3. выражение, используя законы логики
(a\/c)/\(a/\c) /\ (b\/ c) /\(b/\c)
Проверено - работает на Паскаль АВС
Program mashaaq;
uses crt;
const n=12;
const m=15;
var
a:array[1..n,1..m] of integer;
b:array[1..n] of integer;
i,j,minus : integer;
begin
Randomize;
for i:=1 to n do
for j:=1 to m do
a[i,j]:= Random(101)-50; //заполняем массив случайными числами
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
for i:=1 to n do //просматриваем строки сверху вниз
begin
minus:=0;
for j:=1 to m do //просматриваем строку
if a[i,j]<0 then minus:=minus+1; //если найден отрицательный элемент, увеличиваем счётчик minus на единицу
b[i]:=minus; //сохраняем значение счётчика для i-й строки
end;
writeln;
{выводим матрицу А и вектор результатов В}
{в красивой рамочке :)}
writeln('');
writeln('* Массив * Вектор *');
writeln('');
for i:=1 to n do
begin
write ('* ');
for j:=1 to m do
write(a[i,j]:4); //выводим строку массива
writeln(' * ',b[i]:2,' *'); //дописываем справа значение вектора В для этой строки
end;
writeln('');
end.
интервал -15,15
c[i,j]:=-15+random(30);
{сумма положительных чисел в каждой строке}
for i:=1 to n1 do begin
s:=0;
for j:=1 to n2 do
if c[i,j]>0 then s:=s+c[i,j];
writeln('суммаэлем-в',i,'–й строки=',s,' ');
end;
{поиск минимума}
min:=c[1,1];{объявить переменную}
i_min:=1;{объявить переменную}
j_min:=1;{объявить переменную}
for i:=1 to n1 do begin
for j:=1 to n2 do
if c[i,j]<min then
min:=c[i,j];
i_min:=i;
j_min:=j;
end;
writeln('Минимальный элемент С[',i,',',j,']=',min);
{замена положительных элементов на 0}
for j:=1 to n2 do begin
s:=0;
for i:=1 to n1 do
if c[i,j]>0 then c[i,j]:=0;
end;