Описать тип данных 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

Оцени полезность:

5   голосов , оценка 4 из 5
Похожие ответы