Описать тип данных TRAIN, содержащий следующие поля: - VB
Формулировка задачи:
помогите пожалуйста,очень нужно.
1. Описать тип данных с именем TRAIN , содержащий следующие поля:
- название пункта назначения
- номер поезда
- время отправления
2. Написать программу, выполняющую следующие действия:
- ввод с клавиатуры данных в массив , состоящий из 6-и эле-
ментов типа TRAIN; записи должны быть упорядочены по времени отправления поездов.
- вывод на экран информации о поездах, направляющихся в пункт,название которого введено с клавиатуры.
- если таких поездов нет - выдать на дисплей соответствующее со-
общение.
Решение задачи: «Описать тип данных TRAIN, содержащий следующие поля:»
textual
Листинг программы
Option Base 1 'нумерация эл-в массивов с 1
Private Type Train 'объявление записи с эл-ми: пункт назначения, № поезда время отправления
PointOfsetting As String * 20
NumberOfTrain As String * 10
DepartureTime As String * 5
End Type
Dim Tr1 As Train 'переменная для хранения промежуточных данных при сортировке
Dim mastr(6) As Train, i As Integer, j As Integer, pn As String * 20 'mastr(6) - массив для хранения введенных данных
Private Sub Command1_Click()
For i = 1 To 6 'в цикле осуществляется ввод информации о движении поездов
mastr(i).PointOfsetting = InputBox("Введите " & i & "-й пункт назначения")
mastr(i).NumberOfTrain = InputBox("Введите " & i & "-й номер поезда")
mastr(i).DepartureTime = InputBox("Введите время отправления (часы:мин) - " & i)
Next i
For i = 1 To 5 'сортировка введенной информации по времени отправления методом пузырька
For j = 1 To 6 - i
If mastr(j).DepartureTime > mastr(j + 1).DepartureTime Then
Tr1 = mastr(j)
mastr(j) = mastr(j + 1)
mastr(j + 1) = Tr1
End If
Next j
Next i
pn = InputBox("Введите пункт назначения") 'ввод пункта назначения
For i = 1 To 6 'вывод информации с совпадающими пунктами назначения
If pn = mastr(i).PointOfsetting Then Debug.Print mastr(i).PointOfsetting & " " & mastr(i).NumberOfTrain & " " & mastr(i).DepartureTime
Next i
End Sub