Prvi zadatak vezbe pokazivaci, Pascal

Prvi zadatak vezbe pokazivaci

//fpc 3.0.0

program HelloWorld;
type
pokazivac=^element;
element=record
    broj:integer;
    sledeci:pokazivac;
end;    
var
niz:pokazivac;
k:integer;

procedure pisi(niz:pokazivac);
var
prvi:pokazivac;
begin
prvi:=niz;
while (prvi<>nil) do begin
write(output,prvi^.broj,' ');
prvi:=prvi^.sledeci
end;
writeln;
end;

procedure brisi(niz:pokazivac);
var
stari:pokazivac;
begin
stari:=niz;
while (stari<>nil) do begin
niz:=stari^.sledeci;
dispose(stari);
stari:=niz;
end;
end;

procedure citaj(var niz:pokazivac);
var
novi,posl:pokazivac;
begin
niz:=nil;
posl:=nil;
while not eoln(input) do begin
new(novi);
read(input,novi^.broj);
novi^.sledeci:=nil;
if posl=nil then
niz:=novi
else 
posl^.sledeci:=novi;
posl:=novi;
end;
readln;
end;

procedure izostavi(var niz:pokazivac; k:integer);
var
preth,tekuci,stari:pokazivac;
begin
tekuci:=niz;
preth:=nil;
while (tekuci<>nil) do
if tekuci^.broj=k then begin
stari:=tekuci;
tekuci:=tekuci^.sledeci;
if preth=nil then
niz:=tekuci
else
preth^.sledeci:=tekuci;
dispose(stari)
end
else begin
preth:=tekuci;
tekuci:=tekuci^.sledeci;
end
end;

begin
citaj(niz);
pisi(niz);
k:=2;
izostavi(niz,k);
pisi(niz);
end.


run \| edit \| history \| help	0

λ

                                      .NET NoSQL database for rapid development