| Вопрос: Помогите решить эти задачи | Добавлено: 27.04.07 15:10 |
Автор вопроса:  pila
|
| Ответы | Всего ответов: 47 |
|
Номер ответа: 31 Автор ответа: pila Вопросов: 1 Ответов: 25 |
Профиль | | #31 | Добавлено: 06.05.07 21:27 |
| что строка? | ||
|
Номер ответа: 32 Автор ответа:  Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #32 | Добавлено: 07.05.07 04:19 |
| Ошибки обычно происходят в какой-то определенной строке. Номер этой строки я и попросил тебя сообщить в 30-м посте. | ||
|
Номер ответа: 33 Автор ответа: pilaВопросов: 1 Ответов: 25 |
Профиль | | #33 | Добавлено: 07.05.07 09:44 |
|
вот он выделяет эту строку:
Print "Таких чисел "; i; " штук, произведение = "; p |
||
|
Номер ответа: 34 Автор ответа: pilaВопросов: 1 Ответов: 25 |
Профиль | | #34 | Добавлено: 07.05.07 10:18 |
|
да ладно, вместо print я поставил
MsgBox ("Таких чисел " & i & " произведение = " & p) |
||
|
Номер ответа: 35 Автор ответа: pilaВопросов: 1 Ответов: 25 |
Профиль | | #35 | Добавлено: 07.05.07 10:43 |
|
Sharp
а ты знаешь как можно решить эту задачку: Ввести массив A(N).Задать число L.Вывести на печать исходный массив, значения первого элемента массива больше L, число элементов массива больших L Sub four() ReDim a(6) For i = 1 To 6 Next i L=10 End Sub а что дальше? cells(1,1) прибавить какое-то число и a(i)=a(i)+1? и эти значения вывести на экран? |
||
|
Номер ответа: 36 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #36 | Добавлено: 07.05.07 14:53 |
|
значения первого элемента массива больше L,
Не понял вот этого места. |
||
|
Номер ответа: 37 Автор ответа: pilaВопросов: 1 Ответов: 25 |
Профиль | | #37 | Добавлено: 07.05.07 17:50 |
|
да, я тоже не сразу въехал.. в общем понимать наверное так:
допустим у нас есть a(0)=2 a(1)=3 a(2)=4 a(3)=5 a(4)=6 a(5)=7 а L=3 первый элемент больше 3 это a(2), а как тока этот один элемент вывести на печать? вот что я набросал: Sub four() ReDim a(6) i = 0 L = 3 For i = 1 To 6 Next i If a(i) > L Then i = i + 1 ......... MsgBox ("Таких чисел " & i & " это число " &...) End If End Sub |
||
|
Номер ответа: 38 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #38 | Добавлено: 08.05.07 01:40 |
|
c = 0
for i=n to 1 step -1 if a(i) > l then c=c+1 r=a(i) end if next msgbox "Таких чисел " & с & "штук, первое - " & r |
||
|
Номер ответа: 39 Автор ответа: pilaВопросов: 1 Ответов: 25 |
Профиль | | #39 | Добавлено: 13.05.07 11:47 |
|
Sharp а что тут неправильно?
Sub four() '99 ReDim a(8) c = 0 L = 8 ' заранее заданное число  o While a(i) > L
r = a(i) с = с + 1 Loop MsgBox (" таких чисел " & c & " первое число больше L= " & r) End Sub |
||
|
Номер ответа: 40 Автор ответа: pilaВопросов: 1 Ответов: 25 |
Профиль | | #40 | Добавлено: 13.05.07 12:29 |
|
помогите дорешать задачку
Ввести массив A(N).Задать число L.Вывести на печать исходный массив, значения первого элемента массива больше L, число элементов массива больших L вот я ввел в Excel числа 6 -12 14 12 16 19 21 -6 числа больше L он правильно читает, а 1-ое число больше L читает с конца, т.е указывает на цифру 21 Sub four() '99 ReDim a(8) c = 0 L = 15 ' заранее заданное число For i = 1 To 8 a(i) = Cells(i) If a(i) > L Then r = a(i) c = c + 1 End If Next i MsgBox (" таких чисел " & c & " первое число больше L= " & r) End Sub |
||
|
Номер ответа: 41 Автор ответа: pilaВопросов: 1 Ответов: 25 |
Профиль | | #41 | Добавлено: 13.05.07 15:02 |
|
вышеперечисленные уже ненужны, я их уже понял как делать!!!
AndVGri спасибо а как сделать чтобы программка вычисляла _каждый_ столбец массива, а не сразу два: вот код Sub one() im a(10, 2) As Double
Cells(12, 1) = 0 Cells(14, 1) = 1 For i = 1 To 10 For j = 1 To 2 Cells(i, j) = Int((10 - (-10) + 1) * Rnd + (-10)) a(i, j) = Cells(i, j) If a(i, j) <= 0 Then Cells(12, 1) = Cells(12, 1) + a(i, j) Else Cells(14, 1) = Cells(14, 1) * a(i, j) End If Next j Next i End Sub |
||
|
Номер ответа: 42 Автор ответа: pilaВопросов: 1 Ответов: 25 |
Профиль | | #42 | Добавлено: 13.05.07 18:09 |
|
а как решается вот эта задачка:
5.Ввести массив A(N). Преобразовать его так, чтобы значения элементов являлись суммой элемента массива и его индекса. Вывести на печать исходный и преобразованный массивы. Sub five() Dim a(7) s = 0 k = 1 For i = n To 1 Step 1 s = s + a(i) k = k + 1 Next i End Sub |
||
|
Номер ответа: 43 Автор ответа: Gogic Вопросов: 38 Ответов: 121 |
Профиль | | #43 | Добавлено: 13.05.07 19:12 |
ну это вообще детский сад 
Sub Five() Dim a(7) As Byte Dim b(7) As Byte Dim i As Byte For i = 0 To 7 a(i) = 100 b(i) = a(i) + i Next For i = 0 To 7 Debug.Print a(i), b(i) Next End Sub |
||
|
Номер ответа: 44 Автор ответа: pilaВопросов: 1 Ответов: 25 |
Профиль | | #44 | Добавлено: 13.05.07 19:48 |
| и что тут ты ввел? объясни пожалуйста | ||
|
Номер ответа: 45 Автор ответа: GogicВопросов: 38 Ответов: 121 |
Профиль | | #45 | Добавлено: 13.05.07 23:40 |
|
Sub Five()
'Создадим одномерный массив с 7-ю элементами Dim a(7) As Byte 'Создадим еще один одномерный массив с 7-ю элементами Dim b(7) As Byte 'Объявим переменную-счетчик цикла Dim i As Byte For i = 0 To 7 'Всем элементам первого массива присвоим значение 100 a(i) = 100 'Для каждого элемента второго массива значение будет складываться 'из соответствующего элемента первого массива и соответствующего индекса 'первого массива, совпадающего с переменной-счетчиком b(i) = a(i) + i 'Покажем значения обоих массивов в окне отладки Debug.Print a(i), b(i) Next End Sub 'Можно обойтись и одним массивом, тогда будет два цикла 'Это будет выглядеть так: Sub Five2() Dim a(7) As Byte Dim i As Byte For i = 0 To 7 a(i) = 100 Debug.Print a(i) Next For i = 0 To 7 a(i) = a(i) + i Debug.Print a(i) Next End Sub |
||