Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
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
Huong11a2@
binary_search-бинарный_поиск
4º Questão VS - 1º Sem. 2017
programme 2
zadacha2
Dd
Бассейн-5
Tugas
suduko solver
AgentMaxence