Для каких значений x и y истинно высказывание: (y+1 > x) (y+x < 0) (x > 1)? 1) x = 0,5; y = -1,1 2) x = 1,1; y = -4 3) x = -1; y = -4 4) x = -0,1; y = -1,1
Высказывании (Y+1 > X) ∧ (Y+X <0) ∧ (X>1) истинно, если истинен каждый из трех предикатов. 1) X = 0,5; Y = -1,1 Y+1 > X; -1.1+1 > 0.5; -0.1 > 0.5 ложно и данный набор значений не подходит. 2) X = 1,1; Y = -4 Y+1 > X; -4+1 > 1.1; -3 > 1 ложно и данный набор значений не подходит. 3) X = -1; Y = -4 Y+1 > X; -4+1 > -1; -3 > -1 ложно и данный набор значений не подходит. 4) X = -0,1; Y = -1,1 Y+1 > X; -1.1+1 > -0.1; 0-.1 > -0.1 ложно и данный набор значений не подходит. ответ: все четыре варианта не подходят.
Количество информации в сообщении обычно равно количеству бит (округляемому до ближайшего целого с избытком) , которое необходимо для воспроизведения текста сообщения. то есть в сообщении 10101010 информации - 8 бит, в сообщении "погода сегодня будет зимняя, снег не растает, солнце взойдет утром и сядет вечером" - 350 бит (если считать, для простоты, что в языке 32 буквы) . в сообщении e=hν информации, если кодировку ситать юникодом, - 8 байт (64 битa) информации. но вот ценность этих сообщений несопоставима. но ценность информации не есть величина неизбывная и строго измеряемая для данного сообщения. она всегда зависит от того, кому эта информация предназначена, и от того, что путного можно извлечь из неё, а значит - слабо формализуема. в конце концов, запросто можно представить себе (путь и фантастическую)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim A() As Integer Dim B() As Integer
Randomize() Dim k As Integer Dim i As Integer i = Rnd() * 100 + 1 ReDim A(i) For k = 0 To i A(k) = Rnd() * -1000 + 500 Next i = Rnd() * 100 + 1 ReDim B(i) For k = 0 To i B(k) = Rnd() * -1000 + 500 Next
Dim countA As Integer Dim countB As Integer
countA = change(A) countB = change(B) Dim msg_A As String For i = 0 To UBound(A) - 1 msg_A = msg_A & A(i) & vbCrLf ' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535 Next Dim msg_B As String For i = 0 To UBound(B) - 1 msg_B = msg_B & B(i) & vbCrLf Next If countA = countB Then MsgBox("Количество измененных элементов в двух массивах одинаково") MsgBox(msg_A) MsgBox(msg_B) End Sub
Private Function change(ByRef Massiv() As Integer) As Integer Dim count As Integer Dim i As Integer For i = 0 To UBound(Massiv) - 1 If Massiv(i) > 0 Then Massiv(i) = Massiv(i) / i : count = count + 1 Next Return count End Function
1) X = 0,5; Y = -1,1
Y+1 > X; -1.1+1 > 0.5; -0.1 > 0.5 ложно и данный набор значений не подходит.
2) X = 1,1; Y = -4
Y+1 > X; -4+1 > 1.1; -3 > 1 ложно и данный набор значений не подходит.
3) X = -1; Y = -4
Y+1 > X; -4+1 > -1; -3 > -1 ложно и данный набор значений не подходит.
4) X = -0,1; Y = -1,1
Y+1 > X; -1.1+1 > -0.1; 0-.1 > -0.1 ложно и данный набор значений не подходит.
ответ: все четыре варианта не подходят.