Условие в цикле

@Jaguar_88 · Регистрация: 29.07.2011

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

Добрый день!
Помогите написать условие в цикле допустим у меня есть массив distance(0 to 7)
distance(0)=15,6
distance(1)=9,2
distance(2)=6,4
distance(3)=1,8
distance(4)=0
distance(5)=2,1
distance(6)=3,5
distance(7) =9,8

Как написать в цикле For i=0 to 7 условие того что после нуля элементы должны идти со знаком "минус"
т.е должны выглядеть так:
distance(0)=15,6
distance(1)=9,2
distance(2)=6,4
distance(3)=1,8
distance(4)=0
distance(5)=-2,1
distance(6)=-3,5
distance(7) =-9,8
заранее огромное спасибо за помошь

@gitarillo · 29.07.2011, 16:21

Visual Basic

dim t as integer
For i=0 to 6
   if distance(i)=0 then t=i:exit for
next
For i=0 to 6
   if i>t then distance(i)=distance(i)*(-1)
next

@~~Busine2009~~ · 29.07.2011, 16:49

gitarillo,
можно не просматривать заново массив, а сразу обрабатывать элементы, находящиеся после нуля:

Код:

Visual Basic

Sub P1()
Dim distance(0 To 7) As Double
Dim i As Integer, j As Integer
distance(0) = 15.6
distance(1) = 9.2
distance(2) = 6.4
distance(3) = 1.8
distance(4) = 0
distance(5) = 2.1
distance(6) = 3.5
distance(7) = 9.8
For i = 0 To 7 Step 1
   If distance(i) = 0 Then j = i + 1: Exit For
Next i
For i = j To 7 Step 1
   distance(i) = distance(i) * (-1)
Next i
'Вывод результа в диалоговое окно Immediate
'(View - Immediate Window).
For i = 0 To 7 Step 1
    Debug.Print distance(i)
Next i
End Sub

@Jaguar_88 0 / 0 / 0 Регистрация: 29.07.2011 Сообщений: 11
		1
	Условие в цикле 29.07.2011, 15:57. Показов 1484. Ответов 2 Метки нет (Все метки) Добрый день! Помогите написать условие в цикле допустим у меня есть массив distance(0 to 7) distance(0)=15,6 distance(1)=9,2 distance(2)=6,4 distance(3)=1,8 distance(4)=0 distance(5)=2,1 distance(6)=3,5 distance(7) =9,8 Как написать в цикле For i=0 to 7 условие того что после нуля элементы должны идти со знаком "минус" т.е должны выглядеть так: distance(0)=15,6 distance(1)=9,2 distance(2)=6,4 distance(3)=1,8 distance(4)=0 distance(5)=-2,1 distance(6)=-3,5 distance(7) =-9,8 заранее огромное спасибо за помошь 0

	29.07.2011, 16:49