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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 21

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

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

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

Группы

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

2004

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

1. Словесное описание задачи. Найти максимальное значение Функции F=X² –X⁴ на промежутке 0  x  1 c шагом х=0,2. Напечатать таблицу значений функ­ции.

2. Определение состава входных и выходных данных. Входные данные: - начальное значение Xn - конечное значение Xk -шаг изменения dX Выходные данные: - таблица значений функ­ции F - максимальное значение функции F

3. Математическое описание. 0  X  1, X=0,2 N=(1-0)/0,2+1 i=[1; N]

1. Р

   0

   5

   14

   1

   Начало

   Xn, Xk, dX

   Конец

   

   X<=Xk

   

   нет

   да

   max

   16

   

   17

   

   2

   N=int((Xk-Xn)/dX+1)

   

   max=S(i)

   6

   F(i)=X^2-X^4

   12

   

   i<=N

   

   да

   нет

   

   10

   max=F(1)

   

   7

   i=i+1

   

   F(i)

   8

   

   11

   i=2

   

   13

   

   F(i)>max

   

   да

   нет

   

   i=i+1

   15

   

   3

   X=Xn

   

   4

   i=1

   

   9

   X=X+dX

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

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

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

Dim F() As Single, X As Single, Xn As Single, Xk As Single, dX As Single, i As Integer, N As Integer, max As Single

Xn = Text1

Xk = Text2

dX = Text3

N = Int((Xk - Xn) / dX) + 1

ReDim F(N) As Single

i = 1

Print "Значения F=X^2-X^4:"

For X = Xn To Xk Step dX

F(i) = X ^ 2 - X ^ 4

Print F(i);

i = i + 1

Next

Print

max = F(1)

For i = 2 To N

If F(i) > max Then

max = F(i)

End If

Next

Print "Максимальное значение F равно " & max

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

Задание №2

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

1. Словесное описание задачи. Определить индекс наименьшего элемента матрицы R размерности К*L. Найденное значение присвоить последнему элементу первой строки. Проанализировать выполнение программы на примере матрицы:

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

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

1. Р

   0

   8

   1

   Начало

   K, L

   

   j=j+1

   55

   

   j<=L

   

   нет

   да

   

   26

   i=1

   

   6

   R(i,j)

   

   R(i,j)

   7

   

   11

   m=1

   

   12

   n=1

   

   13

   i=1

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

35

Конец

i<=K

нет

да

min, m, n, R

25

i=i+1

9

46

j=1

15

j=1

14

i<=K

да

нет

21

j=j+1

10

min=R(1,1)

16

j<=L

да

нет

24

22

i=i+1

17

R(i,j)<min

нет

да

18

min=R(i,j)

19

m=i

20

n=j

23

R(1,L)=min

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

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

Dim R() As Single, K As Integer, L As Integer, i As Integer, j As Integer, min As Single, m As Integer, n As Integer

K = Text1

L = Text2

ReDim R(K, L) As Single

For i = 1 To K

For j = 1 To L

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

Print R(i, j);

Next

Print

Next

min = R(1, 1)

m = 1

n = 1

For i = 1 To K

For j = 1 To L

If R(i, j) < min Then

min = R(i, j)

m = i

n = j

End If

Next

Next

R(1, L) = min

Print "Минимальный элемент матрицы R(" & m & "," & n & ")=" & min

For i = 1 To K

For j = 1 To L

Print R(i, j);

Next

Print

Next

End Sub

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

9