Лабораторные работы / laba9 / laba9

program laba8;
uses crt;
{’ЁЇ ¤«п ЎЁ«Ё­Ґ©­®Ј® бЇЁбЄ }
Type Tlistbi= ^S;
S = record
Inf: integer; {‡­ зҐ­ЁҐ}
Next: Tlistbi; {‘«Ґ¤гойЁ© ®ЎкҐЄв}
Pred: Tlistbi; {ЏаҐ¤л¤гйЁ© ®ЎкҐЄв}
End;

{’ЁЇ ¤«п «Ё­Ґ©­®Ј® бЇЁбЄ }
Type Tlistein= ^P;
P = record
Inf: integer; {‡­ зҐ­ЁҐ}
Next: Tlistein; {‘«Ґ¤гойЁ© ®ЎкҐЄв}
End;

var n, i: integer; {Љ®«- ® н«-в®ў Ё ¤«Ё­ }
fin: text; {‚е. д ©«}

startbi: Tlistbi; {ббл«Є  ­  ЇҐаўл© ®ЎкҐЄв ЎЁ«Ё­Ґ©­®Ј® бЇЁбЄ }

startein: Tlistein; {ббл«Є  ­  ЇҐаўл© ®ЎкҐЄв «Ё­Ґ©­®Ј® бЇЁбЄ }


{Џа®жҐ¤га  з⥭Ёп ЎЁ«Ё­Ґ©­®Ј® бЇЁбЄ  Ё§ д ©« }
procedure CreateBiList(start: Tlistbi);
var tmp, u: Tlistbi;
begin
read(fin, start^.inf);
start^.next:=nil;
start^.pred:=nil;
tmp:=start;
for i:= 2 to n do
begin
new(u);
read(fin, u^.inf);
u^.next:=nil;
u^.pred:=tmp;
tmp^.next:=u;
tmp:=u;
end;
end;

{Џа®жҐ¤га  ўлў®¤  ЎЁ«Ё­Ґ©­®Ј® бЇЁбЄ }
procedure PrintBi(start: tlistbi);
var u: tlistbi;
begin
u:=start;
repeat
write(u^.inf, ' ');
u:=u^.next;
until (u = nil);
end;

{Џа®жҐ¤га  б®§¤ ­Ёп «Ё­Ґ©­®Ј® бЇЁбЄ  Ё§ ЎЁ«Ё­Ґ©­®Ј®}
procedure CreateEinList(start: Tlistein; startbi: Tlistbi);
var u: tlistbi;
v, tmp: tlistein;
tmpint: integer;
begin
u:=startbi;
v:=start;
tmp:=nil;
repeat
if u^.inf <> u^.pred^.inf then
begin
v^.inf:=u^.inf;
v^.next:=tmp;
tmp:=v;
new(v);
u:= u^.next;
tmp^.next:=v;
end
else
u:= u^.next;
until (u = nil);
tmp^.next:=nil;
dispose(v);
end;

{Џа®жҐ¤га  ўлў®¤  «Ё­Ґ©­®Ј® бЇЁбЄ }
procedure PrintEin(start: tlistein);
var u: tlistEin;
begin
u:=start;
repeat
write(u^.inf, ' ');
u:=u^.next;
until (u = nil);
end;

begin
assign(fin, 'G:\tpascal\2semestr\laba9\fin.txt');
reset(fin);
write('‚ўҐ¤ЁвҐ¤«Ё­г ¬ ббЁў  n: ');
readln(n);
new(startbi);
CreateBiList(startbi); {‘®§¤ ­ЁҐ бЇЁбЄ }
Writeln('„ўг­ Їа ў«Ґ­­л© бЇЁб®Є:');
PrintBi(startbi);
Writeln;
new(startein);
CreateEinList(startein, startbi);
Writeln('Ћ¤­®­ Їа ў«Ґ­­л© бЇЁб®Є:');
printEin(startein);
writeln;
readln;
end.