ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / определить количество отрицательных чисел
22 сообщений из 22, страница 1 из 1
определить количество отрицательных чисел
    #32551471
guest
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guest
Участник
Помогите составить алгоритм.
Вводится п чисел. Требуется определить среди них количество отрицательных...

Спасибо за помощь
...
Рейтинг: 0 / 0
07.06.2004, 20:08
| Ответить | Цитировать | Написать  
определить количество отрицательных чисел
    #32551479
EDUDK01
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
EDUDK01
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Dim myN as Long


IF myN<>0 then
   IF myN/2=Int(myN/2) Then
      это четное число
   End if
End if
...
Рейтинг: 0 / 0
07.06.2004, 20:29
| Ответить | Цитировать | Написать  
определить количество отрицательных чисел
    #32551482
EDUDK01
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
EDUDK01
Участник
сорри погнал...

Dim myN as Long
Dim myCount as Long

For i=1 to myN
IF i/2<>Int(i/2) Then
myCount=myCount+1
End if
...
Рейтинг: 0 / 0
07.06.2004, 20:32
| Ответить | Цитировать | Написать  
определить количество отрицательных чисел
    #32551484
EDUDK01
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
EDUDK01
Участник
блин да что такое, Next i забыл в конце дописать
...
Рейтинг: 0 / 0
07.06.2004, 20:34
| Ответить | Цитировать | Написать  
определить количество отрицательных чисел
    #32551498
(c)VIG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
(c)VIG
Участник
A что, отрицательные и четные - это уже тождественные понятия?
...
Рейтинг: 0 / 0
07.06.2004, 20:56
| Ответить | Цитировать | Написать  
определить количество отрицательных чисел
    #32551500
EDUDK01
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
EDUDK01
Участник
2 VIG
правильно мыслишь, я погнал че то седня совсем, там условие надо дописать на проверку положительных значений.
...
Рейтинг: 0 / 0
07.06.2004, 21:00
| Ответить | Цитировать | Написать  
определить количество отрицательных чисел
    #32552658
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paparome
Участник
Нда :) EDUDK01 в ударе :)

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
...
count =  0 
For i =  1  To n
 if arr(i) <  0  then
  count = count +  1 
 end if
Next

msgbox count
...

?
...
Рейтинг: 0 / 0
08.06.2004, 15:32
| Ответить | Цитировать | Написать  
определить количество отрицательных чисел
    #32552871
EDUDK01
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
EDUDK01
Участник
Мужики извиняюсь жутко, сижу сечас муть свою читаю :) Да уж, наваял я тут :)
...
Рейтинг: 0 / 0
08.06.2004, 16:57
| Ответить | Цитировать | Написать  
определить количество отрицательных чисел
    #32552993
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paparome
Участник
EDUDK01Мужики извиняюсь жутко, сижу сечас муть свою читаю :) Да уж, наваял я тут :)

Да уж - наваял :)
Это - а не опытные-то ведь и поверить могут :(

И еще:
Для проверки четности (ИМХО) лучше использовать конструкцию типа
if (i mod 2) = 0 then
Читабельнее, да и пошустрее должна работать :)
...
Рейтинг: 0 / 0
08.06.2004, 17:58
| Ответить | Цитировать | Написать  
определить количество отрицательных чисел
    #32555762
guest
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guest
Участник
А можно как нибудь это вложить скажем в Access или в Excel?
Чтобы получилась программа подсчета.
...
Рейтинг: 0 / 0
10.06.2004, 11:04
| Ответить | Цитировать | Написать  
определить количество отрицательных чисел
    #32556232
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Участник
guest в другом топике писал:Как можно создать простую программу, которая вела подсчет отрицательных чисел?

Код подсчета на VB уже есть:

...
count = 0
For i = 1 To n
if arr(i) < 0 then
count = count + 1
end if
Next

msgbox count
...

Что дальше делать?

Тот топик я удаляю.
...
Рейтинг: 0 / 0
10.06.2004, 14:02
| Ответить | Цитировать | Написать  
определить количество отрицательных чисел
    #32556234
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Участник
Или не удалять...
...
Рейтинг: 0 / 0
10.06.2004, 14:02
| Ответить | Цитировать | Написать  
определить количество отрицательных чисел
    #32556239
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paparome
Участник
Владимир СанычИли не удалять...
Удаляй, мы ему и тут ответим.
...
Рейтинг: 0 / 0
10.06.2004, 14:08
| Ответить | Цитировать | Написать  
определить количество отрицательных чисел
    #32556247
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paparome
Участник
guestА можно как нибудь это вложить скажем в Access или в Excel?
Чтобы получилась программа подсчета.

Можно, но вопрос - откуда данные беруться
Например, в обсуждаемом примере данные беруться из массива arr(), но не описано как они туда попадают (мне казалось, что у вас этот вопрос уже решен)

