Помогите решить или хотя бы дайте пару советов!
Создать запись следующей структуры:
- номер рейса
- тип самолета
- пункт назначения
- время вылета
- время прилета
- цена билета
- количество пассажиров
Определить тип и ширину каждого из компонентов записи.
Написать программу с использованием клавишного меню, состоящую из следующих блоков:
а) первоначальное заполнение (10 записей) файла *.dat с вводом данных с клавиатуры
б) программа формирования ведомости с подсчетом выручки от каждого рейса (цена * кол. пассажиров) и итогов выручки в целом по аэропорту
в) вывода на экран списка рейсов направляющихся в определенный (вводится с клавиатуры) пункт назначения
г) дополнение файла *.dat записями по мере необходимости
Работа с файлом записи
Модераторы: Duncon, Naeel Maqsudov, Игорь Акопян, Хыиуду
Цена билета и количество пассажиров - числа, остальные поля - строки.
Клавишное меню (какой некрофил это задание составлял?) - модуль crt или wincrt, там есть средства для изменения цвета и фона и отслеживания клавиш.
Клавишное меню (какой некрофил это задание составлял?) - модуль crt или wincrt, там есть средства для изменения цвета и фона и отслеживания клавиш.
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
время вылета и время прибытия - тоже числа, допустим, целое число минут, прошедшее с начала суток.
It's a long way to the top if you wanna rock'n'roll
Можно и так, но, судя по заданию, там работа со временем не нужна
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Сионист детектед. А если серьёзно, тоRazorilya писал(а):Создать запись следующей структуры:
Код: Выделить всё
type t=record
Reis:integer;
PlaneType:string;
Naz:string;
Timebeg:TTime;
TimeEnd:TTime;
Cost:Currency;
Pass:integer;
end;
Писать можно на чём угодно, но зачем же так себя ограничивать? Пиши на c.