Составьте файл на наличие рейсов и билетов аэрофлота

@Баян · Регистрация: 02.12.2009

Студворк — интернет-сервис помощи студентам

Составьте файл на наличие рейсов и билетов аэрофлота. Найти время вылета самолетов в город Х. Структура записи: номер рейса, место назначения, время вылета, время прибытия, количество свободных мест в салоне. Количество записей (2-3).

@Puporev · 02.12.2009, 17:27

Вот вроде такая программа, писал давно, суть не помню, но можно доделать как Вам нужно.

Pascal
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
uses crt;
type a1=record
     nom:integer;
     punkt:string[20];
     time:string[5]; {char -eto 1 simvol}
     time_prib:string[5]; {12:50}
     svob_mest:integer;
     end;
var a:a1;
    fa: file of a1;
    c:char;
    x:string[20];{gorod}
    y:string[5];{cvremya}
    k:byte;
begin
clrscr;
assign(fa,'airport');
rewrite(fa);
writeln('Sozdanie faila:');
repeat
with a do
 begin
  write('nomer reisa:  ');readln(a.nom);
  write('punkt naznachenia:  ');readln(a.punkt);
  write('vremya vileta:  ');readln(a.time);
  write('vremya pribitiya:  ');readln(a.time_prib);
  write('kol-vo svobodnih mest:  ');readln(a.svob_mest);
  write(fa,a);
 end;
c:=readkey;
until c=#27;
 
repeat
clrscr;
writeln;
writeln('Zapros:');
writeln('1 - Svedenya o vyletah rejsov');
writeln('2 - Svedenya o nalichii svobodnyh mest');
 repeat
  readln(c);
 until c in['1','2'];
if c='1' then
  begin
   clrscr;
   writeln;
   writeln('Svedenya o vyletah rejsov:');
   repeat
   reset(fa);
   writeln;
   write('Vvedite nazvanie goroda:  ');
   readln(x);
   writeln('Vremya vyleta v gorod ',x,':');
   k:=0;
   while not eof(fa) do
     begin
       read(fa,a);
       if a.punkt=x then
         begin
           writeln(a.time);
           k:=1;
         end;
     end;
   if k=0 then writeln('V gorod ',x,' rejsov net!');
   writeln;
   writeln('Prodolzit? y/Y - da, n/N - net');
   readln(c);
   c:=upcase(c);
   close(fa);
   until c='N';
 end
else if c='2' then
 begin
   writeln;
   writeln('Svedenya o nalichii svobodnyh mest:');
   repeat
   clrscr;
   reset(fa);
   writeln;
   write('Gorod:  ');readln(x);
   write('Vremya vyleta:  ');readln(y);
   k:=0;
   while not eof(fa) do
     begin
       read(fa,a);
       if (a.punkt=x)and(a.time=y) then
         begin
           writeln('Svobodnyh mest=',a.svob_mest);
           k:=1;
         end;
     end;
   if k=0 then writeln('Takogo rejsa net!');
   writeln;
   writeln('Prodolzit? y/Y - da, n/N - net');
   readln(c);
   c:=upcase(c);
   close(fa);
   until c='N';
 end;
writeln;
writeln('Novyj zapros? y/Y - da, n/N - net');
readln(c);
c:=upcase(c);
until c='N';
readkey
end.

Новые блоги и статьи Все статьи Все блоги /
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .

@Баян 0 / 0 / 0 Регистрация: 02.12.2009 Сообщений: 5

	Составьте файл на наличие рейсов и билетов аэрофлота 02.12.2009, 15:31. Показов 1948. Ответов 1 Метки нет (Все метки) Составьте файл на наличие рейсов и билетов аэрофлота. Найти время вылета самолетов в город Х. Структура записи: номер рейса, место назначения, время вылета, время прибытия, количество свободных мест в салоне. Количество записей (2-3). 0

Составьте файл на наличие рейсов и билетов аэрофлота

Решение