| Вопрос: Найти сумму произведения следующих чисел! | Добавлено: 17.02.06 18:48 |
Автор вопроса:  СЕРЕЖЕНЬКА
|
|
Найти сумму произведения следующих чисел!
у = (1*2)+(2*3*4)+(3*4*5*6)+(4*5*6*7)...всего n слагаемых |
| Ответы | Всего ответов: 12 |
|
Номер ответа: 1 Автор ответа:  trialist Вопросов: 14 Ответов: 76 |
Профиль | | #1 | Добавлено: 17.02.06 19:09 |
|
Цикл в цикле, чтото вроде
dim a,c as integer c=1 for x=1 to n for z=1 to n+1 c=c 
a=a+1 next z y=y+a next x |
||
|
Номер ответа: 2 Автор ответа:  [root] Вопросов: 45 Ответов: 1212 |
Web-сайт: Профиль | | #2 | Добавлено: 17.02.06 19:46 |
|
Считаем сумму от 0 до того числа которое введем:
Option Explicit
Dim intN As Integer Dim lngSumma As Long Private Sub Command1_Click() lngSumma = 0 Dim i As Long intN = InputBox("Введите конечное число", "Ввод числа" 
For i = 0 To intN lngSumma = lngSumma + i Next i Label1.Caption = lngSumma End Sub |
||
|
Номер ответа: 3 Автор ответа: [root]Вопросов: 45 Ответов: 1212 |
Web-сайт: Профиль | | #3 | Добавлено: 17.02.06 20:50 |
|
Ссори это не совсем то что ты просил!
Не внимательно прочитал.
|
||
|
Номер ответа: 4 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #4 | Добавлено: 18.02.06 00:39 |
|
маленькая последовательность дана в пример, а большу (из 10-ти
слагаемых) нет возможности проверить, owerflow 
Private Sub Form_Load() test = (1 * 2) + (2 * 3 * 4) + (3 * 4 * 5 * 6) + (4 * 5 * 6 * 7) MsgBox "  1*2)+(2*3*4)+(3*4*5*6)+(4*5*6*7) = " & test, vbInformation, "Тест"
N = 7 Last = 1 For i = 1 To N Step Last If (i + Last) > N Then Last = Last - 1: flag = True Result = Result + Proizvedenie(i, i + Last) Last = Last + 1 If flag = True Then Exit For Next i MsgBox "result = " & Result, vbInformation, "Программно в 7 слагаемых" MsgBox "Made by HACKER ", vbInformation
End End Sub Function Proizvedenie(NumStart, NumEnd) Proizvedenie = 1 For i = NumStart To NumEnd Proizvedenie = Proizvedenie * i Next i End Function |
||
|
Номер ответа: 5 Автор ответа:  SergeyICQ: 283551900 Вопросов: 1 Ответов: 74 |
Профиль | | #5 | Добавлено: 18.02.06 22:01 |
|
...+(3*4*5*6)+(4*5*6*7)... произведение 4 чисел.
далее (5*6*7*8)+(6*7*8*9)!! если нет ошибки в задание! |
||
|
Номер ответа: 6 Автор ответа: SergeyICQ: 283551900 Вопросов: 1 Ответов: 74 |
Профиль | | #6 | Добавлено: 18.02.06 22:12 |
|
Function Zad(ByVal N As Int64) As Int64
Dim P As Int64 Dim S As Int64 Dim i As Int64 If N = 0 Then Return 0 ElseIf N = 1 Then Return 1 * 2 ElseIf N = 2 Then Return (1 * 2) + (2 * 3 * 4) Else S = (1 * 2) + (2 * 3 * 4) P = (3 * 4 * 5 * 6) For i = 3 To N S += P P /= i P *= i + 4 Next Return S End If End Function |
||
|
Номер ответа: 7 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #7 | Добавлено: 19.02.06 03:10 |
|
нет, наверное имелось ввиду что с каждим разом число множетелей растёт, и пока самое большой множетель не достигнет N, т.е.
В задании (до 7-ми): (1 * 2) + (2 * 3 * 4) + (3 * 4 * 5 * 6) + (4 * 5 * 6 * 7)
Обычно задачи такие специально хитро описывают, на самом деле имели ввиду... Пример из 8-ми слагаемых: (1 * 2) + (2 * 3 * 4) + (3 * 4 * 5 * 6) + (4 * 5 * 6 * 7 * 8)
Из 9-ти: (1 * 2) + (2 * 3 * 4) + (3 * 4 * 5 * 6) + (4 * 5 * 6 * 7 * 8) + (5 * 6 * 7 * 8 * 9)
Короче множетелей в скобке с каждим разом больше, и растут сами эти множетели, но если самый большой множетель уже больше чем N, то посчитать только до N, а не дальше (как в примере из 7-ми) Ну это я так понял Как на самом деле х.з.
Как понял - так сделал... |
||
|
Номер ответа: 8 Автор ответа: SergeyICQ: 283551900 Вопросов: 1 Ответов: 74 |
Профиль | | #8 | Добавлено: 19.02.06 11:33 |
|
Как понял - так сделал... ко мне тоже относиться
Пример из 8-ми слагаемых:
(1 * 2) + (2 * 3 * 4) + (3 * 4 * 5 * 6) + (4 * 5 * 6 * 7 * 8) где здесь 8 слогаемых? Короче множетелей в скобке с каждим разом больше, и растут сами эти множетели, но если самый большой множетель уже больше чем N, то посчитать только до N, а не дальше (как в примере из 7-ми)
Нужно - найти n слагаемых!!! То есть дается число определяющее сколько слагаемых, а не максимальный множитель. |
||
|
Номер ответа: 9 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #9 | Добавлено: 19.02.06 21:14 |
|
лана х.з. аффтар должен разьяснивать задание...
|
||
|
Номер ответа: 10 Автор ответа: SergeyICQ: 283551900 Вопросов: 1 Ответов: 74 |
Профиль | | #10 | Добавлено: 19.02.06 22:01 |
|
он уже забыл про задание))))
|
||
|
Номер ответа: 11 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #11 | Добавлено: 19.02.06 22:26 |
|
утож
|
||
|
Номер ответа: 12 Автор ответа: [root]Вопросов: 45 Ответов: 1212 |
Web-сайт: Профиль | | #12 | Добавлено: 20.02.06 07:56 |
|
Значит закругляйтесь
|
||
Страница: 1 |