
ТЕКУЩИЙ КОНТРОЛЬ 1-й семестр (20 Вариант) / лабораторной работе 07
.docx
ФЕДЕРАЛЬНОЕ АГЕНТСТВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА
Федеральное государственное бюджетное образовательное учреждение высшего образования
«ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ПУТЕЙ СООБЩЕНИЯ ИМПЕРАТОРА АЛЕКСАНДРА I»
Кафедра «ИНФОРМАЦИОННЫХ И ВЫЧИСЛИТЕЛЬНЫХ СИСТЕМ»
Дисциплина: «Информатика»
ОТЧЕТ
по лабораторной работе № 7:
«Заполнение»
Вариант 20
Выполнила студентка
Факультета АСБ А.А. Сидорович
Группы АСБ -405-З подпись дата
/07-405-20-АСБз/
Санкт-Петербург
2025
Лабораторная работа №7
Цель работы: исследование особенностей реализации программного элемента «Заполнение»
Словесное описание.
Пересчитать значения элементов одномерного массива К размерности n по правилу:
Для отладки программы, вектор выбрать самостоятельно.
Математическое описание.
Выбор математической модели
Входные данные: {K}, n
Выходные данные: {K}
Программирование
Private Sub CommandButton1_Click()
Dim K() As Single
Dim j As Integer
Dim n As Integer
n = InputBox("n=")
ReDim K(1 To n)
For j = 1 To n
K(j) = InputBox(" K = ")
Debug.Print K(j);
Next
Debug.Print
Debug.Print
For j = 2 To n
K(j) = K(j) / K(1)
Next
For j = 1 To n
Debug.Print K(j);
Next
Debug.Print
End Sub
Отладочный пример
Словесное описание
Заполнить в памяти ЭВМ матрицу В размерности m * n так, чтобы каждый элемент был равен сумме его индексов: строки и столбца.
Полученную матрицу напечатать. Проанализировать выполнение программы на примере: m = 3; n = 4.
Математическое описание
Выбор математической модели
Входные данные: m, n
Выходные данные: {B}
Программирование Private Sub CommandButton1_Click()
Dim B() As Integer
Dim m As Integer
Dim n As Integer
Dim i As Integer
Dim j As Integer
m = InputBox(" m = ")
n = InputBox(" n = ")
ReDim B(1 To m, 1 To n)
For i = 1 To m
For j = 1 To n
B(i, j) = i + j
Next
Next
For i = 1 To m
For j = 1 To n
Debug.Print B(i, j),
Next
Debug.Print
Next
End Sub
Отладочный пример