Описать тип данных 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д