Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Blog
Why does not work?
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 Skokovi; type pok=^elem; zapis=record ime,prezime:string; D,S1,S2,S3,S4:real end; elem=record podatak:zapis; ocjena:real; next:pok end; var lista:pok; procedure procitajime(var imenica:string); var znak:char; begin read(znak); imenica:=''; while (znak<>' ') do begin imenica:=imenica+znak; read(znak) end end; procedure ucitavanje(var lista:pok); var prethodnik,novi:pok; i:integer; begin for i:=1 to 5 do begin new(novi); procitajime(novi^.podatak.ime); procitajime(novi^.podatak.prezime); readln(novi^.podatak.D,novi^.podatak.S1,novi^.podatak.S2,novi^.podatak.S3,novi^.podatak.S4); if (lista=nil) then begin lista:=novi; prethodnik:=novi end else begin prethodnik^.next:=novi; prethodnik:=novi end; prethodnik^.ocjena:=prethodnik^.podatak.D*(prethodnik^.podatak.S1+prethodnik^.podatak.S2+prethodnik^.podatak.S3+prethodnik^.podatak.S4)/4 end end; procedure diskvalifikovani(var lista:pok); var pom,preth:pok; k:real; begin writeln('Uneite najmanji dozvoljeni skok: '); read(k); pom:=lista; preth:=nil; while (pom<>nil) do begin if (pom^.podatak.D<k) then begin if (preth<>nil) then begin preth^.next:=pom^.next; dispose(pom); pom:=preth^.next end else begin pom:=pom^.next; dispose(lista); lista:=pom end end else begin preth:=pom; pom:=pom^.next end end end; procedure uredineopadajuce(var lista:pok); var pom1,pom2,pomocni:pok; begin pom1:=lista; while (pom1<>nil) do begin pom2:=pom1^.next; while (pom2<>nil) do begin if (pom1^.ocjena<pom2^.ocjena) then begin new(pomocni); pomocni^.podatak:=pom1^.podatak; pomocni^.ocjena:=pom1^.ocjena; pom1^.podatak:=pom2^.podatak; pom1^.ocjena:=pom2^.ocjena; pom2^.podatak:=pomocni^.podatak; pom2^.ocjena:=pomocni^.ocjena end; pom2:=pom2^.next end; pom1:=pom1^.next end end; procedure obrada(var lista:pok); begin diskvalifikovani(lista); uredineopadajuce(lista) end; procedure upis(var lista:pok); var pom:pok; s:real; n:integer; begin pom:=lista; s:=0.0; n:=0; while (pom<>nil) do begin writeln(pom^.podatak.ime,' ',pom^.podatak.prezime,' '.,pom^.ocjena:0:2); n:=n+1; s:=s+pom^.ocjena; pom:=pom^.next end end; procedure obrisilistu(var lista:pok); var pom:pok; begin pom:=lista^.next; while (lista<>nil) do begin dispose(lista); lista:=pom; pom:=lista^.next end end; begin lista:=nil; ucitavanje(lista); upis(lista); obrada(lista); upis(lista); obrisilistu(lista) end.
Ana Jovovic 5.5 1. 2. 3 .4. Danijela Grguric 3.6 1. 2. 3. 4. Marija Savic 4.2 1. 2. 3. 4. Nikolina Petrovic 5.0 1. 2. 3. 4. Dajana Milosevic 5.1 1. 2. 3. 4. 4.0
Show compiler warnings
[
-
]
Show input
Compilation time: 0.23 sec, absolute running time: 0.13 sec, cpu time: 0.06 sec, memory peak: 3 Mb, absolute service time: 0,46 sec
edit mode
|
history
|
discussion
stackse - search stackoverflow differently