1 / 1 / 0
Регистрация: 13.09.2015
Сообщений: 124
1

В справочной автовокзала хранится расписание движения автобусов. Для каждого рейса указаны его номер, тип авто

03.10.2015, 15:22. Показов 2270. Ответов 1
Метки нет (Все метки)

В справочной автовокзала хранится расписание движения автобусов. Для каждого рейса указаны его номер, тип автобуса, пункт назначения, время отправления и прибытия. Вывести информацию о рейсах, которыми можно воспользоваться для прибытия в пункт назначения раньше заданного времени.

Что то типо этого реализовать
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
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
unit tema6;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Memo1: TMemo;
    Button1: TButton;
    Button3: TButton;
    Splitter1: TSplitter;
    Button5: TButton;
    BitBtn1: TBitBtn;
    SaveDialog1: TSaveDialog;
    Button2: TButton;
    OpenDialog1: TOpenDialog;
    Button4: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
 Type
  TStudent = record
    FIO: string[40];            // Поле ф.и.о.
    otc: array[1..3] of word;       // Поле массива оценок
    sball : extended;           // Поле среднего балла
    end;
 
 Var
  Fz  : file of  Tstudent;      // Файл типа запись
  Ft  : TextFile;           // Текстовой файл
  Stud : array[1..100] of Tstudent; // Массив записей
  nzap : integer;           // Номер записи
  FileNameZ, FileNameT : string;    // Имя файла
 
var
  Form1: TForm1;
 
implementation
 
{$R *.DFM}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
   Edit1.Text:='';
   Edit2.Text:='';
   Edit3.Text:='';
   Edit4.Text:='';
   Memo1.Clear;
   Button1.Hide;        // Сделать невидимой кнопку "Ввести запись" 
    nzap:=0;
end;
 
procedure TForm1.Button1Click(Sender: TObject); // Ввести новую запись
begin
    nzap:=nzap+1;
  with stud[nzap] do begin
           FIO:=Edit1.Text;
           otc[1]:=StrToInt(Edit2.Text);
           otc[2]:=StrToInt(Edit3.Text);
           otc[3]:=StrToInt(Edit4.Text);
           sball:=(otc[1]+otc[2]+otc[3])/3;
  Memo1.Lines.Add(fio+'  '+IntToStr(otc[1])+'  '+ IntToStr(otc[2])+'   '+IntToStr(otc[3]));
                                end;
     Write(fz,Stud[nzap]);                  // Запись в файл
   Edit1.Text:='';
   Edit2.Text:='';
   Edit3.Text:='';
   Edit4.Text:='';
end;
 
procedure TForm1.Button2Click(Sender: TObject); // Создание нового файла записей
begin
   OpenDialog1.Title :='Создать новый файл';    // Изменение заголовка окна диалога
 if OpenDialog1.Execute then  // Выполнение стандартного диалога выбора имени файла
   begin
    FileNameZ:= OpenDialog1.FileName; // Возвращение имени дискового файла 
    AssignFile(Fz, FileNameZ);  // Связывание файловой переменной Fz c именем файла
     Rewrite(Fz);                         // Создание нового файла
   end;
    Button1.Show;                      // Сделать видимой кнопку "Ввести запись"
end;
 
procedure TForm1.Button3Click(Sender: TObject); // Открыть существующий файл
begin
 if OpenDialog1.Execute then  // Выполнение стандартного диалога выбора имени файла
   begin
    FileNameZ:= OpenDialog1.FileName; // Возвращение имени дискового файла 
    AssignFile(Fz, FileNameZ);    // Связывание файловой переменной Fz c именем файла
     Reset(Fz);                                // Открытие существующего файла
   end;
  while not eof(fz) do begin       
   nzap:=nzap+1;
     Read(fz,stud[nzap]);                // Чтение записи из файла
         with stud[nzap] do
     Memo1.Lines.Add(fio+'  '+IntToStr(otc[1])+'  '+IntToStr(otc[2])+'   '+IntToStr(otc[3]));
                                 end;
     Button1.Show;                        // Сделать видимой кнопку "Ввести запись"
end;
 
procedure TForm1.Button4Click(Sender: TObject);  // Сортировка записей
 var i,j :  word;
       st : TStudent;
begin
 for i:=1 to nzap-1 do                   // Сортировка массива записей
  for j:=i+1 to nzap do
   if Stud[i].sball < Stud[j].sball then begin
          st:=Stud[i];
         Stud[i]:=Stud[j];
         Stud[j]:=st;
                                                         end;
      Memo1.Clear;
  for i:=1 to nzap do                    // Вывод в окно Memo1 отсортированных записей
          with stud[i] do
     Memo1.Lines.Add(IntToStr(i)+'  '+fio+'  '+FloatToStrf(sball,fffixed,4,2));
end;
 
procedure TForm1.Button5Click(Sender: TObject); // Сохранение результатов сортировки                                   // в текстовом файле
var i:word;
begin
  if SaveDialog1.Execute then  // Выполнение стандартного диалога выбора имени файла
    begin
   FileNameT:= SaveDialog1.FileName; // Возвращение имени дискового файла
    AssignFile(Ft, FileNameT);     // Связывание файловой переменной Ft c именем файла
      Rewrite(Ft);                           // Открытие нового текстового файла
    end;
  for i:=1 to nzap do
         with stud[i] do  Writeln(Ft,i:4,'. ',fio,sball:8:2);   // Запись в текстовой файл
  CloseFile(Ft);                             // Закрытие текстового файла
end;
 
procedure TForm1.BitBtn1Click(Sender: TObject);  
begin                              
 CloseFile(fz);       // Закрытие файла записей при нажатии на кнопку “Сlose”
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 CloseFile(fz);      // Закрытие файла записей при нажатии на кнопку  
end;
 
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.10.2015, 15:22
Ответы с готовыми решениями:

В справочной автовокзала хранится расписание движения автобусов
В справочной автовокзала хранится расписание движения автобусов. Для каждого рейса пункт...

В справочной автовокзала хранится расписание движения автобусов. Для каждого рейса указаны его номер, тип автобуса, пункт назначения, время отправ
В справочной автовокзала хранится расписание движения автобусов. Для каждого рейса указаны его...

в справочной автовокзала хранится расписание движения автобусов. Для каждого рейса указаны его номер, тип автобуса, пунт назначения, время отбытия и п
в справочной автовокзала хранится расписание движения автобусов. Для каждого рейса указаны его...

В справочной автовокзала хранится расписание движения автобусов
Код не работает, ошибку найти не могу.

1
15 / 15 / 6
Регистрация: 31.01.2011
Сообщений: 177
04.10.2015, 16:40 2
В справочной автовокзала хранится расписание движения автобусов. Для каждого рейса указаны его номер, тип авто

В справочной автовокзала хранится расписание движения автобусов. Для каждого рейса указаны его номер, тип авто

Где скопировал? Отдебажить бы не помешало
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.10.2015, 16:40
Помогаю со студенческими работами здесь

В текстовом файле хранится список товаров. Для каждого товара указаны его название, стоимость единицы товара в тыс. руб
В текстовом файле хранится список товаров. Для каждого товара указаны его на¬звание, стоимость...

Сформировать структуру AEROFLOT для хранения следующей информации номер рейса название пункта назначения рейса тип самолета
Сформировать структуру AEROFLOT для хранения следующей информации: · номер рейса; · название...

Расписание движения автобусов
Помогите пожалуйста В справочной автовокзала хранится расписание движения автобусов. Для каждого...

Расписание движения автобусов
Здравствуйте уважаемые эксперты! Есть следующее задание: В справочной автовокзала хранится...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru