| Вопрос: Помогите решить эти задачи | Добавлено: 27.04.07 15:10 |
Автор вопроса:  pila
|
| Ответы | Всего ответов: 47 |
|
Номер ответа: 16 Автор ответа:  pila Вопросов: 1 Ответов: 25 |
Профиль | | #16 | Добавлено: 03.05.07 09:55 |
| А как сделать чтобы он отриц числа складывал в одну ячейку а положительные умножал? | ||
|
Номер ответа: 17 Автор ответа: pilaВопросов: 1 Ответов: 25 |
Профиль | | #17 | Добавлено: 03.05.07 11:51 |
| а как можно найти сумму элементов двух главных диагоналей? | ||
|
Номер ответа: 18 Автор ответа: pilaВопросов: 1 Ответов: 25 |
Профиль | | #18 | Добавлено: 03.05.07 14:34 |
|
2.Ввести массив A(N,M).Найти сумму элементов двух главных диагоналей.
а правильно я решил? Sub two()  im a(5, 2) As Double
Cells(6, 1) = 0 For i = 1 To 5 For j = 1 To 2 Cells(i, j) = Int(Rnd * 6) a(i, j) = Cells(i, j) Cells(6, 1) = Cells(6, 1) + a(i, j) Next j Next i End Sub |
||
|
Номер ответа: 19 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #19 | Добавлено: 03.05.07 16:18 |
|
for i=0 to min(n, m)
s1 = s1 + a(i,i) s2 = s2 + a(n-i, i) next |
||
|
Номер ответа: 20 Автор ответа: pilaВопросов: 1 Ответов: 25 |
Профиль | | #20 | Добавлено: 04.05.07 13:39 |
|
не как не могу решить доконца эту задачку, подскажите что я сделал неправильно
Задание такое: 3.Заполнить массив A(N) нечетными членами натурального ряда (1,3,5….) до тех пор пока их сумма не станет больше произвольного числа М. Найти произведение членов ряда и их число. Sub three() Cells(1, 4) = 0 Cells(1, 5) = 1 s = 0 k = 1 i = 0 p = 1 ReDim a(20): m = Cells(1, 2) For i = 1 To 20 Do While s <= m a(i) = k i = i + 1 p = p * k s = s + k k = k + 2 Loop Next i Cells(1, 4) = i Cells(1, 5) = p End Sub |
||
|
Номер ответа: 21 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #21 | Добавлено: 04.05.07 19:18 |
| Чем тебя не устроил мой код? | ||
|
Номер ответа: 22 Автор ответа: pilaВопросов: 1 Ответов: 25 |
Профиль | | #22 | Добавлено: 04.05.07 20:59 |
|
ну я по твоему принципу делал, тока что-то неолучается?
объясни еще раз пожалуйста, и как нечетные числа вводить?-через код или напрямую в excel вводить? |
||
|
Номер ответа: 23 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #23 | Добавлено: 04.05.07 21:52 |
| через увеличивающуюся на 2 в каждой итерации цикла переменную. | ||
|
Номер ответа: 24 Автор ответа: pilaВопросов: 1 Ответов: 25 |
Профиль | | #24 | Добавлено: 04.05.07 22:24 |
| а ты можешь эту задачку сам решить, уже целый день сижу, никак не могу найти правильное решение | ||
|
Номер ответа: 25 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #25 | Добавлено: 04.05.07 23:41 |
| Почему ты считаешь, что код, приведенный в посте 13 не является решением твоей задачи? | ||
|
Номер ответа: 26 Автор ответа: pilaВопросов: 1 Ответов: 25 |
Профиль | | #26 | Добавлено: 05.05.07 08:59 |
|
вот так чтоли?
когда запуск нажимаю ему зачемто это ненравится: Print "Таких чисел "; i; " штук, произведение = "; p Sub one() Dim a(20) For i = 1 To 20 s = 0 k = 1 i = 0 p = 1 Do While s <= 40 a(i) = k i = i + 1 p = p * k s = s + k k = k + 2 Loop Print "Таких чисел "; i; " штук, произведение = "; p End Sub |
||
|
Номер ответа: 27 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #27 | Добавлено: 05.05.07 18:00 |
| Ну, наверно, ему не нравится какая-то совершенно определенная строка, и он, наверно, даже выдает какое-то сообщение об ошибке? Так может не стоит надеяться на то, что телепатам будет не лень его телепатически определять? | ||
|
Номер ответа: 28 Автор ответа: pilaВопросов: 1 Ответов: 25 |
Профиль | | #28 | Добавлено: 06.05.07 19:59 |
| вот такая ошибка выходит | ||
|
Номер ответа: 29 Автор ответа: pilaВопросов: 1 Ответов: 25 |
Профиль | | #29 | Добавлено: 06.05.07 20:00 |
| method not valid without suitable object | ||
|
Номер ответа: 30 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #30 | Добавлено: 06.05.07 21:12 |
| А строка? | ||