Что сделать чтобы программа заработала?7? Вычислите количество отрицательных чисел в последовательности (цикл До)

@CONCH · Регистрация: 29.11.2020

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

C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a, i As Integer
        Dim b, z(100) As Single
        a = InputBox("ввидите колличество чисел в последовательности") & vbCr
        RichTextBox1.Text = "вы будете вводить" & Str(a) & "чисел последовательности" & vbCr
        For i = 1 To a Step 1
            z(i) = InputBox("введите число последовательности ")
            RichTextBox1.Text += Str(i) & "-е число последовательности" & Str(z(i)) & vbCr
        Next
        b = 0
        Do
            b = b + 1
        Loop Until z(i) < 0
 
        RichTextBox1.Text += "колличество отрицательных чисел в последовательности" & Str(b)
    End Sub
End Class

Вычислите количество отрицательных чисел в последовательности (цикл До)

@zna926 · 01.12.2020, 15:13

CONCH, Чтобы заработала нужны четкие условия:
1. Сколько чисел в ней,
2. Числа целые и случайные?
3. Есть еще что-то?

Добавлено через 8 минут
А что это за цикл До
Кстати, приведенный код - это нагромождение ненужных элементов.
По условию, код должен быть простым и коротким

@CONCH · 01.12.2020, 15:17 **[ТС]**

ммм .А по программе не понятно ,что пользователь сам вводит кол-во чисел в последовательности и сами числа соответственно? Эта часть программы как раз работает .А вот с кол-вом отрицательных чисел программа работает ,но не правильно :она не выдает последнее число последовательности и не выводит кол-во отрицательных чисел .

@CONCH · 01.12.2020, 15:20 **[ТС]**

Цикл ДО - это Do While… Loop

I can · 01.12.2020, 15:22

Сообщение от CONCH

C#
1
2
3
Do
 b = b + 1
 Loop Until z(i) < 0

В чём тайный смысл этого цикла?

Добавлено через 1 минуту
Ёпрст...

Это же VB.Net

@CONCH · 01.12.2020, 15:26 **[ТС]**

если число в последовательности меньше нуля ,то d=d+1 -это кол во этих чисел

I can · 01.12.2020, 15:32

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a, i, n As Integer
        Dim z() As Single
        a = Val(InputBox("ввидите колличество чисел в последовательности"))
        RichTextBox1.Text = "вы будете вводить " & a & " чисел последовательности" & vbCrLf
        ReDim z(a - 1)
        For i = 0 To a - 1
            z(i) = Val(InputBox("введите " & i + 1 & "-е число последовательности"))
            RichTextBox1.Text &= (i + 1) & "-е число последовательности " & z(i) & vbCrLf
            If z(i) < 0 Then n += 1
        Next
        RichTextBox1.Text &= "колличество отрицательных чисел в последовательности " & n
    End Sub
End Class

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/

@zna926 549 / 480 / 315 Регистрация: 24.09.2013 Сообщений: 3,345 Записей в блоге: 1
	01.12.2020, 15:13
	CONCH, Чтобы заработала нужны четкие условия: 1. Сколько чисел в ней, 2. Числа целые и случайные? 3. Есть еще что-то? Добавлено через 8 минут А что это за цикл До Кстати, приведенный код - это нагромождение ненужных элементов. По условию, код должен быть простым и коротким 0

@CONCH 0 / 0 / 0 Регистрация: 29.11.2020 Сообщений: 8
	01.12.2020, 15:17 [ТС]
	ммм .А по программе не понятно ,что пользователь сам вводит кол-во чисел в последовательности и сами числа соответственно? Эта часть программы как раз работает .А вот с кол-вом отрицательных чисел программа работает ,но не правильно :она не выдает последнее число последовательности и не выводит кол-во отрицательных чисел . Миниатюры 0

@CONCH 0 / 0 / 0 Регистрация: 29.11.2020 Сообщений: 8
	01.12.2020, 15:20 [ТС]
	Цикл ДО - это Do While… Loop 0

@CONCH 0 / 0 / 0 Регистрация: 29.11.2020 Сообщений: 8
	01.12.2020, 15:26 [ТС]
	если число в последовательности меньше нуля ,то d=d+1 -это кол во этих чисел 0

Что сделать чтобы программа заработала?7? Вычислите количество отрицательных чисел в последовательности (цикл До)

Решение