Информационная система железнодорожной сети / TYPES

unit types;

interface
const
MaxStations=20;
MaxLines=10; {зЁб«® бва®Є а бЇЁб ­Ёп ¤«п Є ¦¤®© ўҐвЄЁ. ЋЈа ­ЁзҐ­ЁҐ бўп§ ­®
в®«мЄ® б® б«®¦­®бвмо Їа®б¬®ва  Ёб室­ле ¤ ­­ле}
MaxLength=25;{¬ ЄбЁ¬ «м­ п ¤«Ё­  ­ §ў ­Ёп бв ­жЁЁ.
„«п Є®а४⭮© а Ў®вл ­Ґ ¤®«¦­® ЇаҐўли вм 25}

type

ArrString=array[1..MaxLength] of char; {Ё¬п ўҐаиЁ­л - ¬ ббЁў бЁ¬ў®«®ў}
Timestr=string[5]; {бва®Є , ЇаҐ¤бв ў«пой п ўаҐ¬п ў д®а¬ вҐ ——:ЊЊ}
TimeTableString=string[17]; {бва®Є  в Ў«Ёжл а бЇЁб ­Ёп}

TTime=word; {ўаҐ¬п - зЁб«® ¬Ё­гв Їа®иҐ¤иҐҐ б 00:00}

TRoute=record {¬ аиагв:}
DepTime:TTime; {ўаҐ¬п ®вЇа ў«Ґ­Ёп}
ArrTime:TTime; {ўаҐ¬п ЇаЁЎлвЁп}
Price:word {бв®Ё¬®бвм ЎЁ«Ґв }
end;

{бва®Є  а бЇЁб ­Ёп - бЇЁб®Є Ї®Ґ§¤®ў ¬Ґ¦¤г ¤ўг¬п бв ­жЁп¬Ё}
PTimeTableElem=^TTimeTableElem;
TTimeTableElem=record {н«Ґ¬Ґ­в а бЇЁб ­Ёп:}
Route:TRoute; {¬ аиагв}
Next:PTimeTableElem {гЄ § вҐ«м ­  б«Ґ¤гойЁ© ¬ аиагв}
end;

{бЇЁб®Є бв ­жЁ©, ¤® Є®в®але 室пв Ї®Ґ§¤  б нв®© бв ­жЁЁ}
PDestination=^TDestination;
TDestination=record {ॡ஠Ја д }
Where:byte; {Єг¤ }
TimeTable:PTimeTableElem; {Є®Ј¤  Ё бЄ®«мЄ® бв®Ёв}
TimeTableLines:byte; {зЁб«® бва®Є ў в Ў«ЁжҐ а бЇЁб ­Ёп}
NextStation:PDestination; {б«Ґ¤гой п бв ­жЁп}
end;

{¦Ґ«Ґ§­®¤®а®¦­ п бҐвм - Ја д, ўҐаиЁ­л Є®в®а®Ј® бв ­жЁЁ}
TVertex=record {ўҐаиЁ­  - бв ­жЁп}
Name:ArrString; {­ §ў ­ЁҐ}
Connections:PDestination; {бЇЁб®Є бв ­жЁ©, ¤® Є®в®але 室пв Ї®Ґ§¤ }
end;

TVertices=array[1..MaxStations] of TVertex; {¬ ббЁў ўҐаиЁ­ Ја д }
TGraph=record
Number:byte; {зЁб«® ўҐаиЁ­}
Vertices:TVertices {ўҐаиЁ­л}
end;

TAdditionalData=record {ўбЇ®¬®Ј вҐ«м­ п Ё­д®а¬ жЁп ® ўҐаиЁ­Ґ, ¤«п Ї®ЁбЄ }
VLabel:Integer; {¬ҐвЄ , ᮤҐа¦Ёв ¬Ё­Ё¬ «м­®Ґ ўаҐ¬п, §  Є®в®а®Ґ ¬®¦­® ¤®Ўа вмбп ¤® бв ­жЁЁ}
VTime:PTimeTableElem; {гЄ § вҐ«м ­  бва®Єг в Ў«Ёжл а бЇЁб ­Ёп}
Attr:boolean {¬ҐвЄ  ЇаЁ­ ¤«Ґ¦­®бвЁ Є ­ҐЇа®б¬®в७­л¬ ॡࠬ}
end;
{¬ ббЁў ¤®Ї®«­ЁвҐ«м­®© Ё­д®а¬ жЁЁ ® ўҐаиЁ­ е}
TVertexArray=array[1..MaxStations] of TAdditionalData;

TWayElem=record {н«Ґ¬Ґ­в ЇгвЁ}
Station:byte; {­®¬Ґа бв ­жЁЁ}
time:PTimeTableElem; {гЄ § вҐ«м ­  бва®Єг а бЇЁб ­Ёп}
end;

TWay=array[1..MaxStations] of TWayElem; {Їгвм}

