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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 27

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

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

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

Группы

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

2004

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

1. Словесное описание задачи. Пересчитать элементы вектора Q размерности L так, чтобы поме­нялись местами первый и последний элемент, второй и предпосле­дний и т. д. Вектор задать самостоятельно.

2. Определение состава входных и выходных данных. Входные данные: - размерность L вектора Q - элементы вектора Q Выходные данные: - пересчитанный вектор Q

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

1. Р

   0

   3

   9

   1

   Начало

   L

   Конец

   

   i<=L

   

   нет

   да

   Q(i)

   15

   

   17

   

   2

   i=1

   

   X=Q(i)

   

   4

   Q(i)

   8

   

   i<=int(L/2)

   

   да

   нет

   

   11

   Q(L-i+1)=X

   

   5

   i=i+1

   

   12

   i=i+1

   

   Q(i)

   6

   

   7

   i=1

   

   10

   Q(i)=Q(L-i+1)

   

   14

   

   i<=L

   

   да

   

   i=i+1

   16

   

   нет

   

   13

   i=1

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

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

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

Dim Q() As Single, L As Integer, X As Single, i As Integer

L = Text1

ReDim Q(L) As Single

Print "Q=";

For i = 1 To L

Q(i) = InputBox("Введите элемент вектора Q под номером " & i)

Print Q(i);

Next

Print

For i = 1 To Int(L / 2)

X = Q(i)

Q(i) = Q(L - i + 1)

Q(L - i + 1) = X

Next

Print "Q=";

For i = 1 To L

Print Q(i);

Next

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

Задание №2

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

1. Словесное описание задачи. Заполнить в памяти машины матрицу вида:

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

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

1. Р

   0

   Начало

   Конец

   

   13

   

   2

   i=1

   

   16

   N

   

   да

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

3

i<=N

нет

да

i=i+1

12

11

j=j+1

5

j<=N

86

K2(i,j)

нет

4

j=1

6

i Mod 2=0

да

нет

7

K2(i,j)=1

106

K2(i,j)

9

K2(i,j)=0

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

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

Dim K2() As Single, N As Integer, i As Integer, j As Integer

N = Text1

ReDim K2(N, N) As Single

For i = 1 To N

For j = 1 To N

If i Mod 2 = 0 Then

K2(i, j) = 1

Else

K2(i, j) = 0

End If

Print K2(i, j);

Next

Print

Next

End Sub

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

9