Старые отчёты / ФЫР / информатика!!!!!!!!! / 6.28

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

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

ПУТЕЙ СООБЩЕНИЯ

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

ОТЧЕТ

о выполненной лабораторной работе № 6

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

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

Вариант 28

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

Дневного отделения

Факультет ЭСУ

Группы

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

2004

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

1. Словесное описание задачи. Заполнить вектор В размерности 9 значениями функции 1gх, где х изменяется от 0,1 до 0,9 с шагом 0,1.

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

3. Математическое описание. 0,1≤x≤0,9, dx=0,1 i=[1;9]

1. Р

   3

   Начало

   Конец

   

   x<=0,9

   

   нет

   да

   

   8

   

   4

   B(i)=log(x)/log(10)

   

   5

   i=i+1

   

   B(i)

   6

   

   1

   i=1

   

   2

   x=0,1

   

   7

   x=x+0,1

   

   0

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

2. Разработка визуальной части.

4 Разработка кода приложения. Private Sub Command1_Click()

Dim B(9) As Single, i As Integer, x As Single

i = 1

Print "B="

For x = 0.1 To 0.9 Step 0.1

B(i) = Log(x) / Log(10)

Print B(i)

i = i + 1

Next

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

Задание №2

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

1. Словесное описание задачи. Пересчитать элементы матрицы Т размерности K*l, умножив каж­дый из них на элемент, расположенный в том же столбце в после­дней строке.

2. Определение состава входных и выходных данных. Входные данные: - количество строк K матрицы T - количество столбцов L матрицы T - элементы матрицы T Выходные данные: - пересчитанная матрица T

3. Математическое описание. i=[1; K], K=1, 2, 3, … j=[1; L], L=1, 2, 3, …

1. Р

   0

   Начало

   

   2

   i=1

   

   16

   K, L

   

   j<=L

   

   12

   j=1

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

3

Конец

i<=K

нет

да

18

i=i+1

9

11

i<=K

да

нет

10

i=1

16

i=i+1

8

j=j+1

5

j<=L

да

6

T(i,j)

76

T(i,j)

нет

4

j=1

13

да

нет

15

j=j+1

14

T(i,j)=T(i,j)*T(K,j)

176

T

3 Разработка визуальной части.

4 Разработка кода приложения. Private Sub Command1_Click()

Dim T() As Single, K As Integer, L As Integer, i As Integer, j As Integer

K = Text1

L = Text2

ReDim T(K, L) As Single

For i = 1 To K

For j = 1 To L

T(i, j) = InputBox("Введите элемент матрицы T под номером " & i & "," & j)

Print T(i, j);

Next

Print

Next

Print

For i = 1 To K

For j = 1 To L

T(i, j) = T(i, j) * T(K, j)

Print T(i, j);

Next

Print

Next

End Sub

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

9