Pascal - массивы

[Sveta]

Народ помогите несчастной студентке сделать программу…….которая вывод таблицы исходных данных; Сортировку данных по коду станции назначения (от минимума к максимуму); Сортировку данных для каждой станции назначения по времени прибытия; Упорядочение станций назначения по количеству вагонов; Определение станций назначения с максимальным количеством вагонов; Вывод диаграммы на задаваемый момент времени (6,12,18,24ч.);Поиск вагона с заданным номером. Количество прибывающих поездов не мене 20, количество вагонов в прибывающих поездах не более 60. Каждый вагон характеризуют: номер вагона(восьмизначный), код станции назначения (сетевая разметка станции назначения); время прибытия (от 0 часов до 23 часов 59 минут); масса вагона в тоннах (от 10 до 1000т.)

 

[Sveta]

 

[Time]

Долго вникал в текст твоей проги... Возникли вопросы:
Упорядочивать по кол-ву вагонов, если время прибытия одинаковое?
Кол-во прибывших поездов для каждой станции и кол-во вагонов для каждого поезда тоже задаётся?
Не понял, чё за диаграмму надо вывести? Что должно быть в диаграмме?
Зачем дана масса вагонов, если она нигде не используется?
Когда мы найдём нужный номер вагона, нам чё надо для него вывести, какие данные?

 

[DIR3ct0r]

Так, вопросы не задаются! здесь форум, где помогут разрешить проблему, проблемы не вижу, элементарная лень.

 

[Sveta]

Может для кого то это и лень, а мне это не понятно......поэтому и прошу помочь

 

[DIR3ct0r]

Спрашивайте, что именно не понятно....
Ну для начала необходимо определится с исходными данными, с их типами:

type

TStation = class;

// вагон
TCoach = class
Code: integer; // номер
Station: TStation; // станция назначения
Stamp: TDateTime; // время прибытия
Mass: integer; масса
public
constructor Create;
destrunctor Destroy; override;
end;

// поезд
TTrain = class
Code: integer;
Coaches: array of TCoach; // вагоны
public
constructor Create(aCode: integer);
destrunctor Destroy; override;
end;

// станция
TStation = class
Code: integer;
Trains: array of TTrain; // поезда
public
constructor Create(aCode: integer);
destrunctor Destroy; override;
end;

остальное надо дописывать и не мало....времени столько нет

 

[Time]

Я тебе ICQ скинул ниже, установи и напиши мне...
Чё то файлы не прикрепляются на форуме....