Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / помогите пожалуйста / 25 сообщений из 55, страница 1 из 3
  1  все
12.01.2010, 12:21
    #36404950
Natashka1
Natashka1
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пожалуйста
составить программу вычисления в массиве суммы всех чисел, кратных 8;
составить программу вычисления среднего арифметического элементов с нечетными номерами; составить программу вычисления суммы элементов от второго отрицательного и до конца
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2010, 13:26
    #36405153
HandKot
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пожалуйста
есть 2 варианта:
1) 100 $
2) что вызывает трудности? покажите Ваши нароботки поможем, порпавим

ЗЫЖ ссессия...ссессия, как всегда не вовремя :-)

I Have Nine Lives You Have One Only
THINK!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2010, 13:32
    #36405170
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пожалуйста
HandKotесть 2 варианта:
1)
2)

Ну или 3) подождать, когда сюда заглянет альтруист VipFedor и с радостью поможет бедной замученной студентке не учиться самостоятельно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2010, 14:03
    #36405246
Natashka1
Natashka1
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пожалуйста
HandKot,

Dim A(1 To 9) As Integer
Print "массив A:=";
K = 1
For i = 1 To 9
If i Mod 8 <> 0 Then A(i) = -K Else A(i) = K
Print A(i);
K = K + 3
Next i
Print
S = 0 ' начальное значение суммы
K = 0
For i = 1 To 9
If A(i) Mod 8 = 0 Then S = S + A(i): K = K + 1 'сумма и количество элементов кратных 8
Next i
Print "сумма элементов кратных 8="; S

что тут исправить надо?
тут хоть что-нибудь правильное есть?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2010, 14:08
    #36405266
Natashka1
Natashka1
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пожалуйста
Natashka1,

это про вычисления в массиве суммы всех чисел, кратных 8
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2010, 14:22
    #36405298
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пожалуйста
Natashka1,

Так вроде все правильно работает, что вас смущает?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2010, 14:28
    #36405321
Natashka1
Natashka1
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пожалуйста
Shocker.Pro,

у меня vb не хочет устанавливаться, точно правильно?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2010, 14:32
    #36405335
HandKot
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пожалуйста
авторвычисления в массиве суммы всех чисел, кратных 8
Код: plaintext
1.
2.
3.
4.
S =  0  ' начальное значение суммы
For i =  1  To  9 
  If A(i) Mod  8  =  0  Then S = S + A(i):  'сумма и количество элементов кратных 8
Next i
Print "сумма элементов кратных 8="; S

этот кусок правильный, только убрал K = K + 1 т.к он здесь вообще вроде не к месту

а этот кусок запролняет массив?\
Код: plaintext
1.
2.
3.
4.
5.
6.
    Print "ìàññèâ A:=";
    K =  1 
    For i =  1  To  9 
        If i Mod  8  <>  0  Then A(i) = -K Else A(i) = K
        Print A(i);
        K = K +  3 
    Next i

I Have Nine Lives You Have One Only
THINK!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2010, 14:33
    #36405339
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пожалуйста
Natashka1,

Ну я уж забоялся.... Вроде правильно.
А эксель у вас ставится или ворд? Можно в тамошнем VBA экспериментировать.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2010, 14:36
    #36405351
.Михаил.
.Михаил.
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пожалуйста
Natashka1
Dim A(1 To 9) As Integer
Print "массив A:=";
K = 1
For i = 1 To 9
If i Mod 8 <> 0 Then A(i) = -K Else A(i) = K
Print A(i);
K = K + 3
Next i
Print
S = 0 ' начальное значение суммы
K = 0
For i = 1 To 9
If A(i) Mod 8 = 0 Then S = S + A(i): K = K + 1 'сумма и количество элементов кратных 8
Next i
Print "сумма элементов кратных 8="; S

что тут исправить надо?
тут хоть что-нибудь правильное есть?
это Basic? в Basic используются ";"
Natashka1
это про вычисления в массиве суммы всех чисел, кратных 8

в принципе правильно, чуть поправил под Basic
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Dim A( 1  To  9 ) As Integer
Dim i As Integer
Dim k As Integer
Dim s As Integer
Print "массив A:="
k =  1 
For i =  1  To  9 
    If (i Mod  8 ) <>  0  Then A(i) = -k Else A(i) = k
    Print A(i)
    k = k +  3 
Next i
Print 'хз для чего это тут, может быть переход на след. строку
k =  0 : s =  0  ' начальное значение суммы
For i =  1  To  9 
    If (A(i) Mod  8 ) =  0  Then
        s = s + A(i)
        k = k +  1  'сумма и количество элементов кратных 8
    End If
