Лабораторная 4

МИНИСТЕРСТВО ТРАНСПОРТА РОССИЙСКОЙ ФЕДЕРАЦИИ

ФЕДЕРАЛЬНОЕ АГЕНТСТВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА

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

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

«ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ПУТЕЙ СООБЩЕНИЯ ИМПЕРАТОРА АЛЕКСАНДРА I»

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

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

ОТЧЕТ

о лабораторной работе №4

на тему:

«СТРУКТУРА ЗАПОЛНЕНИЕ»

Вариант 29

Выполнил студент
Факультета УПЛ-702
Шептунов Н.А.	______________
	подпись, дата

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

Задача 1.

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

Пересчитать вектор А умножив все его элементы на соответствующие элементы вектора B.

Входные данные: n - размерность массивов, целое число, А - массив, B - массив

Выходные данные: А - пересчитанный вектор, В - массив

2. ММЗ.

Аi = Аi * Вi, i=1,2,3…n

3. Схема алгоритма.

Начало

{ A },{B}

i=1

i <= n

i = i + 1

{ A }

Конец

n, { A },{B}

Ai = Ai * Bi

4. Код процедуры.

Private Sub Command1_Click()

Dim i As Integer, n As Integer

Dim A() As Single, B() As Single

n = InputBox(" n= ")

Print "A"

ReDim A(1 To n)

For i = 1 To n

A(i) = InputBox("A(" & i & ")=")

Print A(i);

Next

Print

Print "B"

ReDim B(1 To n)

For i = 1 To n

B(i) = InputBox("B(" & i & ")")

Print B(i);

Next

Print

Print " Полученный вектор"

For i = 1 To n

A(i) = A(i) * B(i)

Print A(i);

Next

5. Отладка программы.

Задача 2.

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

Заполнить значения элементов первой строки матрицы А значениями элементов вектора Х; значения элементов второй строки матрицы значениями элементов вектора Y; третьей строки – вектора Z.

Входные данные: X - массив вещественного типа Y- массив вещественного типа Z - массив вещественного типа n - размерность

Выходные данные: X - массив вещественного типа Y - массив вещественного типа Z - массив вещественного типа А - массив вещественного типа

2. ММЗ.

а1j=Xj

а2j=Yj , при всех j = 1….n

а3j=Z j

3. Схема алгоритма.

Начало

n, {X},{Y}{Z}

{X},{Y}{Z}

i=1

i<=3

j=1

Аij

j=j+1

j<=n

Конец

i=1

Aij=Xj

i=i+1

i=2

Aij=Yj

Aij=Zi

4. Код приложения.

Private Sub Command1_Click()

Dim A() As Single, X() As Single, Y() As Single, Z() As Single, n As Integer, i As Integer, j As Integer

n = InputBox("n=")

Print "X"

ReDim X(1 To n)

For i = 1 To n

X(i) = InputBox("X(" & i & ")")

Print X(i);

Next

Print

Print "Y"

ReDim Y(1 To n)

For i = 1 To n

Y(i) = InputBox("Y(" & i & ")")

Print Y(i);

Next

Print

Print "Z"

ReDim Z(1 To n)

For i = 1 To n

Z(i) = InputBox("Z(" & i & ")")

Print Z(i);

Next

Print

Print "A"

ReDim A(1 To 3, 1 To n)

For i = 1 To 3

For j = 1 To n

If i = 1 Then

A(i, j) = X(j)

ElseIf i = 2 Then

A(i, j) = Y(j)

Else

A(i, j) = Z(j)

End If

Print A(i, j);

Next

Print

Next

End Sub

5. Отладка программы.

8