IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Работа с файлом записей
Razor_Ilya
сообщение 8.04.2014 12:54
Сообщение #1





Группа: Пользователи
Сообщений: 2
Пол: Мужской

Репутация: -  0  +


Помогите решить или хотя бы дайте пару советов!
Создать запись следующей структуры:
- номер рейса
- тип самолета
- пункт назначения
- время вылета
- время прилета
- цена билета
- количество пассажиров
Определить тип и ширину каждого из компонентов записи.
Написать программу с использованием клавишного меню, состоящую из следующих блоков:
а) первоначальное заполнение (10 записей) файла *.dat с вводом данных с клавиатуры
б) программа формирования ведомости с подсчетом выручки от каждого рейса (цена * кол. пассажиров) и итогов выручки в целом по аэропорту
в) вывода на экран списка рейсов направляющихся в определенный (вводится с клавиатуры) пункт назначения
г) дополнение файла *.dat записями по мере необходимости
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Rian
сообщение 12.04.2014 11:10
Сообщение #2


Знаток
****

Группа: Пользователи
Сообщений: 394
Пол: Мужской

Репутация: -  9  +


 Type anketa=record
fio: string[45];
pol: char;
dat_r: string[8];
adres: string[50];
curs: 1..5;
grupp: string[3];
end;


--------------------
Objective-C, Unity3d
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 12.08.2025 6:20
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"