Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
0 / 0 / 0
Регистрация: 22.04.2015
Сообщений: 3
1

Посчитать количество положительных элементов массива, предшествующих первому отрицательному элементу

23.04.2015, 09:47. Просмотров 1554. Ответов 5
Метки нет (Все метки)

Задача такова....
"Посчитать количество положительных элементов одномерного массива,предшествующий первому отрицательному элементу."
Блок схему "как бы" сделал, но вот программу....буду признателен если напишите программу по задаче.
P.S. Если кому надо блок схему, скину

Добавлено через 10 часов 47 минут
Не нашел, даже примерного...(
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.04.2015, 09:47
Ответы с готовыми решениями:

Определить количество удвоенных нечетных элементов среди элементов, предшествующих первому отрицательному
2. Даны натуральное число N и целые числа A1,А2,…АN. Определить количество удвоенных нечетных ...

Для каждой строки массива A 6×4 посчитать количество положительных элементов
Для каждой строки массива A 6×4 посчитать количество положительных элементов. Результат записать...

Как найти сумму последовательности положительных чисел, предшествующих первому введенному нулю
Написать программу поиска суммы последовательности положительных чисел, вводимых с клавиатуры,...

Посчитать произведение положительных элементов массива
Исправьте пожалуйста ошибку в "Произведении положительных элементов", а то никак не пойму,...

5
Модератор
Эксперт Python
28000 / 14955 / 2948
Регистрация: 12.02.2012
Сообщений: 24,511
Записей в блоге: 4
23.04.2015, 11:11 2
Лучший ответ Сообщение было отмечено The trick как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Function CountPos(X() as integer, i as integer) As integer
  If (i>= ubound(X,1)) then
     CountPos=0
  ElseIf X(i) < 0 then
      CountPos=0
  Elseif  X(i) >0 then
      CountPos=1+CountPos(X,i+1)
  Else
      CountPos=CountPos(X,i+1)
  End if
End Function
2
Заблокирован
23.04.2015, 11:28 3
Маленькое уточнение, чтоб непоняток не было -
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function CountPos(X(), i As Integer) As Integer
  If (i >= UBound(X, 1)) Then
     CountPos = 0
  ElseIf X(i) < 0 Then
      CountPos = 0
  ElseIf X(i) > 0 Then
      CountPos = 1 + CountPos(X, i + 1)
  Else
      CountPos = CountPos(X, i + 1)
  End If
End Function
 
Sub CountPos_Example()
Dim a()
a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, -1)
MsgBox CountPos(a, 0)
End Sub
2
0 / 0 / 0
Регистрация: 22.04.2015
Сообщений: 3
23.04.2015, 11:36  [ТС] 4
Цитата Сообщение от Иван-дурак Посмотреть сообщение
Function CountPos
А разве только через функцию вводить? нельзя просто ввести одномерный массив?
И почему CountPos
0
0 / 0 / 0
Регистрация: 22.04.2015
Сообщений: 3
23.04.2015, 11:46  [ТС] 5
Посчитать количество положительных элементов массива, предшествующих первому отрицательному элементу
Catstail, Иван-дурак, и у меня задается вопрос, правильно ли тогда, я сделал блок-схему, и можно ли по этой блок-схеме, написать правильную программу?...
0
Модератор
Эксперт Python
28000 / 14955 / 2948
Регистрация: 12.02.2012
Сообщений: 24,511
Записей в блоге: 4
23.04.2015, 12:07 6
Programm_lol, блок-схемы я не смотрю принципиально, особенно на кривых фотографиях с телефона.

Цитата Сообщение от Programm_lol Посмотреть сообщение
А разве только через функцию вводить?
- научись выражать свои мысли грамотно

Цитата Сообщение от Programm_lol Посмотреть сообщение
нельзя просто ввести одномерный массив?
- можно.

Цитата Сообщение от Programm_lol Посмотреть сообщение
И почему CountPos
- можешь функцию назвать как угодно. Например "Горшок". Но лучше придумывать осмысленные названия - CountPos от "count positive" - "подсчет положительных".
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.04.2015, 12:07

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Определить количество положительных элементов массива, предшествующих первому отрицательному
Определить количество положительных элементов массива, предшествующих первому отрицательному....

Определить количество положительных элементов массива, предшествующих первому отрицательному
Определить количество положительных элементов массива, предшествующих первому отрицательному....

Число положительных элементов, предшествующих первому отрицательному элементу
Число положительных элементов, предшествующих первому отрицательному элементу массива. Массив...

Найти среднее арифметическое положительных элементов последовательности, предшествующих первому отрицательному элементу
Дана последовательность из n вещественных чисел. Найти среднее арифметическое положительных...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.