31. ʁɚɧɭɚɪ 2014 10:05
G:\Grupno spremanje - novo (feb 2014)\Zadaci\Kodovi\Nizovi\zadatak1-1.pas
{ *ɋɟɩɬɟɦɛɚɪ 2011. (1. ɡɚɞɚɬɚɤ)*
ɇɚɩɢɫɚɬɢ ɩɪɨɝɪɚɦ ɧɚ ɩɪɨɝɪɚɦɫɤɨɦ ʁɟɡɢɤɭ ɉɚɫɤɚɥ ɤɨʁɢ ɨɞ ɞɜɚ ɧɢɡɚ ɰɟɥɢɯ ɛɪɨʁɟɜɚ ʁɟɞɧɚɤɟ
ɞɭɠɢɧɟ ɮɨɪɦɢɪɚ ɬɪɟʄɢ ɧɢɡ ɬɚɤɨ ɞɚ ɛɭɞɟ ɡɚɞɨɜɨʂɟɧ ɭɫɥɨɜ c[i]=max(a[i],b[i]). ɉɪɨɝɪɚɦ
ɬɪɟɛɚ ɞɚ ɫɚ ɝɥɚɜɧɨɝ ɭɥɚɡɚ ɭɱɢɬɚ ɞɭɠɢɧɭ N (N<200) ɢ ɟɥɟɦɟɧɬɟ ɧɢɡɨɜɚ, ɡɚɬɢɦ ɮɨɪɦɢɪɚ ɢ
ɢɫɩɢɲɟ ɪɟɡɭɥɬɭʁɭʄɢ ɧɢɡ. ɍɱɢɬɚɜɚʃɟ ɧɢɡɚ, ɨɛɪɚɞɭ ɢ ɢɫɩɢɫ ɪɟɡɭɥɬɚɬɚ ɪɟɚɥɢɡɨɜɚɬɢ ɤɚɨ
ɡɚɫɟɛɧɟ ɩɨɬɩɪɨɝɪɚɦɟ ɤɨʁɢ ɫɚ ɝɥɚɜɧɢɦ ɩɪɨɝɪɚɦɨɦ ɤɨɦɭɧɢɰɢɪɚʁɭ ɢɫɤʂɭɱɢɜɨ ɩɭɬɟɦ ɚɪɝɭɦɟɧɚɬɚ
ɢ ɩɨɜɪɚɬɧɢɯ ɜɪɟɞɧɨɫɬɢ. ɉɪɨɝɪɚɦ ɬɪɟɛɚ ɞɚ ɩɨɧɚɜʂɚ ɨɩɢɫɚɧɢ ɩɨɫɬɭɩɚɤ ɫɜɟ ɞɨɤ ɫɟ ɡɚ ɞɭɠɢɧɭ
ɧɢɡɨɜɚ ɧɟ ɭɧɟɫɟ ɧɟɤɨɪɟɤɬɧɚ ɜɪɟɞɧɨɫɬ.
}
PROGRAM zad1_1_9_2011(input,output);
CONST MAX_DUZ = 199;
TYPE niz = array [1..MAX_DUZ] of integer;
{ucitavanje niza nepoznate duzine}
FUNCTION ucitaj(VAR a:niz; VAR n:integer):boolean;
VAR i: integer;
BEGIN
writeln('Unesite duzinu niza: ');
readln(n);
IF (n>0) AND (n<=MAX_DUZ) THEN BEGIN
writeln('Unesite niz: ');
FOR i:= 1 TO n DO
read(a[i]);
ucitaj:=true;
END
ELSE ucitaj:=false;
END;
{ispis niza duzine n}
PROCEDURE ispisi(a:niz; n:integer);
VAR i:integer;
BEGIN
FOR i:= 1 TO n DO
write(a[i], ' ');
writeln(); {prelazak u novi red na kraju ispisa svih elemenata}
END;
PROCEDURE obrada(a,b:niz; VAR c:niz; n:integer);
VAR i: integer;
BEGIN
FOR i:= 1 TO n DO BEGIN
IF a[i] > b[i] THEN c[i]:= a[i]
ELSE c[i]:= b[i];
END;
END;
{glavni program}
VAR a,b,c:niz;
na,nb:integer;
BEGIN
WHILE ucitaj(a,na) AND ucitaj(b,nb) AND (na = nb) DO BEGIN
{nizovi moraju biti ucitani i jadnaki pa se program dotle ponavlja}
obrada(a,b,c,na); {moglo je i nb}
writeln('Rezultujuci niz');
ispisi(c,na); {niz c je takodje duzine na=nb}
END;
END.
-1-
C:\Users\Igor\Desktop\Grupno spremanje - novo (feb 2014)\Zadaci\Kodovi\Nizovi\zadatak1-2.pas
31. ʁɚɧɭɚɪ 2014 10:06
{ *ɋɟɩɬɟɦɛɚɪ 2011. (1. ɡɚɞɚɬɚɤ)*
ɇɚɩɢɫɚɬɢ ɩɪɨɝɪɚɦ ɧɚ ɩɪɨɝɪɚɦɫɤɨɦ ʁɟɡɢɤɭ ɉɚɫɤɚɥ ɤɨʁɢ ɨɞ ɞɜɚ ɧɢɡɚ ɰɟɥɢɯ ɛɪɨʁɟɜɚ ʁɟɞɧɚɤɟ
ɞɭɠɢɧɟ ɮɨɪɦɢɪɚ ɬɪɟʄɢ ɧɢɡ ɬɚɤɨ ɞɚ ɛɭɞɟ ɡɚɞɨɜɨʂɟɧ ɭɫɥɨɜ c[i]=max(a[i],b[i]). ɉɪɨɝɪɚɦ
ɬɪɟɛɚ ɞɚ ɫɚ ɝɥɚɜɧɨɝ ɭɥɚɡɚ ɭɱɢɬɚ ɞɭɠɢɧɭ N (N<200) ɢ ɟɥɟɦɟɧɬɟ ɧɢɡɨɜɚ, ɡɚɬɢɦ ɮɨɪɦɢɪɚ ɢ
ɢɫɩɢɲɟ ɪɟɡɭɥɬɭʁɭʄɢ ɧɢɡ. ɍɱɢɬɚɜɚʃɟ ɧɢɡɚ, ɨɛɪɚɞɭ ɢ ɢɫɩɢɫ ɪɟɡɭɥɬɚɬɚ ɪɟɚɥɢɡɨɜɚɬɢ ɤɚɨ
ɡɚɫɟɛɧɟ ɩɨɬɩɪɨɝɪɚɦɟ ɤɨʁɢ ɫɚ ɝɥɚɜɧɢɦ ɩɪɨɝɪɚɦɨɦ ɤɨɦɭɧɢɰɢɪɚʁɭ ɢɫɤʂɭɱɢɜɨ ɩɭɬɟɦ ɚɪɝɭɦɟɧɚɬɚ
ɢ ɩɨɜɪɚɬɧɢɯ ɜɪɟɞɧɨɫɬɢ. ɉɪɨɝɪɚɦ ɬɪɟɛɚ ɞɚ ɩɨɧɚɜʂɚ ɨɩɢɫɚɧɢ ɩɨɫɬɭɩɚɤ ɫɜɟ ɞɨɤ ɫɟ ɡɚ ɞɭɠɢɧɭ
ɧɢɡɨɜɚ ɧɟ ɭɧɟɫɟ ɧɟɤɨɪɟɤɬɧɚ ɜɪɟɞɧɨɫɬ.
}
PROGRAM zad1_1_9_2011_ver2(input,output);
CONST MAX_DUZ = 199;
TYPE niz = array [1..MAX_DUZ] of integer;
{ucitavanje niza poznate duzine}
PROCEDURE ucitaj(VAR a:niz; n:integer);
VAR i: integer;
BEGIN
writeln('Unesite niz: ');
FOR i:= 1 TO n DO
read(a[i]);
END;
{ispis niza duzine n}
PROCEDURE ispisi(a:niz; n:integer);
VAR i:integer;
BEGIN
writeln('Niz: ');
FOR i:= 1 TO n DO
write(a[i], ' ');
writeln();
END;
PROCEDURE obrada(a,b:niz; VAR c:niz; n:integer);
VAR i: integer;
BEGIN
FOR i:= 1 TO n DO BEGIN
IF a[i] > b[i] THEN c[i]:= a[i]
ELSE c[i]:= b[i];
END;
END;
{glavni program}
VAR a,b,c:niz;
n:integer;
BEGIN
writeln('Unesite duzinu nizova: ');
readln(n);
WHILE (n>0) AND (n<MAX_DUZ) DO BEGIN
ucitaj(a,n); ucitaj(b,n);
obrada(a,b,c,n);
ispisi(c,n);
{duzina za sledeci prolazak}
writeln('Unesite duzinu nizova: ');
readln(n);
END;
END.
1
-1-
C:\Users\Igor\Desktop\Grupno spremanje - novo (feb 2014)\Zadaci\Kodovi\Nizovi\zadatak2.pas
31. ʁɚɧɭɚɪ 2014 10:08
{ *ȳɚɧɭɚɪ 2012. (1. ɡɚɞɚɬɚɤ)*
ɇɚɩɢɫɚɬɢ ɩɪɨɝɪɚɦ ɧɚ ɩɪɨɝɪɚɦɫɤɨɦ ʁɟɡɢɤɭ ɉɚɫɤɚɥ ɤɨʁɢ ɜɪɲɢ ɫɩɚʁɚʃɟ ɞɜɚ ɧɟɨɩɚɞɚʁɭʄɟ ɭɪɟɻɟɧɚ
ɧɢɡɚ ɰɟɥɢɯ ɛɪɨʁɟɜɚ. ɉɪɨɝɪɚɦ ɧɚʁɩɪɟ ɬɪɟɛɚ ɞɚ ɭɱɢɬɚ ɧɢɡɨɜɟ, ɩɪɨɜɟɪɢ ɞɚ ɥɢ ɫɭ ɧɢɡɨɜɢ
ɭɪɟɻɟɧɢ ɧɟɨɩɚɞɚʁɭʄɟ, ɚ ɡɚɬɢɦ ɫɩɚʁɚʃɟɦ ɩɨɱɟɬɧɢɯ ɧɢɡɨɜɚ ɮɨɪɦɢɪɚ ɢ ɢɫɩɢɲɟ ɬɪɟʄɢ ɧɢɡ ɤɨʁɢ
ʁɟ ɭɪɟɻɟɧ ɧɚ ɢɫɬɢ ɧɚɱɢɧ ɤɚɨ ɩɨɱɟɬɧɢ ɧɢɡɨɜɢ. ɉɨɱɟɬɧɢ ɧɢɡɨɜɢ ɦɨɝɭ ɛɢɬɢ ɪɚɡɥɢɱɢɬɟ ɞɭɠɢɧɟ
(ɧɚʁɜɢɲɟ 100 ɟɥɟɦɟɧɚɬɚ). ɍɤɨɥɢɤɨ ɧɢɡɨɜɢ ɧɢɫɭ ɭɪɟɻɟɧɢ ɧɟɨɩɚɞɚʁɭʄɟ ɢɫɩɢɫɚɬɢ ɨɞɝɨɜɚɪɚʁɭʄɭ
ɩɨɪɭɤɭ ɢ ɡɚɬɪɚɠɢɬɢ ɩɨɧɨɜɧɨ ɭɱɢɬɚɜɚʃɟ ɩɨɱɟɬɧɢɯ ɧɢɡɨɜɚ. ɍɱɢɬɚɜɚʃɟ, ɩɪɨɜɟɪɭ ɭɪɟɻɟɧɨɫɬɢ ɢ
ɫɩɚʁɚʃɟ ɧɢɡɨɜɚ ɪɟɚɥɢɡɨɜɚɬɢ ɤɚɨ ɡɚɫɟɛɧɟ ɩɨɬɩɪɨɝɪɚɦɟ ɤɨʁɢ ɫɚ ɝɥɚɜɧɢɦ ɩɪɨɝɪɚɦɨɦ ɤɨɦɭɧɢɰɢɪɚʁɭ
ɢɫɤʂɭɱɢɜɨ ɩɭɬɟɦ ɫɜɨʁɢɯ ɚɪɝɭɦɟɧɚɬɚ ɢ ɩɨɜɪɚɬɧɟ ɜɪɟɞɧɨɫɬɢ. ɉɪɨɝɪɚɦ ɬɪɟɛɚ ɞɚ ɩɨɧɚɜʂɚ
ɩɪɟɬɯɨɞɧɟ ɤɨɪɚɤɟ ɫɜɟ ɞɨɤ ɫɟ ɡɚ ɞɭɠɢɧɭ ɧɢɡɨɜɚ ɧɟ ɭɧɟɫɟ ɧɟɤɨɪɟɤɬɧɚ ɜɪɟɞɧɨɫɬ.
}
PROGRAM zad1_18_1_2012(input,output);
CONST MAX_DUZ = 100;
TYPE niz100 = array [1..MAX_DUZ] of integer;
niz200 = array [1..MAX_DUZ*2] of integer;
FUNCTION ucitaj(VAR a:niz100; VAR n:integer):boolean;
VAR i: integer;
BEGIN
writeln('Unesite duzinu niza: ');
readln(n);
IF (n>0) AND (n<=MAX_DUZ) THEN BEGIN
writeln('Unesite niz: ');
FOR i:= 1 TO n DO
read(a[i]);
ucitaj:=true;
END
ELSE ucitaj:=false;
END;
FUNCTION daLiJeNeopadajuci(a:niz100; n:integer):boolean;
VAR i: integer;
BEGIN
daLiJeNeopadajuci:= true;
{uporedjujemo parove}
FOR i:= 1 TO n-1 DO
IF (a[i+1] < a[i]) THEN
daLiJeNeopadajuci:= false;
END;
PROCEDURE ispisi(a:niz200; n:integer);
VAR i:integer;
BEGIN
FOR i:= 1 TO n DO
write(a[i], ' ');
writeln();
END;
C:\Users\Igor\Desktop\Grupno spremanje - novo (feb 2014)\Zadaci\Kodovi\Nizovi\zadatak2.pas
31. ʁɚɧɭɚɪ 2014 10:08
PROCEDURE spoji(a:niz100; na:integer; b:niz100; nb:integer; VAR c:niz200; VAR nc:integer);
VAR i,j,k:integer;
BEGIN
i:= 1; j:= 1; k:= 1;
WHILE (i<=na) AND (j<=nb) DO BEGIN
IF (a[i] < b[j]) THEN BEGIN
c[k]:= a[i];
i:= i+1;
END
ELSE BEGIN
c[k]:= b[j];
j:= j+1;
END;
k:= k+1;
END;
{prepisujemo onaj niz koji je preostao}
WHILE (i<=na) DO BEGIN
c[k]:= a[i];
i:= i+1; k:= k+1;
END;
WHILE (j<=nb) DO BEGIN
c[k]:= b[j];
j:= j+1; k:= k+1;
END;
nc:= na+nb;
END;
VAR a,b:niz100;
c:niz200;
na,nb,nc:integer;
uspelo1,uspelo2:boolean;
BEGIN
REPEAT
uspelo1:= ucitaj(a,na);
WHILE uspelo1 AND NOT daLiJeNeopadajuci(a,na) DO BEGIN
writeln('Niz mora biti neopadajuci!');
uspelo1:= ucitaj(a,na);
END;
uspelo2:= ucitaj(b,nb);
WHILE uspelo2 AND NOT daLiJeNeopadajuci(b,nb) DO BEGIN
writeln('Niz mora biti neopadajuci!');
uspelo2:= ucitaj(b,nb);
END;
IF uspelo1 AND uspelo2 THEN
BEGIN
spoji(a,na,b,nb,c,nc);
ispisi(c,nc);
END;
UNTIL NOT(uspelo1 AND uspelo2);
END.
2
-1-
-2-
C:\Users\Igor\Desktop\Grupno spremanje - novo (feb 2014)\Zadaci\Kodovi\Liste\zadatak1.pas
31. ʁɚɧɭɚɪ 2014 10:14
{ *Ⱥɩɪɢɥ 2006. (2. ɡɚɞɚɬɚɤ)*
ɇɚɩɢɫɚɬɢ ɩɪɨɝɪɚɦ ɤɨʁɢ ɪɚɞɢ ɫɚ ʁɟɞɧɨɫɬɪɭɤɨ ɭɥɚɧɱɚɧɨɦ ɥɢɫɬɨɦ ɪɟɚɥɧɢɯ ɛɪɨʁɟɜɚ. ɋɚ ɫɬɚɧɞɚɪɞɧɨɝ
ɭɥɚɡɚ ɫɟ ɩɪɜɨ ɱɢɬɚʁɭ ɛɪɨʁɟɜɢ ɢɡ ʁɟɞɧɨɝ ɪɟɞɚ ɢ ɫɦɟɲɬɚʁɭ ɧɚ ɤɪɚʁ ɥɢɫɬɟ. Ɂɚɬɢɦ ɫɟ ɜɪɲɢ ɢɫɩɢɫ
ɨɧɢɯ ɛɪɨʁɟɜɚ ɢɡ ɥɢɫɬɟ ɱɢʁɢ ʁɟ ɬɪɟʄɢ ɫɬɟɩɟɧ ɜɟʄɢ ɨɞ 904.06, ɪɟɞɨɦ ɤɨʁɢɦ ɫɭ ɭɱɢɬɚɜɚɧɢ (ɫɜɚɤɢ
ɛɪɨʁ ɭ ɩɨɫɟɛɧɨɦ ɪɟɞɭ). ɉɨ ɡɚɜɪɲɟɧɨɦ ɢɫɩɢɫɭ, ɨɫɥɨɛɨɞɢɬɢ ɤɨɪɢɲʄɟɧɭ ɞɢɧɚɦɢɱɤɭ ɦɟɦɨɪɢʁɭ.
ɉɪɨɝɪɚɦ ɪɟɚɥɢɡɨɜɚɬɢ ɤɚɨ ɝɥɚɜɧɢ ɩɪɨɝɪɚɦ ɤɨʁɢ ɩɨɡɢɜɚ ɬɪɢ ɩɨɬɩɪɨɝɪɚɦɚ (ɭɱɢɬɚɜɚʃɟ, ɢɫɩɢɫ ɢ
ɛɪɢɫɚʃɟ ɥɢɫɬɟ).
}
PROGRAM zad2_9_4_2006;
CONST GRANICA = 904.06;
TYPE pelem = ^elem;
elem = RECORD
info: real;
sled: pelem;
END;
{dodavanje jednog elementa na kraj neke ulancane liste}
PROCEDURE dodaj(VAR lista:pelem; broj:real);
VAR novi,tek:pelem;
BEGIN
new(novi);
novi^.info:= broj;
novi^.sled:= NIL;
IF lista = NIL THEN
lista:= novi
ELSE BEGIN
tek:= lista;
WHILE tek^.sled <> NIL DO
tek:= tek^.sled;
tek^.sled:= novi;
END;
END;
C:\Users\Igor\Desktop\Grupno spremanje - novo (feb 2014)\Zadaci\Kodovi\Liste\zadatak1.pas
31. ʁɚɧɭɚɪ 2014 10:14
PROCEDURE obrada(lista:pelem);
VAR tek:pelem;
BEGIN
tek:= lista;
WHILE tek <> NIL DO BEGIN
IF (tek^.info * tek^.info * tek^.info) > GRANICA THEN
writeln(tek^.info);
tek:= tek^.sled;
END;
END;
VAR lista:pelem;
BEGIN
lista:= NIL;
ucitaj(lista);
obrada(lista);
obrisi(lista);
END.
{ucitava listu uz pomoc procedure za dodavanje jednog elementa}
PROCEDURE ucitaj(VAR lista:pelem);
VAR broj:real;
BEGIN
{radimo ucitavanje i dodavanje dokle god u redu imamo brojeve
koji su neprocitani (dok ne dodjemo do kraja reda)}
WHILE NOT eoln(input) DO BEGIN
read(broj);
dodaj(lista,broj);
END;
END;
PROCEDURE obrisi(VAR lista:pelem);
VAR stari,tek:pelem;
BEGIN
tek:=lista;
WHILE tek <> NIL DO BEGIN
stari:= tek;
tek:= tek^.sled;
dispose(stari);
END;
lista:= NIL;
END;
3
-1-
-2-
C:\Users\Igor\Desktop\Grupno spremanje - novo (feb 2014)\Zadaci\Kodovi\Liste\zadatak2.pas
31. ʁɚɧɭɚɪ 2014 10:16
{ *ȳɚɧɭɚɪ 2006. (1. ɡɚɞɚɬɚɤ)*
ȿɥɟɦɟɧɬ ʁɟɞɧɨɫɬɪɭɤɨ ɭɥɚɧɱɚɧɟ ɥɢɫɬɟ, ɨɫɢɦ ɩɨɤɚɡɢɜɚɱɚ ɧɚ ɫɥɟɞɟʄɢ ɟɥɟɦɟɧɬ ɭ ɥɢɫɬɢ, ɫɚɞɪɠɢ ɢ
ʁɟɞɚɧ ɰɟɥɨɛɪɨʁɧɢ ɩɨɞɚɬɚɤ. ɇɚɩɢɫɚɬɢ ɩɨɬɩɪɨɝɪɚɦ ɧɚ ɩɪɨɝɪɚɦɫɤɨɦ ʁɟɡɢɤɭ ɉɚɫɤɚɥ ɤɨʁɢɦ ɫɟ ɜɪɲɢ
ɭɦɟɬɚʃɟ ɟɥɟɦɟɧɬɚ ɭ ɥɢɫɬɭ, ɬɚɤɨ ɞɚ ɨɧɚ ɛɭɞɟ ɭɪɟɻɟɧɚ ɩɨ ɧɟɨɩɚɞɚʁɭʄɟɦ ɪɟɞɨɫɥɟɞɭ ɭ ɨɞɧɨɫɭ ɧɚ
ɜɪɟɞɧɨɫɬ ɰɟɥɨɛɪɨʁɧɨɝ ɩɨɞɚɬɤɚ. ɇɚɩɢɫɚɬɢ ɝɥɚɜɧɢ ɩɪɨɝɪɚɦ ɧɚ ɩɪɨɝɪɚɦɫɤɨɦ ʁɟɡɢɤɭ ɉɚɫɤɚɥ ɤɨʁɢ
ɫɚ ɫɬɚɧɞɚɪɞɧɨɝ ɭɥɚɡɚ ɱɢɬɚ ɰɟɥɟ ɛɪɨʁɟɜɟ ɢ ɭɦɟʄɟ ɢɯ ɭ ɥɢɫɬɭ ɩɨɡɢɜɨɦ ɩɨɬɩɪɨɝɪɚɦɚ ɫɜɟ ɞɨɤ ɧɟ
ɞɨɻɟ ɞɨ ɤɪɚʁɚ ɪɟɞɚ, ɚ ɡɚɬɢɦ ɧɚ ɫɬɚɧɞɚɪɞɧɨɦ ɢɡɥɚɡɭ ɢɫɩɢɫɭʁɟ ɫɚɞɪɠɚʁ ɥɢɫɬɟ. ȼɨɞɢɬɢ ɪɚɱɭɧɚ
ɨ ɩɪɚɜɢɥɧɨɦ ɨɫɥɨɛɚɻɚʃɭ ɞɢɧɚɦɢɱɤɢ ɚɥɨɰɢɪɚɧɟ ɦɟɦɨɪɢʁɟ ɧɚ ɤɪɚʁɭ ɩɪɨɝɪɚɦɚ.
}
PROGRAM zad1_1_2_2006;
TYPE pelem = ^elem;
elem = RECORD
info: integer;
sled: pelem;
END;
PROCEDURE dodaj(VAR lista:pelem; broj:integer);
VAR novi,tek,pret:pelem;
BEGIN
{trazimo gde da umetnemo novi element}
tek:= lista; pret:=nil;
WHILE (tek <> NIL) AND (broj < tek^.info) DO BEGIN
pret:= tek;
tek:= tek^.sled; {krecemo se kroz listu dokle god je broj
koji dodajemo manji od tekuceg elementa
liste, dok ne nadjemo prvi veci element}
END;
{pravimo novi element}
new(novi);
novi^.info:= broj;
novi^.sled:= tek; {dodajemo ispred tekuceg, dakle on je
sledbenik novog elementa}
IF tek = lista THEN {ako dodajemo ispred prvog}
lista:= novi
ELSE
pret^.sled:= novi;
END;
C:\Users\Igor\Desktop\Grupno spremanje - novo (feb 2014)\Zadaci\Kodovi\Liste\zadatak2.pas
31. ʁɚɧɭɚɪ 2014 10:16
PROCEDURE obrisi(VAR lista:pelem);
VAR stari,tek:pelem;
BEGIN
tek:=lista;
WHILE tek <> NIL DO BEGIN
stari:= tek;
tek:= tek^.sled;
dispose(stari);
END;
lista:= NIL;
END;
VAR lista:pelem;
broj:integer;
BEGIN
lista:= NIL;
WHILE NOT eoln(input) DO BEGIN
read(broj);
dodaj(lista,broj);
END;
ispisi(lista); {ovo smo vec pisali ranije}
obrisi(lista); {i ovo vec ima napisano}
END.
PROCEDURE ispisi(lista:pelem);
VAR tek:pelem;
BEGIN
tek:= lista;
WHILE tek<>NIL DO BEGIN
writeln(tek^.info);
tek:= tek^.sled;
END;
END;
4
-1-
-2-
C:\Users\Igor\Desktop\Grupno spremanje - novo (feb 2014)\Zadaci\Kodovi\Liste\zadatak3.pas
31. ʁɚɧɭɚɪ 2014 10:17
{
ɇɚɩɢɫɚɬɢ ɮɭɧɤɰɢʁɭ ɧɚ ɩɪɨɝɪɚɦɫɤɨɦ ʁɟɡɢɤɭ ɉɚɫɤɚɥ, ɱɢʁɢ ʁɟ ɚɪɝɭɦɟɧɬ ɩɨɤɚɡɢɜɚɱ ɧɚ ɩɨɱɟɬɚɤ
ɜɟʄ ɮɨɪɦɢɪɚɧɟ ʁɟɞɧɨɫɬɪɭɤɨ ɭɥɚɧɱɚɧɟ ɥɢɫɬɟ ɰɟɥɢɯ ɛɪɨʁɟɜɚ. Ɏɭɧɤɰɢʁɚ ɬɪɟɛɚ ɞɚ ɜɪɚɬɢ ɪɚɡɥɢɤɭ
ɦɚɤɫɢɦɚɥɧɨɝ ɢ ɦɢɧɢɦɚɥɧɨɝ ɟɥɟɦɟɧɬɚ ɥɢɫɬɟ, ɚ ɚɤɨ ʁɟ ɥɢɫɬɚ ɩɪɚɡɧɚ, ɮɭɧɤɰɢʁɚ ɬɪɟɛɚ ɞɚ ɜɪɚɬɢ
ɧɭɥɭ. ɇɚɩɢɫɚɬɢ ɝɥɚɜɧɢ ɩɪɨɝɪɚɦ ɤɨʁɢ ɩɨɡɢɜɚ ɨɜɭ ɮɭɧɤɰɢʁɭ ɡɚ ɩɪɚɡɧɭ ɥɢɫɬɭ ɢ ɢɫɩɢɫɭʁɟ
ɪɟɡɭɥɬɚɬ ɧɚ ɫɬɚɧɞɚɪɞɧɨɦ ɢɡɥɚɡɭ.
}
PROGRAM zad2_14_2_2009;
TYPE pelem = ^elem;
elem = RECORD
info: integer;
sled: pelem;
END;
FUNCTION razlika(lista:pelem):integer;
VAR min, max: integer;
BEGIN
IF lista <> NIL THEN {ako lista nije prazna}
BEGIN
{prvi element prograsavamo minimalnim i maksimalnim}
min:= lista^.info;
max:= lista^.info;
{trazimo elemente koji su veci od max i manji od min}
tek:= lista;
WHILE tek <> NIL DO BEGIN
IF tek^.info > max THEN
max:= tek^.info;
IF tek^.info < min THEN
min:= tek^.info;
tek:= tek^.sled;
END;
razlika:= max-min;
END
ELSE {ako je prazna}
razlika:=0;
END;
VAR lista:pelem;
BEGIN
lista:= NIL; {lista je prazna}
writeln( razlika(lista) );
END.
5
-1-
!"
#$$!% !&
' !" ( ! )
!*
+(
!
E"</;F/&</<&&G)2""2".
2""2"-
5!+1(!
!+?;,,<&&
=
()2"*2",-*.
!)2".
()"2"*"2",-*.
rewrite)"2".
3>2++?)2".+5(
UHG >@
3>2++2)2".+5(
%
!)2"5!+1.
)5!+1!.A
3!)"2"5!+1.
!!D>5!+1@
$
!2)2".
%
3!2)"2".
02+)2".
02+)"2".
)!"-
'
.!/
0$
12123.$!
'
4
! ' +3 .$!&
'!
'
!"
''5
6
E";/H/F/<&&%) + .
!"!($I&'
0+2(10>!
+0%,,;&
4 !+0!"011!0+ (+!:
@
010)
!0#.
0A
=
!0**
!)GDW0.
3>2)0BC**.+5(
!0!0D0
!)GDW0.
-
+ +2+"2(!
"J+
=
() * ,-*.
!) .
4 +J21+5+10&:
+&
+2+"2&
&
6
3>2++?)LVSLW.+5(
010) , !".
010) ,.
!2) ,0+2(1,+0.
+ +D;
?,+0C%> +2+"2 +2+"2D;
?,+0;&>D;
3!2)*#*.
3!2)*KKKKKKKKKKKKKKKKKKKKK*.
3!2)*@ +* +.
3!2)*+2+"+2* +2+"2** +2+"2L +*M*.
3!2)****L +*M*.
3!2)*KKKKKKKKKKKKKKKKKKKKK*.
02+) .
&!"
!/
-( #33! !"
+
-
--
! & ' ( ( ( !7
+(!
E";/G/N/<&;;)552+"+ .
1(
?!5!+1O+ 1(!
2+J!($<%%'
2P2
2
1(
2 2
@
01)-2 2.
1(
+J +2 2
=
QA
+?).=
!2),?!,5!+1O+ 1,2+J.
3)+J.
+JP,
+JP,2
2A
2+J
#
+2P,2+J
+2+J
@
+5!)2 2.
! 2
=
2
QA
BC=
!
P,2
+)!.
2
,
7
@
"1)2 2?!O1((!.
2
=
2
QA
BC=
P,,?!?!O1(A
P,,5!+1O+ 1C&A
P,,5!+1O+ 1P,,5!+1O+ 1R;
+5!)1(.
02+)552+.
02+)"+.
,
P,2
@
")2 2.
2
=
2
QA
BC=
P,,5!+1O+ 1&A
3!2)+ P,,"J.
P,2
1( 2
552+"-
?!O1((!
=
()552+*552+,-*.
!)552+.
()"+*"+,-*.
!)"+.
1(
01)552+1(.
QA
+?)"+.=
!2)"+?!O1(.
&
&
"1)1(?!O1(.
4 1+1(++1>11+"!!1&:
")1(.
8
&
'4
! !" -
8 !" .$!
'
-
!" + ! 4!#$$98$.:.;;!
#$$68$.3:''
#$$58$.35
#$$98$.39<<
#$5#
#.:=
#$$68$.3:''#$5
#$$58$.35#$5
#$$98$.39<<#.:
E";/G/</<&;;)2! +!.
+/
!($G'
!"!($F&'
+/2
?!!($;&'
(!
@
010)
!0#.
0A
=
!0**
!)GDW0.
3>2)0BC**.+5(
!0!0D0
!)GDW0.
2! +!-
+/
2 +/2
=
()*,-*.
!).
()2*2,-*.
!)2.
()! +!*! +!,-*.
!3!)! +!.
QA
+?)2.=
010)22,?!.
!2)22,.
QA
)2,C&.)+?)..=
!),.
010),.
!2), !".
3!2)! +!,,
, !"2,?!.
VDODPHVWD VDODPHVWD
QA
+?).=
!),.
010),.
!2), !".
3!2)! +!,,
, !"*! +!1*.
02+).
02+)2.
02+)! +!.
,
9
Download

Rezime zadataka sa grupnog spremanja (kodovi).pdf