Мы делали это следующим образом: С начало составляется таблица истинности для 4 значений (х1, х2, х3, х4), после чего подавляются значения в пример (его можно разбить на несколько простых), в результате должно получится следующие решение. Если что то непонятно пиши.
После составления таблицы истинности видно, что в необходимости составления карты Карно нет, функция получается очень простой f=x1*x2*x3*x4, но на всякий случай нарисовал...
Dim A(100) As Integer, Odin As Boolean Dim k As Integer , i As Integer Randomize For i = 1 To 100 A(i) = Int(Rnd*100) + 1 ' Заполняем массив случайными числами от 1 до 100 Print A(i) & CHR(9); ' Выводим начальный массив через табуляцию Next i Print "Повторяющиеся элементы" For i = 1 To 100 For k = i+1 To 100 If A(i) = A(k) Then Print A(i) & CHR(9); Next k Next i Print "Не повторяющиеся элементы" For i = 1 To 100 Odin = True For k = i+1 To 100 If A(i) = A(k) Then Odin = False Next k If Odin = True Then Print A(i) & CHR(9); Next i End
Рюкза́к (от нем. Rücksack — заплечная сумка) — специализированная сумка для длительной переноски на спине различных грузов. Снабжён двумя (реже — одной) косыми (идут от области шеи в бока) лямками, надеваемыми на плечи, а также, в большинстве случаев, ручкой с верхней стороны, стабилизирующими и разгрузочными ремнями, и дополнительными элементами для навесного закрепления предметов экипировки и амуниции, в зависимости от области его применения. В зависимости от конструкции, может напоминать армейский ранец или вещмешок, но отличается от ранца тем, что последний снабжён прямыми лямками и не имеет дополнительных элементов, а от вещмешка тем, что лямки рюкзака раздельны и в верхней части жёстко закреплены (пришиты), а не привязываются к горловине мешка.
С начало составляется таблица истинности для 4 значений (х1, х2, х3, х4), после чего подавляются значения в пример (его можно разбить на несколько простых), в результате должно получится следующие решение.
Если что то непонятно пиши.