РЕБЯТ НЕ ПОНИМАЮ ОТ

Необходимо найти значение выражений, используя таблицы истинности логических операций

а)(Av-А)^B A=0 B=1

b)A^(AvB)^(Cv-B) a=0, b=1, с=1

в)Av-A^B a=1, B=1

г) А^BvA^-B a=1, в=0

д) (АvB)^(Av-B) a=0, в=0

е) А^-BvB^Cv-A^-B a=1, в=0, с=1

просто перевод строк на паскаль. Логики тут искать не стоит. Первоначальное задание не полностью дано.

Объяснение:

const

 size = 6

var

 a : array [0..size, 0..size] of integer;

 d, v : array [0..size] of integer;

 i, temp, minindex, min, begin_index : integer;

begin

 begin_index := 0;

 for i:=0 to size-1 do begin

   temp := min + a[minindex][i]

   if temp < d[i] then

     d[i] := temp

 end;

 v[minindex] := 0;

 writeln('Кратчайшие расстояния до вершин')

 for i := 0 to size-1 do

   writeln(ver[i])  

end.

840

Объяснение:

Функция рекурсивно вызывает саму себя с разными аргументами.

F(5) должна вычислить F(4) * 7

F(4) ----------------------------- F(3) * 6

F(3) ----------------------------- F(2) * 5

F(2) ----------------------------- F(1) * 4

F(1) возвращает 1.

F(2)  получает 1, вычисляет 1*4 и возвращает результат 4

F(3) получает 4, вычисляет 4*5 и возвращает 20

F(4) получает 20, вычисляет 20*6 и возвращает 120

F(5) получает 120, вычисляет 120*7 и возвращает 840

Основная программа получает 840 и выводит число на экран