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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 15

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

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

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

Группы

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

2004

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

1. Словесное описание задачи. Заполнить вектор AL размерности 21 значениями функции 1пХ, где Х меняется от 0,5 до 10,5 с шагом 0,5. Полученный массив и значения аргумента Х напечатать в два сто­лбца.

2. Определение состава входных и выходных данных. Входные данные: Выходные данные: - массив AL, аргумент X

3. Математическое описание. 0,5 ≤ X ≤ 10,5, dX=0,5 i=[1;21]

1. Р

   3

   Начало

   Конец

   

   X<=10,5

   

   нет

   да

   

   8

   

   4

   AL(i)=ln(X)

   

   5

   i=i+1

   

   X, AL(i)

   6

   

   1

   i=1

   

   2

   X=0,5

   

   7

   X=X+0,5

   

   0

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

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

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

Dim AL(21) As Single, X As Single, i As Integer

i = 1

Print "X AL"

For X = 0.5 To 10.5 Step 0.5

AL(i) = Log(X)

Print X & " " & AL(i)

i = i + 1

Next

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

Задание №2

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

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

2. Определение состава входных и выходных данных. Входные данные: - количество строк (столбцов) M матрицы V - элементы матрицы V Выходные данные: - пересчитанная матрица V

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

1. Р

   0

   Начало

   

   2

   i=1

   

   j<=M

   

   16

   M

   

   12

   a=V(j,j)

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

3

Конец

i<=M

нет

да

19

i=i+1

9

11

да

нет

10

j=1

17

j=j+1

8

j=j+1

5

j<=M

да

6

V(i,j)

76

V(i,j)

нет

4

j=1

14

i<=M

да

нет

13

i=1

16

i=i+1

15

V(i,j)=V(i,j)*a

186

V

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

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

Dim V() As Single, M As Integer, i As Integer, j As Integer, a As Single

M = Text1

ReDim V(M, M) As Single

For i = 1 To M

For j = 1 To M

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

Print V(i, j);

Next

Print

Next

Print

For j = 1 To M

a = V(j, j)

For i = 1 To M

V(i, j) = V(i, j) * a

Next

Next

For i = 1 To M

For j = 1 To M

Print V(i, j);

Next

Print

Next

End Sub

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

9