Поиск 16-вариант / Программный элемент Поиск

ФЕДЕРАЛЬНОЕ АГЕНТСТВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА

Федеральное государственное бюджетное образовательное учреждение

высшего образования

«Петербургский государственный университет путей сообщения

Императора Александра I»

(ФГБОУ ВО ПГУПС)

Факультет «Промышленное и гражданское строительство»

Кафедра «Информатика и информационная безопасность»

Отчет по лабораторной работе

по дисциплине

«Информатика»

на тему: «Программный элемент “Поиск”»

Форма обучения – очная

Вариант: 16

Выполнил обучающийся Курс 1 Группа бтб-709	__________________ подпись, дата	Турапов Ж.М.
Руководитель	__________________ подпись, дата	Яковлева Н.А

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

2017

Программный элемент Поиск

1. Найти и напечатать индекс наименьшего элемента одномерного массива Р размерности М. Из разных наименьших элементов выб­рать элемент с большим индексом.

Для отладки программы значения М и Р выбрать самостоятельно.

2. Напечатать элементы матрицы L со значениями из промежутка [0,6]

Отладить программу на контрольном примере

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

1.1 Словесное описание задачи

Найти и напечатать  индекс  наименьшего  элемента  одномерного массива Р размерности М. Из разных  наименьших  элементов выб­рать элемент с большим индексом.

Для отладки программы значения М и Р выбрать самостоятельно.

1.2 Описание постановки задачи

Состав входных и выходных данных

Входные данные:

m – количество элементов вектора, целого типа

P=[Pi], i=1,m – вектор, вещественного типа

Выходные данные:

P=[Pi], i=1,m – вектор, вещественного типа

id – индекс, целого типа

1.3 Разработка математической модели

min = 1

i = 1 … m

min = i, если P_min ≥ P_i

для всех i

1.4 Составление схемы алгоритма

1.5 Программный код

Private Sub Command1_Click()

Dim P() As Single, m As Integer, i As Integer, min As Integer

m = InputBox("m=")

Print "P"

ReDim P(1 To m)

For i = 1 To m

P(i) = InputBox("P(" & i & ")")

Print P(i);

Next

Print

min = 1

For i = 1 To m

If P(min) >= P(i) Then

min = i

End If

Next

Print "id min=(" & min & ")"

End Sub

1.6 Отладка

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

2.1 Словесное описание задачи

Напечатать  элементы  матрицы  L  со  значениями из промежутка [0,6]

Отладить программу на контрольном примере:

2.2 Описание постановки задачи:

Состав входных и выходных данных

Входные данные:

m – количество строк матрицы, целого типа

n – количество столбцов матрицы, целого типа

L=[Lij], i=1,m, j=1,n – матрица, вещественного типа

a – начало промежутка, вещественного типа

b – конец промежутка, вещественного типа

Выходные данные:

L=[Lij], i=1,m, j=1,n – матрица, вещественного типа

a – начало промежутка, вещественного типа

b – конец промежутка, вещественного типа

3. Разработка математической модели

f = False

i = 1 … m, j = 1 … n

Печать L_i,j, f = True, если 0 ≤ L_i,j And L_i,j ≤ 6

для всех i и j

Печать "нет из промежутка", если f = False

2.4 Составление схемы алгоритма

2.5 Программный код

Private Sub Command1_Click()

Dim L() As Single, m As Integer, n As Integer, f As Boolean, i As Integer, j As Integer, a As Single, b As Single

m = InputBox("m=")

n = InputBox("n=")

a = InputBox("a")

b = InputBox("b")

Print "a=" & a & " b=" & b

Print "L"

ReDim L(1 To m, 1 To n)

For i = 1 To m

For j = 1 To n

L(i, j) = InputBox("L(" & i & " , " & j & ")")

Print L(i, j);

Next

Print

Next

Print

f = False

For i = 1 To m

For j = 1 To n

If 0 <= L(i, j) And L(i, j) <= 6 Then

Print L(i, j);

f = True

End If

Next

Next

If f = False Then

Print "нет из промежутка"

End If

End Sub

2.6 Отладка