Pokazivaci, ulancane liste, Pascal

Pokazivaci, ulancane liste

program UlancanalistaIzostavielem;

type
pok=^elem;
elem=record
     broj:integer;
     next:pok
     end;
var
lista:pok;

procedure ispisilistu(lista:pok);
var pom:pok;
begin
pom:=lista;
while(lista<>nil)do begin
write(lista^.broj,' ');
lista:=lista^.next
end;
lista:=pom
end;

procedure citajlistu(var lista:pok);
var novi,poslednji:pok;
begin
poslednji:=nil;
lista:=nil;
while not eoln(input) do begin
new(novi);
read(novi^.broj);
if (lista=nil) then 
lista:=novi
else poslednji^.next:=novi;
poslednji:=novi
end
end;

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

procedure izostavielem(var lista:pok);
var 
pom,prvi:pok;
k:integer;
begin
writeln('Unesite broj k: ');
read(k);
pom:=nil; prvi:=lista;
while (prvi<>nil)do begin
if(prvi^.broj<k)  then begin
 if (pom=nil) then begin
 pom:=lista;
 lista:=pom^.next;
 dispose(pom);
 prvi:=lista
 end
else begin
pom^.next:=prvi^.next;
dispose(prvi);
prvi:=pom^.next
end
end
else begin
pom:=prvi;
prvi:=pom^.next
end
end
end;

begin
lista:=nil;
citajlistu(lista);
ispisilistu(lista);
izostavielem(lista);
ispisilistu(lista);
brisilistu(lista);
ispisilistu(lista)
end.


run \| edit \| history \| help	0

λ

                                      .NET NoSQL database for rapid development