Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / определить количество отрицательных чисел / 22 сообщений из 22, страница 1 из 1
07.06.2004, 20:08
    #32551471
guest
guest
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
определить количество отрицательных чисел
Помогите составить алгоритм.
Вводится п чисел. Требуется определить среди них количество отрицательных...

Спасибо за помощь
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.06.2004, 20:29
    #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:32
    #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:34
    #32551484
EDUDK01
EDUDK01
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
определить количество отрицательных чисел
блин да что такое, Next i забыл в конце дописать
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.06.2004, 20:56
    #32551498
(c)VIG
(c)VIG
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
определить количество отрицательных чисел
A что, отрицательные и четные - это уже тождественные понятия?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.06.2004, 21:00
    #32551500
EDUDK01
EDUDK01
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
определить количество отрицательных чисел
2 VIG
правильно мыслишь, я погнал че то седня совсем, там условие надо дописать на проверку положительных значений.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.06.2004, 15:32
    #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, 16:57
    #32552871
EDUDK01
EDUDK01
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
определить количество отрицательных чисел
Мужики извиняюсь жутко, сижу сечас муть свою читаю :) Да уж, наваял я тут :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.06.2004, 17:58
    #32552993
paparome
paparome
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
определить количество отрицательных чисел
EDUDK01Мужики извиняюсь жутко, сижу сечас муть свою читаю :) Да уж, наваял я тут :)

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

И еще:
Для проверки четности (ИМХО) лучше использовать конструкцию типа
if (i mod 2) = 0 then
Читабельнее, да и пошустрее должна работать :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.06.2004, 11:04
    #32555762
guest
guest
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
определить количество отрицательных чисел
А можно как нибудь это вложить скажем в Access или в Excel?
Чтобы получилась программа подсчета.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.06.2004, 14:02
    #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:08
    #32556239
paparome
paparome
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
определить количество отрицательных чисел
Владимир СанычИли не удалять...
Удаляй, мы ему и тут ответим.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.06.2004, 14:10
    #32556247
paparome
paparome
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
определить количество отрицательных чисел
guestА можно как нибудь это вложить скажем в Access или в Excel?
Чтобы получилась программа подсчета.

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

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

Ну и сохраняейте значения в массив (которые вводятся)
Что не понятно?
Или вы не умеете?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.06.2004, 15:59
    #32556512
guest
guest
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
определить количество отрицательных чисел
Это как?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.06.2004, 16:14
    #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, 18:04
    #32556900
guest
guest
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
определить количество отрицательных чисел
что-то не то:

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

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

автор Было введено 0 отрицательных чисел
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.06.2004, 18:13
    #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:36
    #32556976
guest
guest
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
определить количество отрицательных чисел
все менюшки появляются и нормально считает число вводов, а вот отрицательные числа не считает
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.06.2004, 09:31
    #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
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / определить количество отрицательных чисел / 22 сообщений из 22, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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