//записи
program Project2;{$APPTYPE CONSOLE} uses SysUtils;
const
nmax=100;
type
info=record
num:integer;
punkt:string[15];
timevil:integer;
timeprib:integer;
svmest:integer;
end;
masinfo=array[1..nmax]of info;
var
abon:masinfo;
i,n,j,t:byte;
z,punkt:string;


procedure vvod(nx:integer; out jx:masinfo);
var i:integer;
begin
for i:=1 to nx do
begin
writeln('Введите номер рейса самолета:');
readln(jx[i].num);
writeln;
writeln('Введите пункт назначения:');
readln(jx[i].punkt);
writeln;
writeln('Введите время вылета:');
readln(jx[i].timevil);
writeln('Введите время прилета:');
readln(jx[i].timeprib);
writeln('Введите число свободных мест:');
readln(jx[i].svmest);
writeln;
end;
end;

procedure vyvod(nx:integer; jx:masinfo);
var i:integer;
begin
writeln('Номер рейса| Пункт назначения | Время вылета | Билеты');
writeln;
for i:=1 to nx do
begin
writeln (jx[i].Num:4,jx[i].punkt:18,jx[i].timevil:13,' ':9, jx[i].svmest);
end;
writeln;
end;

procedure poisk(nx:integer; jx:masinfo);
var st,fin:1..100; xmax,imax,j,k,i:integer; b:info;
begin
Writeln(' ':20,'Список рейсов');
Writeln;
writeln('Номер рейса| Пункт назначения | Время вылета | Билеты');
Writeln;
for i:=1 to nx do
begin
b:=jx[i];
imax:=i;
for j:=i+1 to nx do
if jx[j].svmest>b.svmest then
begin
b:=jx[j];
imax:=j;
end;
jx[imax]:=jx[i];
jx[i]:=b;
end;
for i:=1 to nx do
begin writeln(jx[i].Num:4,jx[i].punkt:23,jx[i].timevil:13,' ':9, jx[i].svmest);
end;
Writeln;


writeln('Введите требуемый пункт назначения');
Writeln;
Writeln;
readln(punkt);
writeln('Номер рейса| Пункт назначения | Время вылета | Билеты');
Writeln;

k:=0;
for i := 1 to nx do
if jx[i].punkt=punkt then begin
writeln (jx[i].Num:4,jx[i].punkt:23,jx[i].timevil:13,' ':9, jx[i].svmest);k:=k+1; end;
Writeln;
Writeln;
if k=0 then Writeln('В данный город рейсов нет');
Writeln;
Writeln;

Writeln('Введите время отправления');
readln(t);
Writeln;
k:=0;
for i := 1 to nx do
if (jx[i].timevil=t) and (jx[i].svmest>0) then
begin
writeln('Номер рейса| Пункт назначения | Время вылета | Билеты');
writeln (jx[i].Num:4,jx[i].punkt:23,jx[i].timevil:13,' ':9 ,jx[i].svmest);k:=k+1;
end;
Writeln;
Writeln;
if k=0 then Writeln('На данное время билетов нет');

end;


begin
writeln('введите число рейсов ');
readln(n);
writeln;

vvod(n,abon);
writeln;

writeln('Актуальная информация') ;
writeln;

vyvod(n,abon);
writeln;
poisk(n, abon);
writeln;
readln;
end.

Случайные файлы

Файл
Readme.txt
S1.TXT
kurs_mmc.txt
Readme.txt
readme.txt




Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.