Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 03.03.2012, 15:55
LUNATIK125 LUNATIK125 вне форума
Прохожий
 
Регистрация: 03.03.2012
Сообщения: 1
Репутация: 10
Восклицание Создать файл

Создать файл, содержащий сведения о наличии билетов и рейсах Аэрофлота. Структура записи: номер рейса, пункт назначения, время вылета, время прибытия, количество свободных мест в салоне. Количество записей (2-3). Вывести время отправления самолетов в город X.
помогите реализовать на Delphi !
На паскале сделал вот код
Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
type
 tip1=record
       n:byte;                 {номер рейса                        }
       town,time0,time1:string;{город, время отправления и прибытия}
       freeplace:integer;      {количество свободных мест          }
      end;
  
var
d:tip1;
i,max_d:integer;
f:file of tip1;
  
{ввод данных и сохранение в файл}
PROCEDURE input_d;
BEGIN
write('Введите количество рейсов: ');
readln(max_d);
  
writeln;
writeln('* * * Заполнение данных о рейсах * * *');
writeln;
  
{открыть или создать файл}
{$I-}
assign(f,'data.dat');
reset(f);
seek(f,filesize(f));
{$I+}
if ioresult<>0 then rewrite(f);
  
for i:=1 to max_d do
 begin
  writeln('----- ',i,' -----');
  write('Введите номер рейса: ');
  readln(d.n);
  write('Введите город прибытия: ');
  readln(d.town);
  write('Введите время отправления: ');
  readln(d.time0);
  write('Введите время прибытия: ');
  readln(d.time1);
  write('Введите количество свободных мест: ');
  readln(d.freeplace);
  write(f,d);
 end;
  
close(f);
writeln;
writeln('Данные были сохранены в файл!');
readln;
END;
  
{вывод данных из файла по введенному названию города}
PROCEDURE view_d;
var
x:string;
tmp_d:tip1;
BEGIN
{открыть файл для чтения информации}
{$I-}
assign(f,'data.dat');
reset(f);
{$I+}
if ioresult<>0 then
 begin
  writeln('Файл не найден!');
  readln;
  exit;
 end;
  
write('Введите название города: ');
readln(x);
writeln;
  
while not eof(f) do
begin
 read(f,tmp_d);
 if tmp_d.town=x then          {сравнить названия городов}
  begin
   writeln('Номер рейса: ',tmp_d.n);
   writeln('Город: ',tmp_d.town);
   writeln('Время отправления: ',tmp_d.time0);
   writeln('Время прибытия: ',tmp_d.time1);
   writeln('Количество свободных мест: ',tmp_d.freeplace);
   writeln('--------------------------------');
  end;
end;
  
close(f);
writeln('Поиск завершен!');
readln;
END;
  
{***** основная программа *****}
BEGIN
input_d;
view_d;
END.
Админ: Пользуемся тегами для оформления кода!

Последний раз редактировалось Admin, 03.03.2012 в 16:01.
Ответить с цитированием
  #2  
Старый 03.03.2012, 21:22
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

А что означает на Дельфи? Такого языка не существует, есть только Pascal. Если речь идёт о GUI приложении, так и пишите.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #3  
Старый 03.03.2012, 23:11
ChinYan ChinYan вне форума
Тыкаю клавиши
 
Регистрация: 13.07.2009
Сообщения: 804
Версия Delphi:
Репутация: 48633
По умолчанию

А разве со времен Delphi 7, используемый диалект Object pascal не был переименован в Delphi?
Ответить с цитированием
  #4  
Старый 03.03.2012, 23:18
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Не был. Дельфи всёго лишь разговорный оборот, не более.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #5  
Старый 04.03.2012, 00:00
ChinYan ChinYan вне форума
Тыкаю клавиши
 
Регистрация: 13.07.2009
Сообщения: 804
Версия Delphi:
Репутация: 48633
По умолчанию

10 символов
Ответить с цитированием
  #6  
Старый 04.03.2012, 00:17
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Прекращаем дискуссию в этом топике. Хочешь продолжения тогда сюда либо в личку.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 07:04.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025