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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 28

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

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

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

Группы

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

2004

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

1. Словесное описание задачи. Найти минимальное значение функции на промежутке 3 < Х < 9 с шагом х= 0.3. Напечатать таблицу значений функции.

2. Определение состава входных и выходных данных. Входные данные: - начальное значение x – x0 - конечное значение x - xk - шаг изменения x - dx Выходные данные: - минимальное значение функции Y и таблица значений функции

3. Математическое описание. 3 < x < 9, dx=0,3 min=min(y_i), i=(1;N) N=(xk-x0)/dx+1

1. Р

   0

   5

   14

   1

   Начало

   x0, xk, dx

   Конец

   

   x<=xk

   

   нет

   да

   min

   16

   

   17

   

   3

   i=1

   

   min=Y(i)

   6

   Y(i)=sqr(x)+cos(x)

   12

   

   i<=N

   

   да

   нет

   

   10

   min=Y(1)

   

   7

   i=i+1

   

   8

   

   11

   i=2

   

   13

   

   Y(i)<min

   

   да

   нет

   

   i=i+1

   15

   

   x=x+dx

   9

   Y(i)

   

   4

   x=x0

   

   2

   N=int((xk-x0)/dx)+1

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

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

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

Dim Y() As Single, N As Integer, i As Integer, x As Single, x0 As Single, xk As Single, dx As Single, min

x0 = Text1

xk = Text2

dx = Text3

N = Int((xk - x0) / dx) + 1

ReDim Y(N) As Single

i = 1

Print "Y="

For x = x0 To xk Step dx

Y(i) = Sqr(x) - Cos(x)

Print Y(i)

i = i + 1

Next

Print

min = Y(1)

For i = 2 To N

If Y(i) < min Then

min = Y(i)

End If

Next

Print "Минимальное значение функции Y равно " & min

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

Задание №2

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

1. Словесное описание задачи. Определить индексы первого положительного элемента К-й строки матрицы Т размерности М*N. Для отладки программы контрольный пример выбрать самостоятельно.

2. Определение состава входных и выходных данных. Входные данные: - количество строк M матрицы T - количество столбцов N матрицы T - число K (K<=M) - элементы матрицы T Выходные данные: - индексы первого положительного элемента К-й строки матрицы Т

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

1. Р

   0

   8

   1

   Начало

   M, N, K

   

   j=j+1

   55

   

   j<=N

   

   нет

   да

   

   26

   i=1

   

   6

   T(i,j)

   j<=N

   

   T(i,j)

   7

   

   j=j+1

   

   11

   j=1

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

35

Конец

i<=M

нет

да

K, l, T(K,l)

19

i=i+1

9

46

j=1

12

да

нет

15

l=j

10

s=false

13

s=false

да

нет

18

17

14

T(K,j)>0

нет

да

16

s=true

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

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

Dim T() As Single, M As Integer, N As Integer, i As Integer, j As Integer, K As Integer, l As Integer, s As Boolean

M = Text1

N = Text2

K = Text3

ReDim T(M, N) As Single

For i = 1 To M

For j = 1 To N

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

Print T(i, j);

Next

Print

Next

s = False

For j = 1 To N

If s = False Then

If T(K, j) > 0 Then

l = j

s = True

End If

End If

Next

Print "Первый положительный элемент " & K & " строки T(" & K & "," & l & ")=" & T(K, l)

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

9