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

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

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

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

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

ОТЧЕТ

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

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

Структура «Поиск»

Вариант 14

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

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

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

Группы

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

2004

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

1. Словесное описание задачи. Напечатать значения элементов вектора S размерности L, превы­шающих величину М. Проанализировать выполнение программы на примере: М=10; S={7; 15; 23; 3; 6; 11; 8}

2. Определение состава входных и выходных данных. Входные данные: - размерность L вектора S - число M - элементы вектора S Выходные данные: - элементы вектора S, превы­шающе величину М.

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

1. Р

   0

   3

   1

   Начало

   L, M

   Конец

   

   i<=L

   

   нет

   да

   S(i)

   10

   

   12

   

   2

   i=1

   

   4

   S(i)

   8

   

   i<=L

   

   да

   нет

   

   5

   i=i+1

   

   S(i)

   6

   

   7

   i=1

   

   9

   

   S(i)>M

   

   да

   нет

   

   i=i+1

   11

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

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

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

Dim S() As Single, L As Integer, M As Single, i As Integer

L = Text1

M = Text2

ReDim S(L) As Single

Print "S=";

For i = 1 To L

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

Print S(i);

Next

Print

Print "Элементы превышающие M равное " & M

For i = 1 To L

If S(i) > M Then

Print S(i);

End If

Next

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

Задание №2

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

1. Словесное описание задачи. Найти и напечатать значение и индексы наибольшего элемента на главной диагонали квадратной матрицы V размерности К. Для отладки программы матрицу выбрать самостоятельно.

2. Определение состава входных и выходных данных. Входные данные: - размерность K квадратной матрицы V - элементы матрицы V Выходные данные: - значение и индексы наибольшего элемента на главной диагонали квадратной матрицы V

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

1. Р

   0

   8

   1

   Начало

   K

   

   j=j+1

   55

   

   j<=K

   

   нет

   да

   

   26

   i=1

   

   6

   V(i,j)

   i<=K

   

   V(i,j)

   7

   

   11

   m=1

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

35

Конец

i<=K

нет

да

max, m

19

i=i+1

9

46

j=1

13

да

нет

15

max=V(i,i)

10

max=V(1,1)

14

V(i,i)>max

да

нет

18

17

i=i+1

12

i=2

16

m=i

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

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

Dim V() As Single, K As Integer, i As Integer, j As Integer, max As Single, m As Integer

K = Text1

ReDim V(K, K) As Single

For i = 1 To K

For j = 1 To K

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

Print V(i, j);

Next

Print

Next

Print

max = V(1, 1)

m = 1

For i = 2 To K

If V(i, i) > max Then

max = V(i, i)

m = i

End If

Next

Print "Наибольший элемент на главной диагонали V(" & m & "," & m & ")=" & max

End Sub

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

9