Сформировать матрицу 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 3.6 из 5
Похожие ответы