Головна сторінка Випадкова сторінка
КАТЕГОРІЇ:
АвтомобіліБіологіяБудівництвоВідпочинок і туризмГеографіяДім і садЕкологіяЕкономікаЕлектронікаІноземні мовиІнформатикаІншеІсторіяКультураЛітератураМатематикаМедицинаМеталлургіяМеханікаОсвітаОхорона праціПедагогікаПолітикаПравоПсихологіяРелігіяСоціологіяСпортФізикаФілософіяФінансиХімія
Chapter II
Дата добавления: 2015-08-29; просмотров: 455
|
|
| 1 е 2 д 3 в 4 д 5 д 6 д 7 е 8 а 9 в 10 е 11 с 12 а 13 д 14 а 15 а 16 с 17 д 18 е 19 с 20 е 21 в 22 а 23 а 24 с 25 д | 26 д 27д 28 д 29 е 30 в 31 а 32 с 33 е 34 е 35 с 36 д 37 в 38 а 39 с 40 в 41 а 42 д 43 с 44 а 45 в 46 д 47 в 48 с 49 а 50 д | 51 е 52 а 53 е 54 с 55 д 56 в 57 в 58 а 59 д 60 д 61 с 62 а 63 в 64 в 65 а 66 а 67 д 68 а 69в 70 е 71 д 72 д 73 а 74 а 75 а | 76 е 77 в 78 д 79 с 80 а 81 с 82 д 83 в 84 д 85 е 86 а 87 д 88 а 89 е 90 а 91 д 92 а 93 д 94 в 95 д 96 а 97 а 98 е 99 д 100 д |
МИНИСТЕРСТВО ПУТЕЙ СООБЩЕНИЯ РФ
САНКТ-ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ
ПУТЕЙ СООБЩЕНИЯ
ПГУПС
КАФЕДРА «ИНФОРМАТИКА И ИФОРМАЦИОННАЯ БЕЗОПАСТНОСТЬ»
ОТЧЕТ ПО ЛАБОРАТОРНОЙ РАБОТЕ ПО ИНФОРМАТИКЕ
“Visual Basic”
Лабораторная работа №6
Структура “ Заполнение ”
Вариант №17
Выполнил студент
Группы ЭС-406 Кузнецов А. Г.
Проверил:
Г.
Словесное описание
Пересчитать вектор N размерности k no правилу:
Ni=Ni+Ni+1, при i < k
Проанализировать выполнение программы на примере:
N={1; 2; 3; 4; 5; 6; 7; 8}
Алгоритмизация
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
Отладка программы
Словесное описание
Пересчитать элементы матрицы К размерности m*n, разделив каждый из них на элемент, расположенный в той же строке в первом столбце.
Проанализировать выполнение программы на примере:
| <== предыдущая лекция | | | следующая лекция ==> |
| Chapter I | | | Chapter III |