Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Pokazivaci, ulancane liste
Language:
Ada
Assembly
Bash
C#
C++ (gcc)
C++ (clang)
C++ (vc++)
C (gcc)
C (clang)
C (vc)
Client Side
Clojure
Common Lisp
D
Elixir
Erlang
F#
Fortran
Go
Haskell
Java
Javascript
Kotlin
Lua
MySql
Node.js
Ocaml
Octave
Objective-C
Oracle
Pascal
Perl
Php
PostgreSQL
Prolog
Python
Python 3
R
Rust
Ruby
Scala
Scheme
Sql Server
Swift
Tcl
Visual Basic
Layout:
Vertical
Horizontal
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.
77 4 5 8 9 6 10 12 13 11 4 55 69 84 75 20
Show compiler warnings
[
-
]
Show input
Compilation time: 0.23 sec, absolute running time: 0.14 sec, cpu time: 0.08 sec, memory peak: 3 Mb, absolute service time: 0,46 sec
edit mode
|
history
|
discussion