Задачи по "Математике"

Задача 2

I Постановка задачи

Каждому элементу матрицы D присвоить значение равное величине h, умноженной на значение индекса строки, в которой расположен элемент.

II Математическая модель задачи

D [pic 1]

III Разработка алгоритма

                                                                                                                                                                                            [pic 2][pic 3][pic 4][pic 5][pic 6][pic 7][pic 8][pic 9][pic 10][pic 11][pic 12][pic 13][pic 14][pic 15][pic 16][pic 17][pic 18][pic 19][pic 20][pic 21][pic 22][pic 23][pic 24][pic 25][pic 26][pic 27][pic 28][pic 29][pic 30][pic 31]

h,[pic 32]

IV Разработка визуальной части проекта           [pic 33]       

V Код приложения

   Option Base 1

Private Sub Command1_Click()

Dim m As Integer, n As Integer

Dim i As Integer, j As Integer

Dim D() As Single

m = InputBox("Ñòðîê m=")

n = InputBox("ñòîëáöîâ n=")

ReDim D(m, n)

h = InputBox("h=")

Print "h=" & h

For i = 1 To m

For j = 1 To n

D(i, j) = h * i

Print D(i, j),

Next

Print

Next

End Sub

VI Отладка проекта

[pic 34][pic 35][pic 36][pic 37]