Прочее / Заполнение / Заполнение

Федеральное агентство железнодорожного транспорта

Федеральное государственное бюджетное образовательное учреждение

высшего образования

«ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ

ПУТЕЙ СООБЩЕНИЯ императора Александра I»

Кафедра «ИНФОРМАТИКА И ИНФОРМАЦИОННАЯ БЕЗОПАСНОСТЬ»

Дисциплина: «Информатика»

Отчёт

по лабораторной работе

на тему:

«Структура Заполнение»

Вариант 17

Выполнил студент

факультета ТЭС

группы ПТМ-613 ______________ Сызранов И.Ю.

подпись, дата

Санкт-Петербург

2016 г.

Задание №1

1. Постановка задачи.

   1. Словесное описание задачи.

Заполнить вектор А размерности n по правилу:

где В и С - заданные векторы той же размерности.

Для отладки программы контрольный пример выбрать самостоятельно.

1. Определение состава входных и выходных данных.

Входные данные: K{} – массив чисел вещественного типа

n – целое число Выходные данные:

K{} – массив чисел вещественного типа

2. Математическое описание.

Для всех i = 1 … n

Если i Mod 2 = 0 тогда A(i) = C(i)

Иначе A(i) = B(i)

Вывод на экран A(i)

Следующее i

2. Разработка схемы алгоритма.

3. Разработка кода приложения.

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

Print "C:"

ReDim C(1 To n)

For i = 1 To n

C(i) = InputBox("C(" & i & ")=")

Print C(i);

Next

Print

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

Print

End Sub

4. Отладочный пример.

Задание №2

1. Постановка задачи.

   1. Словесное описание задачи.

Пересчитать элементы матрицы К размерности m*n, разделив каж­дый из них на элемент, расположенный в той же строке в первом столбце.

Проанализировать выполнение программы на примере:

2. Определение состава входных и выходных данных.

Входные данные: K{} – матрица переменных вещественного типа

m, n – целые числа

Выходные данные:

K{} – матрица переменных вещественного типа

3. Математическое описание.

Для всех i = 1 To m

p = K(i, 1)

Для всех j = 1 To n

K(i, j) = K(i, j) / p

Вывод на экран K(i, j);

Следующие j и i

2. Разработка схемы алгоритма.

3. Разработка кода приложения.

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

Print

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

Print

Next

End Sub

4. Отладочный пример.