Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
МИНИСТЕРСТВО ПУТЕЙ СООБЩЕНИЯ РФ
САНКТ-ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ
ПУТЕЙ СООБЩЕНИЯ
ПГУПС
КАФЕДРА «ИНФОРМАТИКА И ИФОРМАЦИОННАЯ БЕЗОПАСТНОСТЬ»
ОТЧЕТ ПО ЛАБОРАТОРНОЙ РАБОТЕ ПО ИНФОРМАТИКЕ
“Visual Basic”
Лабораторная работа №6
Структура “ Заполнение ”
Вариант №17
Выполнил студент
Группы ЭС-406 Кузнецов А. Г.
Проверил:
2005 г.
Пересчитать вектор N размерности k no правилу:
Ni=Ni+Ni+1, при i < k
Проанализировать выполнение программы на примере:
N={1; 2; 3; 4; 5; 6; 7; 8}
2. Алгоритмизация
3. Программирование
Private Sub Command1_Click()
Dim i As Double
Dim K As Double
Dim N( ) As Double
K = InputBox("Введите размерность матрицы K")
ReDim N(1 to K)
For i=1 to K
N(i) = InputBox("Введите элемент вектора K(" & Str(i) & ")=")
Next i
For i=1 To K-1
N(i)=N(i)+N(i+1)
Next i
For i = 1 To K
Print "N(" & Str(i) & ")'=" & N(i)
Next i
End Sub
4. Отладка программы
1.Словесное описание
Пересчитать элементы матрицы К размерности m*n, разделив каж дый из них на элемент, расположенный в той же строке в первом столбце.
Проанализировать выполнение программы на примере:
2. Алгоритмизация
3. Программирование
Private Sub Command1_Click()
Dim M As Double
Dim i As Double
Dim j As Double
Dim N As Double
Dim K( ) As Double
M = InputBox("Введите размерность матрицы M")
N = InputBox("Введите размерность матрицы N")
ReDim K(1 to M,1 to N)
For i=1 to M
For j=1 To N
K(i, j) = InputBox("Введите элемент матрицы K(" & Str(i) & "," & Str(j) & ")=")
Next j
Next i
For i = 1 To M
For j = N To 1 Step -1
K(i, j) = K(i, j) / K(i, 1)
Next j
Next i
For i = 1 To M
For j = 1 To N
Print K(i, j), "";
Next j
Next i
End Sub
4. Отладка программы
конец
конец
K(i,j)1
i=i+1
j=j+1
K(i,j)=K(i,j)/K(i,1)
j<=N
j=1
i<=M
i=1
{N}
M, N, {K}
начало
i=i+1
Ni=Ni+Ni+1
i<K
i=1
{N}, K
начало