Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
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
Linija
PrimoPerfecto
6
mine
practica 7 ejercicio B2
НОД не по ЕВКЛИДУ но без массивов
b2
Андреева Урок 6 задача 8 (1531)
IPR2
practica 2 ejercicio 7