{ўлўҐбвЁ ­  нЄа ­ Ё¬п}
procedure writeStr(const s:ArrString; var l:byte);
{б®еа ­Ёвм Ё¬п ў д ©«}
procedure SaveStr(var f:text; const s:ArrString);
{§ Јаг§Ёвм Ё¬п Ё§ д ©« }
procedure LoadStr(var f:Text; var s:ArrString; var l:byte);
{ЇаҐ®Ўа §®ў ­ЁҐ бва®ЄЁ ў® ўаҐ¬п}
function StrToTime(const s:timestr; var error:boolean):TTime;
{ўлў®¤ ўаҐ¬Ґ­Ё ­  нЄа ­}
procedure WriteTime(a:TTime);
{ЇаҐ®Ўа §®ў ­ЁҐ бва®ЄЁ ў бва®Єг а бЇЁб ­Ёп}
procedure EncodeTimeTableLine(const s:TimeTableString; var error:boolean; var Line:TRoute);
{б®еа ­Ґ­ЁҐ бва®ЄЁ а бЇЁб ­Ёп ў д ©«}
procedure SaveTimeTableLine(var f:text; const r:TRoute);

implementation

procedure writeStr(const s:ArrString; var l:byte);
var i:byte;
begin
i:=1;
while (s[i]<>#0) and (i<=MaxLength) do
begin
write(s[i]);
inc(i);
end;
l:=i-1 {¤«Ё­ }
end;

procedure SaveStr(var f:text; const s:ArrString);
var i:byte;
begin
i:=1;
while (s[i]<>#0) and (i<=MaxLength) do
begin
write(f,s[i]);
inc(i);
end;
writeln(f)
end;

procedure LoadStr(var f:Text; var s:ArrString; var l:byte);
var i:byte;
c:char;
begin
for i:=1 to MaxLength do s[i]:=#0;
i:=1;
while (not eoln(f)) and (i<=MaxLength) do
begin
read(f,c);
s[i]:=c;
inc(i)
end;
l:=i-1 {¤«Ё­ }
end;

{ЇаҐ®Ўа §®ў ­ЁҐ бва®ЄЁ ў® ўаҐ¬п. ‘ва®Є  ¤®«¦­  Ўлвм ўЁ¤  ——:ЊЊ
ЇаЁзҐ¬ зЁб« , Ґб«Ё ­ ¤®, ¤®«¦­л Ўлвм ¤®Ї®«­Ґ­л 0 ¤® 2-е §­ Є®ў: 02:45}
function StrToTime(const s:timestr; var error:boolean):TTime;
var t2:string[2];
res:word;
e:integer;
c:byte;
begin
if s[3]=':' then
begin
t2:=copy(s,1,2);
val(t2,c,e);
if (e=0) and (c<24) then
begin
res:=c*60;
t2:=copy(s,4,2);
val(t2,c,e);
if (e=0) and (c<60) then res:=res+c
else error:=true
end else error:=true
end else error:=true;
StrToTime:=res
end;

procedure WriteTime(a:TTime);
var c:byte;
begin
c:=(a div 60);
if c>=10 then write(c) else write('0',c);
write(':');
c:=(a mod 60);
if c>=10 then write(c) else write('0',c);
end;

{ЇаҐ®Ўа §®ў ­ЁҐ бва®ЄЁ ўЁ¤  ——:ЊЊ ——:ЊЊ ••••• ў бва®Єг а бЇЁб ­Ёп
ўЁ¤  <ўаҐ¬п_®вЇа ў«Ґ­Ёп> <ўаҐ¬п_ЇаЁЎлвЁп> <бв®Ё¬®бвм_ЎЁ«Ґв >.
ЋЈа ­ЁзҐ­Ёп ­  ўаҐ¬п в ЄЁҐ ¦Ґ Є Є Ё ў StrToTime}
procedure EncodeTimeTableLine(const s:TimeTableString; var error:boolean; var Line:TRoute);
var t:TimeStr;
e:integer;
begin
error:=false;
t:=copy(s,1,5);
Line.DepTime:=StrToTime(t,error);
if not error then
begin
t:=copy(s,7,11);
Line.ArrTime:=StrToTime(t,error);
if not error then
begin
t:=copy(s,13,5);
val(t,Line.price,e);
if (e<>0) or (Line.Price>65000) then error:=true
end;
end;
end;

procedure SaveTimeTableLine(var f:text; const r:TRoute);
var c:byte;
begin
c:=(r.DepTime div 60);
if c>=10 then write(f,c) else write(f,'0',c);
write(f,':');
c:=(r.DepTime mod 60);
if c>=10 then write(f,c) else write(f,'0',c);
write(f,' ');
c:=(r.ArrTime div 60);
if c>=10 then write(f,c) else write(f,'0',c);
write(f,':');
c:=(r.ArrTime mod 60);
if c>=10 then write(f,c) else write(f,'0',c);
write(f,' ');
writeln(f,r.price:5);
end;

end.