Сформировать матрицу M x N, у которой первый столбец совпадает с исходным массивом, а остальные являются арифметической прогрессией с шагом D - VB
Формулировка задачи:
Даны целые положительные числа M, N, число D и набор из M чисел. Сформировать матрицу размера M Ч N, у которой первый столбец совпадает с исходным набором чисел, а элементы каждого следующего столбца равны сумме соответствующего элемента предыдущего столбца и числа D (в результате каждая строка матрицы будет содержать элементы арифметической прогрессии).
Решение задачи: «Сформировать матрицу M x N, у которой первый столбец совпадает с исходным массивом, а остальные являются арифметической прогрессией с шагом D»
textual
Листинг программы
Private Sub Command1_Click() Dim m%, n%, d% m = InputBox("m") n = InputBox("n") d = InputBox("d") Print "×èñëî d"; d ReDim m1%(m) Print "Г*Г*áîð Г·ГЁГ±ГҐГ« m" For i = 1 To m m1(i) = Rnd(1) * 10 Print m1(i); Next i Print ReDim n1%(m, n) For i = 1 To m n1(i, 1) = m1(i) Next i For i = 1 To m For j = 2 To n n1(i, j) = n1(i, j - 1) + d Next j Next i Print "Г¬Г*òðèöГ* m*n" For i = 1 To m For j = 1 To n Print n1(i, j); Next j Print Next i End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д