Словесное описание
МИНИСТЕРСТВО ПУТЕЙ СООБЩЕНИЯ РФ САНКТ-ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ПУТЕЙ СООБЩЕНИЯ
ПГУПС КАФЕДРА «ИНФОРМАТИКА И ИФОРМАЦИОННАЯ БЕЗОПАСТНОСТЬ»
ОТЧЕТ ПО ЛАБОРАТОРНОЙ РАБОТЕ ПО ИНФОРМАТИКЕ
“Visual Basic” Лабораторная работа №6 Структура “ Заполнение ”
Вариант №17
Выполнил студент Группы ЭС-406 Кузнецов А. Г.
Проверил: Г. Словесное описание Пересчитать вектор N размерности k no правилу: Ni=Ni+Ni+1, при i < k Проанализировать выполнение программы на примере: N={1; 2; 3; 4; 5; 6; 7; 8} Алгоритмизация
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 Отладка программы
Словесное описание Пересчитать элементы матрицы К размерности m*n, разделив каждый из них на элемент, расположенный в той же строке в первом столбце. Проанализировать выполнение программы на примере:
|
