Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- procedure Najbolji(ni:niz_igraca; ukI:integer);
- var gk:igrac; df:niz_igraca; mf:niz_igraca; cf:niz_igraca;
- pom:igrac;
- i,j,k:integer;
- begin
- gk.ocena := -1;
- for k:=1 to ukI do
- if ((ni[k].pozicija=golman) AND (ni[k].ocena>gk.ocena) ) then
- begin
- gk:=ni[k];
- end;
- //zavrseno sa izborom golmana.
- //ovaj prvi for ide od 1-4, jer ti trebaju 4 najbolja igraca za odbranu i sredinu
- //umesto 4 mozes staviti da ti for ide do MAX_ODBRANA ili MAX_SREDINA. al radice samo ako imas isti broj igraca u odbrani i u sredini. Ako nije broj isti, onda stavis veci broj od ta dva.
- for i:=1 to 4 do
- begin
- df[i].ocena := -1;
- mf[i].ocena := -1;
- //kreces od i-tog mesta jer prvih i mesta zauzimaju vec najbolji igraci odbrane, one koje si pronasao
- //ides do (ukI-i-1) jer se na kraju nalaze najbolji igraci sredine, one koje si nasao, zbog toga neces da ides do kraja niza. jer ce se tamo vec nalaziti najbolji igraci sredine.
- for k:=i to (ukI-i-1) do
- begin
- //proveris da li je trenutni k-ti igrac u nizu bolji od odbrambenog igraca kog si nasao pre toga
- if((ni[k].pozicija=odbrana) AND (ni[k].ocena>df[i].ocena)) then
- begin
- df[i] := ni[k];
- //zamena mesta, stavljas ga na i-to mesto u nizu
- pom := ni[k];
- ni[k]:=ni[i];
- ni[i]:=pom;
- end;
- //isto samo za ove sto igraju sredinu
- if((ni[k].pozicija=sredina) AND (ni[k].ocena>mf[i].ocena)) then
- begin
- mf[i] := ni[k];
- //opet zamena mesta, al sad ne mozes stavljati na pocetak niza
- //jer se tamo nalaze odbrambeni igraci, pa cemo ove iz sredine stavljati na kraj niza
- pom := ni[k];
- ni[k]:=ni[ukI-i-1]; //-1 ide jer ako imas 30 igraca i oduzmes 1, prvog najboljeg igraca ces
- //staviti na 29. mesto umesto na 30., da ne bi gubio to jedno mesto
- //onda dodas jos to -1, i onda stavlja na 30. (odnosno poslednje) mesto u
- //nizu
- ni[ukI-i-1]:=pom;
- end;
- end;
- end;
- //posle ovog velikog fora, trebalo bi da imas nadjene najbolje igrace sredine i odbrane. Ti uradi za napad.
- writeln('Idealan tim u formaciji 4-4-2 je: ');
- writeln;
- writeln('Golman: ');
- writeln(gk.ime,' ',gk.prezime,' sa ocenom: ', gk.ocena);
- writeln('Odbrana: ');
- for i:=1 to MAX_ODBRANA do
- writeln(df[i].ime, ' ',df[i].prezime, ' ', ' sa ocenom: ',df[i].ocena);
- writeln;
- writeln('Sredina: ');
- for i:=1 to MAX_SREDINA do
- writeln(mf[i].ime,' ',df[i].prezime,' ',' sa ocenom: ',mf[i].ocena);
- writeln;
- writeln('Napad: ');
- for i:=1 to MAX_NAPAD do
- writeln(cf[i].ime,' ',cf[i].prezime,' ',' sa ocenom: ',cf[i].ocena);
- writeln;
- end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement