Информатика: Помагите ответ нужен с решением.

Помагите ответ нужен с решением.

Показать ответ

Ответ:

Anastasiia11111111

17.04.2021 23:45

1. Упростим исходную логическую функцию
$y=(A \to B) \land(C \equiv \lnot(B \lor A))$
Для удобства записи будем использовать общепринятые сокращения. Операцию логического сложения (дизъюнкцию) "∨" будем обозначать знаком "+". Логическое умножение (конъюнкцию) "∧" будем обозначать знаком умножения (точкой) или опускать, как принято в алгебре. Вместо знака логического отрицания будем использовать надчеркивание.
$y=(A \to B)(C \equiv \overline{B+A}); \\ y=(\bar A+B)(C \equiv 
\overline{B+A})=(\bar A+B)(\bar C(B+A)+C \overline{B+A})= \\ (\bar 
A+B)(\bar CB+\bar CA+C\bar B \bar A})=\bar AB\bar C+\bar AAC+\bar A\bar 
BC+B\bar C+AB\bar C+ \\ \bar AB\bar BC=\bar AB\bar C+0+\bar A\bar 
BC+B\bar C+AB\bar C+0= \\ \bar AB\bar C+\bar A\bar BC+B\bar C+AB\bar 
C=B\bar C(\bar A+1+A)+\bar A\bar BC=\bar A\bar BC+B\bar C$
2. Переведем в двоичную систему счисления заданные значения A, B, C:
$\begin {array} {rcl} A =226_{10} &=& 11100010_2; \\ B=154_{10} &=& 10011010_2; \\ C=075_{10} &=& 01001011_2 \end {array}$
3. Построим таблицу истинности для функции у
$\begin {array}{ccccccccc} A&B&C&\bar A&\bar B&\bar A\bar BC&\bar C&B\bar C&Y=\bar A\bar BC+B\bar C \\ 1&1&0&0&0&0&1&1&1 \\ 1&0&1&0&1&0&0&0&0 \\ 1&0&0&0&1&0&1&0&0 \\ 0&1&0&1&0&0&1&1&1 \\ 0&1&1&1&0&0&0&0&0 \\ 0&0&0&1&1&0&1&0&0 \\ 1&1&1&0&0&0&0&0&0 \\ 0&0&1&1&1&1&0&0&1 \end {array}$
4. Переведем результат в десятичную систему счисления
$10010001_2=145_{10}$

0,0(0 оценок)

Ответ:

danadv

29.09.2020 13:09

Type
St = record
    iquo: integer; {целая часть}
    irem: integer; {числитель дроби}
    idiv: integer; {знаменатель дроби}
end;

function iMax(i, j: integer): integer;
begin
if i > j then iMax := i else iMax := j
end;

function iMin(i, j: integer): integer;
begin
if i < j then iMin := i else iMin := j
end;

function FR(i, j, k: integer): St;
var
nmax, nmin: integer;

begin
nmax := iMax(iMax(i, j), k);
nmin := iMin(iMin(i, j), k);
with Result do
begin
    iquo := nmax div nmin;
    idiv := nmin;
    irem := nmax mod nmin
end
end;

var
a, b, c: integer;
r: St;

begin
write('Введите через пробел три целых числа:');
readln(a, b, c);
r := FR(a, b, c);
writeln('Результат работы функции: ', r.iquo, ' целых и ', r.irem, '/', r.idiv)
end.

Тестовое решение:

Введите через пробел три целых числа:343 253 37
Результат работы функции: 9 целых и 10/37

0,0(0 оценок)

Популярные вопросы: Информатика