VBNet - Форум - ГЕОМТРИЧЕСКАЯ ПРОГРЕССИЯ!

Вопрос: ГЕОМТРИЧЕСКАЯ ПРОГРЕССИЯ! Добавлено: 10.03.06 20:09

Автор вопроса: DJ MATHEMATIC

У меня такая проблема: в задаче (подсчитать количество строк в матрице А(n,n),т.е. в массиве (n,n),элементы которых располагаются в геометрической прогрессии) у меня никак не выводится нужное к(кол-во строк).Он считывет не нужные строки, а просто все!!! Вот код

Private Sub Command1_Click()
Const n As Byte = 3
Dim A(1 To n, 1 To n) As Integer
Print: Print
For i = 1 To n
    For j = 1 To n
      A(i, j) = InputBox("MATRIX A(" & i & "," & j & ")")
      Print A(i, j);
      Print vbTab;
    Next j
    Print
    Next i
k = 0
For i = 1 To n
  q = A(i, 2) / A(i, 1)
    For j = 1 To n
      If A(i, j) = A(i, 1) * q ^ (j - 1) Then
      Else: Exit For
      End If
    Next j
      k = k + 1
Next i
  Print k
End Sub
Ответить

Ответы Всего ответов: 3

Номер ответа: 1 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #1	Добавлено: 10.03.06 23:54
	а можно пример геометрической погрессии, тогда помогу, а то я наверное болел на это теме Ответить

Номер ответа: 2 Автор ответа: DJ MATHEMATIC Вопросов: 17 Ответов: 18	Профиль \| \| #2	Добавлено: 11.03.06 00:16
	2,4,8,16... 3,6,12,24,,,Т.е.каждое последующее число получается путем умножения предыдущего на одно и тоже число q Ответить

Номер ответа: 3 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979	Web-сайт: sharpc.livejournal.com Профиль \| \| #3	Добавлено: 11.03.06 18:53
	Else: Exit For Эта строка выводит только из внутреннего цикла, но не из внешнего, как тебе надо. Можешь поставить там goto или ввести дополнительную переменную. Ответить

Страница: 1 |