Next i
Print "сумма элементов кратных 8=": Print s
результат у меня -16
ps: "странная" инициализация массива тут применена...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2010, 14:56
    #36405425
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пожалуйста
.Михаил.это Basic? в Basic используются ";"

Что вас смущает? ";" используются в команде Print как в Basic, так и в VB
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2010, 15:05
    #36405456
Natashka1
Natashka1
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пожалуйста
HandKot,

составьте программу вычисления среднего арифметического элементов с нечетным номерами.

это среднее арифметическое всех элементов массива
Dim a(1 To 9) As Integer
Randomize Timer
'a(i)=(-1 4 -7 10 -13 16 -19 21 -24)
For i = 1 To 9
a(i) = Rnd * (21 + 24) - 24
Print "a("; i; ")"; a(i)
Next i
Print
Sum = 0 'начальное значение суммы
k = 9
For i = 1 To 9
Sum = Sum + a(i)
sr = Sum / k ' среднее арифметическое элементов массива
Next i
Print "сумма всех элементов массва="; Sum
Print "среднее арифметическое элементов массива="; sr
а в какой строчке писать что среднее арифметическое нужно только для нечетных номеров?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2010, 15:10
    #36405469
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пожалуйста
Natashka1,

For i = 2 To 8 Step 2
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2010, 15:11
    #36405472
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пожалуйста
ой, виноват НЕчетные

For i = 1 To 9 Step 2

ну и, разумеется, не k=9, а k=5
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2010, 15:13
    #36405477
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пожалуйста
Natashka1,

Будьте так любезны, используйте SRC для оформления кода в сообщениях.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2010, 15:17
    #36405491
Natashka1
Natashka1
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пожалуйста
[quot Shocker.Pro]Natashka1,

это как?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2010, 15:20
    #36405505
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пожалуйста
Natashka1,

Выделяете мышкой

Код: plaintext
нужный текст

и нажимаете кнопочку SRC
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2010, 16:59
    #36405803
Natashka1
Natashka1
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пожалуйста
Shocker.Pro,

программа вычисления произведения четных элементов массива

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Private Sub Command7_Click()
Cls 
Dim a( 1  To  10 ) As Integer
Randomize Timer
Print " исходный массив а "
For i =  1  To  10  step  2 
a(i) = Rnd * ( 40  - (- 20 )) + (- 20 )
Print "a("; i; ")="; a(i)
Next i
ko =  0  
p =  1  
For i =  1  To  10 
If a(i) <=  0  Then p = p * a(i): ko = ko + a(i)
Next i
Print " произведение отрицательных элеметов ="; p
End Sub

правильно?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2010, 17:05
    #36405823
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пожалуйста
1) Так четных или отрицательных? - определитесь
2) При заполнении массива не надо перепрыгивать через 1 элемент - преподаватель не поймет
3) Не путайте четные элементы с элементами с четными номерами.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2010, 17:06
    #36405833
Natashka1
Natashka1
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пожалуйста
Shocker.Pro,

все не правильно в общем да
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2010, 17:12
    #36405854
Hugo121
Hugo121
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пожалуйста
Ну не совсем уж так плохо. Я в Экселе тестю:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Sub nnn()
'Cls
Dim a( 1  To  10 ) As Integer
Randomize Timer
MsgBox " исходный массив а "
For i =  1  To  10  ' Step 2
a(i) = Rnd * ( 40  - (- 20 )) + (- 20 )
MsgBox "a(" & i & ")=" & a(i)
Next i
'ko = 0
p =  1 
For i =  1  To  10 
If a(i) <  0  Then p = p * a(i) ': ko = ko + a(i)
Next i
MsgBox " произведение отрицательных элеметов = " & p
End Sub
Зелёное лишнее (может Cls не лишнее, но в Экселе лишнее :) )
И вот это If a(i) < 0 ещё поменял
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2010, 17:12
    #36405858
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пожалуйста
Это был вопрос или утверждение?

Попробуйте не тырить примеры из чужого конспекта, а разобраться самостоятельно. А также, хотя бы прочитать свой пост и мой вопрос.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2010, 17:13
    #36405863
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пожалуйста
Hugo121Ну не совсем уж так плохо. Я в Экселе тестю:

Просили произведение четных.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2010, 17:14
    #36405867
Hugo121
Hugo121
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пожалуйста
Хотя в ТЗ такой задачи небыло
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2010, 17:15
    #36405872
Hugo121
Hugo121
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пожалуйста
Да, то то я смотрю... но ведь в коде "произведение отрицательных элеметов", в общем и почти работает...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
  1  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / помогите пожалуйста / 25 сообщений из 55, страница 1 из 3
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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