0 / 0 / 0
Регистрация: 19.05.2013
Сообщений: 5
1

Заменить первый отрицательный элемент массива на первый положительный

19.05.2013, 16:58. Показов 3039. Ответов 8
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Заменить первый отрицательный элемент массива на первый положительный.
Никак не могу разобраться.
Вот, что получилось:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Dim A(100) As Integer
Dim C(100) As Integer
Private Sub Command1_Click()
n = Val(Text1)
 
Picture1.Cls
Picture2.Cls
Picture3.Cls
Picture4.Cls
 
Randomize
If n > 0 Then
k = 1
s = 0
For i = 0 To n - 1
A(i) = Int(20 * Rnd - 10)
Picture4.Print A(i)
Next
 
For i = 0 To n
If A(n) > 0 Then
i = pol
End If
Next
 
For i = 0 To n
If A(n) < 0 Then
A(i) = A(pol)
End If
Picture1.Print A(i)
Next 
End If
End Sub
Добавлено через 4 часа 21 минуту
Пожалуйста, помогите!
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.05.2013, 16:58
Ответы с готовыми решениями:

Разделить все элементы массива с четными номерами на первый элемент (первый элемент отличен от 0)
Разделить все элементы массива с четными номерами на первый элемент (первый элемент отличен от 0).

Последний положительный элемент массива заменить на первый отрицательный
последний положительный элемент массива заменить на первый отрицательный. Если отрицательного нет,...

Найти первый отрицательный элемент массива и первый положительный элемент и поменять их местами
Найти первый отрицательный элемент массива и первый положительный элемент и поменять их местами.

Найти первый положительный и последний отрицательный элемент массива
Разработать приложение демонстрирующее работу с одномерный массивом, заполнение массива на форме...

8
Модератор
Эксперт функциональных языков программированияЭксперт Python
37039 / 20493 / 4244
Регистрация: 12.02.2012
Сообщений: 33,853
Записей в блоге: 13
19.05.2013, 17:11 2
Лучший ответ Сообщение было отмечено The trick как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub chng(A() as integer)
      i_pos%=-1
      i_neg%=-1
      for i%=1 to to Ubound(A,1)
          if A(i%)>0 And i_pos%=-1 then i_pos%=i%
          if A(i%)<0 And i_neg%=-1 then i_neg%=i%
          if i_pos% > 0 And i_neg% > 0 then Exit for
      next i%
 
      If i_pos% > 0 And i_neg% > 0 then
         A(i_neg%)=A(i_pos%)
      elseIf i_pos% > 0 And i_neg% =-1 then
         Debug.Print "Нет отрицательных"
      elseIf i_pos% = -1 And i_neg% > 0 then
         Debug.Print "Нет положительных"
      else
          Debug.Print "Одни нули..."
      end if
End Sub
Добавлено через 1 минуту
BitArt, в твоем коде строка 22 должна иметь вид:

Visual Basic
1
   pol=i
1
0 / 0 / 0
Регистрация: 19.05.2013
Сообщений: 5
19.05.2013, 17:36  [ТС] 3
Catstail, Спасибо!
Дело в том, что нужно решить эту задачу более простым способом, чтобы я сам смог разобраться и решить другие задачи.
0
Модератор
Эксперт функциональных языков программированияЭксперт Python
37039 / 20493 / 4244
Регистрация: 12.02.2012
Сообщений: 33,853
Записей в блоге: 13
19.05.2013, 18:05 4
Цитата Сообщение от BitArt Посмотреть сообщение
более простым способом
- а чего же проще?
0
0 / 0 / 0
Регистрация: 19.05.2013
Сообщений: 5
19.05.2013, 18:30  [ТС] 5
Catstail, ну это кому как, для меня это сложно. Мне понятен код, который я написал выше, но я что-то видимо пока недопонимаю и что- то не учитываю.

Добавлено через 16 минут
Я понимаю, что нужно с помощью цикла найти индекс первого положительного элемента и потом прервать цикл, также нужно найти и индекс отрицательного элемента. Но как их заменить и вывести новый массив, остается для меня загадкой.
0
Модератор
Эксперт функциональных языков программированияЭксперт Python
37039 / 20493 / 4244
Регистрация: 12.02.2012
Сообщений: 33,853
Записей в блоге: 13
19.05.2013, 22:12 6
Цитата Сообщение от BitArt Посмотреть сообщение
Но как их заменить
- что заменить? Пусть индекс первого отрицательного n1, а первого положительного - p1. Чтобы заменить первый отрицательный на первый положительный, достаточно выполнить:

Visual Basic
1
   X(n1)=X(p1)
А выводить нужно этот же массив. Например, так

Visual Basic
1
2
3
   for i%=1 to Ubound(X,1)
       Debug.print X(i%)
   next i%
1
0 / 0 / 0
Регистрация: 19.05.2013
Сообщений: 5
20.05.2013, 02:01  [ТС] 7
Сейчас код выгдядит таким образом:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Dim A(100) As Integer
Private Sub Command1_Click()
n = Val(Text1)
 
Picture1.Cls
Picture2.Cls
Picture3.Cls
Picture4.Cls
 
Randomize
If n > 0 Then
For i = 0 To n - 1
A(i) = Int(20 * Rnd - 10)
Picture4.Print A(i)
Next i
End If
 
For i = 0 To n - 1
If A(n) > 0 Then
pol = n
Exit For
End If
Next i
 
For i = 0 To n
If A(i) < 0 Then A(i) = A(pol): Exit For
Next i
 
For i = 0 To n - 1
Picture1.Print A(i)
Next i
 
End Sub
Но почему-то, если первый элемент массива отрицательный, то замена не происходит.
0
Модератор
Эксперт функциональных языков программированияЭксперт Python
37039 / 20493 / 4244
Регистрация: 12.02.2012
Сообщений: 33,853
Записей в блоге: 13
20.05.2013, 09:53 8
20-я строка:

Visual Basic
1
  pol=i ''' я же писал об этом !
2
0 / 0 / 0
Регистрация: 19.05.2013
Сообщений: 5
20.05.2013, 15:10  [ТС] 9
Catstail, Спасибо Вам Огромное!!!
0
20.05.2013, 15:10
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.05.2013, 15:10
Помогаю со студенческими работами здесь

Поменять местами первый отрицательный и последний положительный элемент массива
Поменять местами первый отрицательный и последний положительный елемент массива. Учесть возможность...

Поменять местами максимальный отрицательный и первый положительный элемент массива В(18)
поменять местами максимальный отрицательный и первый положительный элемент массива В(18)

Массив: Поменять местами первый отрицательный и последний положительный элемент массива
Поменять местами первый отрицательный и последний положительный элемент массива в c#

В пользовательском классе "Двусвязный список" продублировать первый положительный элемент и удалить первый отрицательный
Здравствуйте,помогите пожалуйста в тете &quot;Двусвязный список&quot; Создать двусвязный список с...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru