Прочее / Заполнение / Заполнение
.docxФедеральное агентство железнодорожного транспорта
Федеральное государственное бюджетное образовательное учреждение
высшего образования
«ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ
ПУТЕЙ СООБЩЕНИЯ императора Александра I»
Кафедра «ИНФОРМАТИКА И ИНФОРМАЦИОННАЯ БЕЗОПАСНОСТЬ»
Дисциплина: «Информатика»
Отчёт
по лабораторной работе
на тему:
«Структура Заполнение»
Вариант 17
Выполнил студент
факультета ТЭС
группы ПТМ-613 ______________ Сызранов И.Ю.
подпись, дата
Санкт-Петербург
2016 г.
Задание №1
-
Постановка задачи.
-
Словесное описание задачи.
-
Заполнить вектор А размерности n по правилу:
где В и С - заданные векторы той же размерности.
Для отладки программы контрольный пример выбрать самостоятельно.
-
Определение состава входных и выходных данных.
Входные данные: K{} – массив чисел вещественного типа
n – целое число Выходные данные:
K{} – массив чисел вещественного типа
-
Математическое описание.
Для всех i = 1 … n
Если i Mod 2 = 0 тогда A(i) = C(i)
Иначе A(i) = B(i)
Вывод на экран A(i)
Следующее i
-
Разработка схемы алгоритма.
-
Разработка кода приложения.
Private Sub Command1_Click()
Dim A() As Single, B() As Single, C() As Single, n As Integer, i As Integer
n = InputBox("n=")
Print "B:"
ReDim B(1 To n)
For i = 1 To n
B(i) = InputBox("B(" & i & ")=")
Print B(i);
Next
Print "C:"
ReDim C(1 To n)
For i = 1 To n
C(i) = InputBox("C(" & i & ")=")
Print C(i);
Next
Print "A:"
ReDim A(1 To n)
For i = 1 To n
If i Mod 2 = 0 Then
A(i) = C(i)
Else
A(i) = B(i)
End If
Print A(i);
Next
End Sub
-
Отладочный пример.
Задание №2
-
Постановка задачи.
-
Словесное описание задачи.
-
Пересчитать элементы матрицы К размерности m*n, разделив каждый из них на элемент, расположенный в той же строке в первом столбце.
Проанализировать выполнение программы на примере:
-
Определение состава входных и выходных данных.
Входные данные: K{} – матрица переменных вещественного типа
m, n – целые числа
Выходные данные:
K{} – матрица переменных вещественного типа
-
Математическое описание.
Для всех i = 1 To m
p = K(i, 1)
Для всех j = 1 To n
K(i, j) = K(i, j) / p
Вывод на экран K(i, j);
Следующие j и i
-
Разработка схемы алгоритма.
-
Разработка кода приложения.
Private Sub Command1_Click()
Dim K() As Single, i As Integer, j As Integer, n As Integer, m As Integer, p As Single
m = InputBox("m=")
n = InputBox("n=")
ReDim K(1 To m, 1 To n)
Print "Исходный массив"
For i = 1 To m
For j = 1 To n
K(i, j) = InputBox("K(" & i & ", " & j & ")=")
Print K(i, j);
Next
Next
Print "Полученный массив"
For i = 1 To m
p = K(i, 1)
For j = 1 To n
K(i, j) = K(i, j) / p
Print K(i, j);
Next
Next
End Sub
-
Отладочный пример.