Dvodimenzionalno polje

1. Dvodimenzionalno polje Osnovni postupci

2. Ponavljanje • Kada koristimo 2d polje? • Kako prikazujemo 2d polje? • Kako deklariramo 2d polje? • Kako označavamo pojedini element u polju?

3. Kada koristimo 2d polje? • kad svaki podatak možemo opisati s dvije karakteristike • stupac, redak • mjesec, godina • dan, mjesec • razred, učenik • primjer: za 5 osoba pratimo bodove postignute na 6 zadataka

4. Kako prikazujemo 2d polje?

5. Kako deklariramo 2d polje? • primjer: za 5 osoba pratimo bodove postignute na 6 zadataka var bod: array[1..5, 1..6] ofbyte; • prva karakteristika označava osobu, druga zadatak

6. Kako označavamo pojedini element u polju? bod[1,3] bod[2,5] bod[1,6] bod[5,1] bod[4,4] bod[3,2]

7. Upis elemenata polja for os:=1 to 5 do begin writeln(‘Upiši bodove ‘,os,’. osobe 1. do 6. zad.’); for zad:=1 to 6 do begin readln(bod[os,zad]); end; end;

8. Ispis elemenata polja for os:=1 to 5 do begin for zad:=1 to 6 do begin write(bod[os,zad]:10); end; writeln; end;

9. Rezultat

10. Ispis elemenata polja (2) for zad:=1 to 6 do begin for os:=1 to 5 do begin write(bod[os,zad]:10); end; writeln; end;

11. Rezultat

12. Suma • Ukupni bodovi svake osobe • Ukupni bodovi svih osoba

13. Ukupni bodovi svake osobe for os:=1 to 5 do begin uk:=0; for zad:=1 to 6 do uk:=uk+bod[os,zad]; writeln(os,’. osoba postigla je ‘,uk,’ bodova’); end;

14. Rezultat 1. osoba postigla je 22 boda 2. osoba postigla je 14 bodova 3. osoba postigla je 30 bodova 4. osoba postigla je 18 bodova 5. osoba postigla je 6 bodova

15. Ukupni bodovi svih osoba uk:=0; for os:=1 to 5 do begin for zad:=1 to 6 do uk:=uk+bod[os,zad]; end; writeln(‘Ukupno je postignuto ‘,uk,’ bodova’);

16. Rezultat Ukupno je postignuto 90 bodova

17. Srednja vrijednost • Prosječni bodovi postignuti na pojedinom zadatku • Prosječni bodovi svih zadataka svih osoba

18. Prosječni bodovi postignuti na pojedinom zadatku for zad:=1 to 6 do begin uk:=0; for os:=1 to 5 do uk:=uk+bod[os,zad]; writeln(‘Na ‘,zad,’. zadatku prosječni bodovi su ‘, uk/5:10:2); end;

19. Rezultat Na 1. zadatku prosječni bodovi su 2,00 Na 2. zadatku prosječni bodovi su 2,60 Na 3. zadatku prosječni bodovi su 2,20 Na 4. zadatku prosječni bodovi su 3,80 Na 5. zadatku prosječni bodovi su 4,40 Na 6. zadatku prosječni bodovi su 3,40

20. Prosječni bodovi svih zadataka svih osoba uk:=0; for zad:=1 to 6 do begin for os:=1 to 5 do uk:=uk+bod[os,zad]; end; writeln(‘Prosječni bodovi su ‘, uk/30:10:2);

21. Rezultat Prosječni bodovi su 3,00

22. Pretraživanje, prebrojavanje • Koliko zadataka je 1. učenik potpuno riješio?

23. Koliko zadataka je prvi učenik potpuno riješio? br:=0; for zad :=1 to 6 do begin if bod[1,zad]=5 then br:=br+1; end; writeln(‘Učenik je uspješno riješio ‘, br,’ zadataka’);

24. Zadaci • Koliko puta je postignuto 0 bodova na pojedinom zadatku? • Koliko učenika je riješilo sve zadatke?

25. Koliko puta je postignuto 0 bodova na pojedinom zadatku? brnula:=0; for zad:=1 to 6 do begin for os:=1 to 5 do if bod[os,zad]=0 then brnula := brnula +1 end; writeln(brnula,’ puta’);

26. Koliko učenika je riješilo sve zadatke? sverj:=0; for os:=1 to 5 do begin brnula:=0; for zad:=1 to 6 do if bod[os,zad]=0 then brnula := brnula +1; if brnula=0 then sverj:=sverj+1; end; writeln(sverj,’ učenika’);