Значит так - давай полное ТЗ и будем думать :)
...
Рейтинг: 0 / 0
10.06.2004, 14:10
| Ответить | Цитировать | Написать  
определить количество отрицательных чисел
    #32556335
guest
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guest
Участник
значения вводится через консоль
программа должна посчитать сумму отрицательных чисел
...
Рейтинг: 0 / 0
10.06.2004, 14:49
| Ответить | Цитировать | Написать  
определить количество отрицательных чисел
    #32556339
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paparome
Участник
guestзначения вводится через консоль
программа должна посчитать сумму отрицательных чисел

Ну и сохраняейте значения в массив (которые вводятся)
Что не понятно?
Или вы не умеете?
...
Рейтинг: 0 / 0
10.06.2004, 14:51
| Ответить | Цитировать | Написать  
определить количество отрицательных чисел
    #32556512
guest
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guest
Участник
Это как?
...
Рейтинг: 0 / 0
10.06.2004, 15:59
| Ответить | Цитировать | Написать  
определить количество отрицательных чисел
    #32556565
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paparome
Участник
Код: plaintext
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.
34.
35.
36.
37.
38.
39.
Dim arr() as Integer
Dim strinp as String
Dim n as Integer
Dim count as Integer

strinp = ""
n =  0 
While n =  0 
  strinp = inputbox("Введите кол-во значений", "10")  
  if IsNumeric(strinp) then
    if strinp >  20  then
      msgbox "Слишком много!", , "Попробуйте еще раз"
    else
      n = strinp
    end if
  else
    msgbox "Должно быть число!", , "Попробуйте еще раз"
  end if
Wend

ReDim arr( 1  to n) as Integer
For i =  1  to n
  strinp = ""
  While Not IsNumeric(strinp)
    strinp = inputbox("Введите число (элемент №" & i & ")" , "0")  
    if Not IsNumeric(strinp) then
      msgbox "Должно быть число!", , "Попробуйте еще раз"
    end if
  Wend
  arr(i) = strinp
Next

count =  0 
For i =  1  To n
  if arr(i) <  0  then
    count = count +  1 
  end if
Next

msgbox "Было введено " & count & " отридцательный чисел.", , "Ответ"

В процедуру сам вставишь?

PS: могут быть синтаксические ошибки (не проверял)
...
Рейтинг: 0 / 0
10.06.2004, 16:14
| Ответить | Цитировать | Написать  
определить количество отрицательных чисел
    #32556900
guest
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guest
Участник
что-то не то:

создал кнопку кинул процедуру на открытие все Ок
только вот считать то он не считает

вводишь одни отрицательные числа он говорит что их 0
и наоборот результат тотже

автор Было введено 0 отрицательных чисел
...
Рейтинг: 0 / 0
10.06.2004, 18:04
| Ответить | Цитировать | Написать  
определить количество отрицательных чисел
    #32556925
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paparome
Участник
У мну работает :)

Код: plaintext
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.
34.
35.
36.
37.
38.
39.
40.
41.
Dim arr() As Integer
Dim strinp As String
Dim n As Integer
Dim count As Integer
Dim i As Integer

strinp = ""
n =  0 
While n =  0 
  strinp = InputBox("Введите кол-во значений", "Размер", "10")
  If IsNumeric(strinp) Then
    If strinp >  20  Then
      MsgBox "Слишком много!", , "Попробуйте еще раз"
    Else
      n = strinp
    End If
  Else
    MsgBox "Должно быть число!", , "Попробуйте еще раз"
  End If
Wend

ReDim arr( 1  To n) As Integer
For i =  1  To n
  strinp = ""
  While Not IsNumeric(strinp)
    strinp = InputBox("Введите число (элемент №" & i & ")", "Число", "0")
    If Not IsNumeric(strinp) Then
      MsgBox "Должно быть число!", , "Попробуйте еще раз"
    End If
  Wend
  arr(i) = strinp
Next

count =  0 
For i =  1  To n
  If arr(i) <  0  Then
    count = count +  1 
  End If
Next

MsgBox "Было введено " & count & " отридцательный чисел.", , "Ответ"
...
Рейтинг: 0 / 0
10.06.2004, 18:13
| Ответить | Цитировать | Написать  
определить количество отрицательных чисел
    #32556976
guest
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guest
Участник
все менюшки появляются и нормально считает число вводов, а вот отрицательные числа не считает
...
Рейтинг: 0 / 0
10.06.2004, 18:36
| Ответить | Цитировать | Написать  
определить количество отрицательных чисел
    #32557444
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paparome
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
count = 0
For i = 1 To n
   msgbox arr(i) 
  If arr(i) < 0 Then
    count = count + 1
  End If
Next

Вставь эту строку и посмотри он выводит, то что ты ввел?
...
Рейтинг: 0 / 0
11.06.2004, 09:31
| Ответить | Цитировать | Написать  
22 сообщений из 22, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / определить количество отрицательных чисел
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]