Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
Konbvkapkane
0 / 0 / 0
Регистрация: 12.05.2017
Сообщений: 2
1

Вычисление количества положительных чисел во вводимой последовательности из n целых чисел

12.05.2017, 15:21. Просмотров 747. Ответов 3
Метки нет (Все метки)

Никак не пойму как решить данную задачу, помогите пожалуйста!
Кол-во чисел последовательности должно вводиться во время работы
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.05.2017, 15:21
Ответы с готовыми решениями:

Во вводимой с клавиатуры последовательности из 20 целых чисел подсчитать число элементов, модуль которых больше 1000
Написать программу, которая во вводимой с клавиатуры последовательности, ...

Количество отрицательных чисел во вводимой последовательности
составить программу на языке VBA, которая вычисляет количество отрицательных...

Среднее арифметическое, вводимой с клавиатуры последовательности дробных чисел
Написать программу, которая Вычесляет среднее арифметическое вводимой с клавы...

Дана последовательность целых чисел. Найти количество различных чисел в этой последовательности
Дана последовательность целых чисел. Найти количество различных чисел в этой...

Дана последовательность целых чисел. Найти количество различных чисел в этой последовательности
Дана последовательность целых чисел. Найти количество различных чисел в этой...

3
OLEGOFF
971 / 432 / 108
Регистрация: 27.02.2013
Сообщений: 1,266
12.05.2017, 15:59 2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Больше0()
    Dim n As Integer, m As Integer, P As Double, A As Double
    P = 0
    Do
       n = n + 1
       A = InputBox("Введите число № " & n & vbCrLf & "Окончание ввода - 0 ", , 0)
    
       If A = 0 Then n = n - 1: Exit Do
       If A > 0 Then P = P + 1
    Loop
    If n = 0 Then MsgBox "Не введено ни одного числа": Exit Sub
    If m = 0 Then MsgBox "Количество положительных чисел " & P: Exit Sub
   
End Sub
0
Vlad999
2814 / 1729 / 516
Регистрация: 02.11.2012
Сообщений: 4,317
12.05.2017, 16:13 3
я так понял
Visual Basic
1
2
3
4
5
6
7
8
9
10
Sub vvv()
p = 0
n = Val(InputBox("Введите количество цифр последовательности", "ВВОД ДАННЫХ"))
ReDim m(1 To n)
For i = 1 To n
   m(i) = Int(200 * Rnd - 100)
   If m(i) > 0 Then p = p + 1
Next
MsgBox "Положительных чисел в последовательности " & Chr(10) & Join(m, ";") & Chr(10) & "равно " & p
End Sub
1
dimon_7542345
0 / 0 / 0
Регистрация: 16.05.2018
Сообщений: 3
16.05.2018, 12:10 4
Vlad999, Привет, можешь к нему нарисовать блок-схему? Пожалуйста.

Добавлено через 2 минуты
Vlad999, Составьте блок-схему и программу на языке VBA, которая вычисляет количество положительных чисел во вводимой последовательности из n целых чисел. Количество чисел последовательности должно вводиться во время работы программы. Программа должна проверять правильность введенных пользователем данных и, если они неверные (n ≤ 0), выдавать сообщение об ошибке.
Такое же задание
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.05.2018, 12:10

Составьте блок-схему и программу на языке VBA, которая вычисляет количество положительных чисел во вводимой последовател
Составьте блок-схему и программу на языке VBA, которая вычисляет количество...

Найти произведение целых положительных чисел больших 30
Найти произведение целых положительных чисел больших 30, меньших 45, кратных 3...

программа вычисления суммы первых N целых положительных чисел
Разработайте алгоритм и программу вычисления суммы первых N целых положительных...


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

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

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