Obrni listu , Pascal

Obrni listu

program obrtanjeListe;

type
pok=^elem;
elem=Record
     br:integer;
     next:pok
     end;

var
lista:pok;

procedure napravilistu(var lista:pok);
var 
novi,prethodnik:pok;
begin
prethodnik:=nil;
writeln('Unesite elemente liste: ');
while not eoln(input) do begin
new(novi);
read(novi^.br);
if lista=nil then lista:=novi
else prethodnik^.next:=novi;
prethodnik:=novi
end
end;

procedure ispisilistu(lista:pok);
begin
writeln('Vasa lista je: ');
while lista<>nil do begin
write(lista^.br,' ');
lista:=lista^.next
end;
writeln();
end;

procedure obrnilistu(var lista:pok);
var 
pom1,pom2,pom3:pok;
begin
pom1:=lista;
pom2:=pom1^.next;
pom3:=pom2^.next;
lista^.next:=nil;
while pom2<>nil do 
begin
pom2^.next:=pom1;
pom1:=pom2;
pom2:=pom3;
pom3:=pom3^.next;
end;
lista:=pom1;
end;

procedure brisilistu(var lista:pok);
var pom:pok;
begin
while lista<>nil do begin
pom:=lista^.next;
dispose(lista);
lista:=pom
end
end;

begin
lista:=nil;
napravilistu(lista);
ispisilistu(lista);
obrnilistu(lista);
ispisilistu(lista);
brisilistu(lista)
end.


run \| edit \| history \| help	0

λ

                                      .NET NoSQL database for rapid development