Определить значения логических переменных

10.01.2013, 16:34. **Показов** 1289. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Даны:
- натуральное число n ;
- целые числа C1,C2,...,Cn .
Определить значения логических переменных P,Q : P=true, если среди C1,C2,...,Cn есть хотя бы один нулевой член, Q=false; в противном случаe: Q=true, если в последовательности есть три подряд идущих нулевых члена, Q=false - в противном случае

Помогите решить задачу, заранее благодарен

@all_angarsk · 10.01.2013, 18:45

Вариант

Visual Basic

Private Sub CommandButton1_Click()
Dim s() As Integer, n As Integer, i As Integer, k As Integer, z As Integer
Dim P As Boolean, Q As Boolean
 
Cells.Clear
n = InputBox("Введите кол-во элементов", , 20)
ReDim s(n)
Randomize
For i = 1 To n
s(i) = Rnd() * 3 - 1
Cells(i + 1, 2) = s(i)
If s(i) = 0 Then
k = k + 1
End If
Next
For i = 2 To n - 1
If s(i - 1) = 0 And s(i) = 0 And s(i + 1) = 0 Then
z = z + 1
End If
Next
 
If z > 0 Then
P = False
Q = True
ElseIf k > 0 Then
P = True
Q = False
End If
Cells(3, 5) = P
Cells(4, 5) = Q
Cells(3, 4) = "P"
Cells(4, 4) = "Q"
End Sub

Oberoshka
		1
	Определить значения логических переменных 10.01.2013, 16:34. Показов 1289. Ответов 1 Метки нет (Все метки) Даны: - натуральное число n ; - целые числа C1,C2,...,Cn . Определить значения логических переменных P,Q : P=true, если среди C1,C2,...,Cn есть хотя бы один нулевой член, Q=false; в противном случаe: Q=true, если в последовательности есть три подряд идущих нулевых члена, Q=false - в противном случае Помогите решить задачу, заранее благодарен

	10.01.2013, 18:45