Докажите с таблиц истинности справедливость следующего равенства: ¬(А * В) = ¬А ˅ ¬В

Данное тождество справедливо.

Объяснение:

При решении данного равенства, мы проверяем данное тождество. (Логическая операция - Эквивалентность)

По таблице истинности составляем значения для левой и для правой части.

Если обе части тождественны, то результат конечного столбика с операцией эквивалентности будет 1 (неравенство справедливо), если разные(не тождественны) - 0.

По таблице прекрасно видно, что данное тождество справедливо.

Чес гря не понимаю, в чем заморочка... Тут же все указано. Безо всЯкого С++ в экселе мона сотворить этакий "калькулятор"))

 

есть постоянная 100 (гк золота)

и переменные Х и У, их вводит, я так понял, пользователь программулечки,

дальше сии переменные суммируются

и из них считают

70% - результат сообщают польщователю с пометкой "погибшие"

26% результат сообщают польщователю с пометкой "тяжело ранено"

4% результат сообщают польщователю с пометкой "Осталось в живых"

а постоянную100 делят на эти 4% от Х+У ( то есть на к-во выживших) и сообщают результат пользователю с пометкой "досталось золота каждому из них (выживших)"

 

затем, если надо, обнулить Х и У для следкющего года. 

А результаты, если надо получить данные за два года, прибавлять к предыдущим, уже посчитанным... Ну и еще куча вариантов обработки результатов... Вдруг нужна выборка по четным годам, вдруг еще чего)))

 

 мона поставить переменную, считающую годы с каждым вводом Х и У...

 

 

В ощем - подвинтеся, дайте простор моей фантазии!))

 

 

программа на Turbo pascal 7.1:

содержание progs.pas:

{$N+}{-директива для подключения 8087 препоцессора}
uses output1; {здесь подключаем модуль output1}

var p:double;

function F1(p:double):double;
begin
F1:=Sqr(p);
end;

procedure P1(var p:double);
begin
readln(p);
p:=F1(p);
end;

begin
write('Введите длину стороны квадрата = ');
P1(p);
P2(p);
end.

 

содержание output1.tpu:

{$N+}{-директива для подключения 8087 препоцессора}
unit output1;{здесь объявляем модуль output1}

interface

procedure P2(p:double);

implementation

procedure P2;
begin
writeln('Площадь квадрата = ',p:0:5);
end;

end.