#3 Niz elemenata prosek suma funkc procedure

program funkcije_nizovi;
uses crt;
var
  jaja:array[1..5] of integer;

  procedure niz_unos(max_dan:integer);
   var
    i:integer;
   begin
    writeln('Molim vas unestie jaja');
     for i:=1 to max_dan do
 begin
  write('jaja[',i,']=');
  readln(jaja[i]);
 end;
   end;

   procedure niz_ispis(max_dan:integer);
   var
    i:integer;
   begin
    writeln('Ispis svih elemenata niza');
     for i:=1 to max_dan do
 begin
  writeln('jaja[',i,']=',jaja[i]);
 end;
   end;

   function niz_suma(max_dan:integer):integer;
   var
    i:integer;
   begin
    niz_suma:=0;
     for i:=1 to max_dan do
 begin
  niz_suma:=niz_suma+jaja[i];
 end;

   end;

   function niz_prosek(max_dan:integer):real;
    begin
niz_prosek:=niz_suma(5)/5;
    end;

// dovde funkcije za dva ostalo za vece ocene
  // najmanji element niza
function niz_najmanji(max_dan:integer):integer;
   var
    i:integer;
   begin
    niz_najmanji:=jaja[1];
     for i:=1 to max_dan do
 begin
 if niz_najmanji>jaja[i] then niz_najmanji:=jaja[i];
 end;
   end;

  function niz_najveci(max_dan:integer):integer;
   var
    i:integer;
   begin
    niz_najveci:=jaja[1];
     for i:=1 to max_dan do
 begin
 if niz_najveci<jaja[i] then niz_najveci:=jaja[i];
 end;
   end;

   function niz_rastuci(max_dan:integer):integer;
   var
    korpica,i,j:integer;
   begin
     for i:=1 to max_dan-1 do
 begin
  for j:=i+1 to max_dan do
   begin
 if jaja[i]>jaja[j] then
               begin
korpica:=jaja[i];
jaja[i]:=jaja[j];
jaja[j]:=korpica;
               end;
end;

 end;
   end;


  function niz_opadajuci(max_dan:integer):integer;
   var
    korpica,i,j:integer;
   begin
     for i:=1 to max_dan-1 do
 begin
  for j:=i+1 to max_dan do
   begin
 if jaja[i]<jaja[j] then
               begin
korpica:=jaja[i];
jaja[i]:=jaja[j];
jaja[j]:=korpica;
               end;
end;

 end;
   end;

   // glavni program
   begin
   clrscr();
    // unos jajaj u niz
niz_unos(5);

   writeln('suma=', niz_suma(5));
   writeln('prosek=',niz_prosek(5):6:2);

   // dovde za 2
   writeln('najmanji el. niza=',niz_najmanji(5));
   writeln('najveci el. niza=',niz_najveci(5));
   // dovde za 3,4


   // ostalo za 5
    writeln('Ispis rastuceg niza');
niz_rastuci(5);
 niz_ispis(5);
writeln('Ispis opadajuceg niza');
niz_opadajuci(5);
niz_ispis(5);


readln();


  end.

#3 Funkcije i procedure u paskalu basic

program funkcije;
uses crt;
var
  j:integer;
 procedure stampaj_ime;
  var
   i:integer;
 begin
    for i:=1 to 10 do
begin
 writeln('perica');
end;
  end;

procedure stampaj_ime2(ime:string);
  var
   i:integer;
 begin
    for i:=1 to 10 do
begin
 writeln(ime);
end;
  end;

  function saberi(br1:integer;br2:integer):integer;
    begin
 saberi:=br1+br2;
end;
 begin
 clrscr();
  stampaj_ime2('jovica');
  stampaj_ime2('djurica');
  writeln(saberi(2,3));
 readln();
 end.

#4 Sortiranje niza po rastucem i opadajucem redosledu

program niz_mani_veci;

 uses crt;

  var
     ocene:Array[1..5] of integer;
i,j:integer;

najmanji, najveci, suma:integer;

prosek:real;
korpica:integer;

  begin
  clrscr();

   // uneti ocene u niz
   writeln('molim vas unesite ocene u niz');

   for i:=1 to 5 do
    begin
write('ocena[',i,']=');
readln(ocene[i]);
// izracunati sumu
suma:=suma+ocene[i];
end;
// izracunati prosek
   prosek:=suma/5;

 
   // pronaci najmanjeg
   najmanji:=ocene[1];
     for i:=2 to 5 do
  begin
   if (najmanji>ocene[i]) then
 begin
  najmanji:=ocene[i];
 end;
  end;
   // pronaci najveceg
   najveci:=ocene[1];
     for i:=2 to 5 do
  begin
   if (najveci<ocene[i])  then
 begin
  najveci:=ocene[i];
 end;
  end;

// ******************************************  Sortiranje sa ispisima    *********************************  
// sortiranje niza u rastucem redosledu
for i:=1 to 4 do
  begin
    for j:=i+1 to 5 do
begin
         if (ocene[i]>ocene[j]) then
  begin
   korpica:=ocene[i];
ocene[i]:=ocene[j];
ocene[j]:=korpica;
  end;
end;
  end;
// ispis svih elemenata
   writeln('ispis svih elemenata rastuceg niza ocena');
   for i:=1 to 5 do
    begin
writeln('ocena[',i,']=',ocene[i]);
end;


//sortiranje niza u opadajucem redosledu
for i:=1 to 4 do
  begin
    for j:=i+1 to 5 do
begin
         if (ocene[i]<ocene[j]) then
  begin
   korpica:=ocene[i];
ocene[i]:=ocene[j];
ocene[j]:=korpica;
  end;
end;
  end;
// ispis svih elemenata
   writeln('ispis svih elemenata opadajuceg niza ocena');
   for i:=1 to 5 do
    begin
writeln('ocena[',i,']=',ocene[i]);
end;

// ****************************************** END  Sortiranje sa ispisima    *********************************
   // ispis svih rezultata
   writeln('suma=',suma);
   writeln('prosek=',prosek:6:2);
   writeln('najmanji=',najmanji);
   writeln('najveci=',najveci);
  readln();
  end.

3# Niz najmanji, njaveci element, suma prosek

program niz_mani_veci;

 uses crt;

  var
     ocene:Array[1..5] of integer;
i,j:integer;

najmanji, najveci, suma:integer;

prosek:real;


  begin
  clrscr();

   // uneti ocene u niz
   writeln('molim vas unesite ocene u niz');

   for i:=1 to 5 do
    begin
write('ocena[',i,']=');
readln(ocene[i]);
// izracunati sumu
suma:=suma+ocene[i];
end;
// izracunati prosek
   prosek:=suma/5;

   // ispis svih elemenata
   writeln('ispis svih elemenata niza ocena');
   for i:=1 to 5 do
    begin
writeln('ocena[',i,']=',ocene[i]);
end;
   // pronaci najmanjeg
   najmanji:=ocene[1];
     for i:=2 to 5 do
  begin
   if (najmanji>ocene[i]) then
 begin
  najmanji:=ocene[i];
 end;
  end;
   // pronaci najveceg
   najveci:=ocene[1];
     for i:=2 to 5 do
  begin
   if (najveci<ocene[i])  then
 begin
  najveci:=ocene[i];
 end;
  end;
   // ispis svih rezultata
   writeln('suma=',suma);
   writeln('prosek=',prosek:6:2);
   writeln('najmanji=',najmanji);
   writeln('najveci=',najveci);
  readln();
  end.

2# Operatori u paskalu

program funkcije_paskala;

 uses crt;

 begin
 clrscr();
 //funkcije za rad sa tekstom
  writeln('####### Program prikazuje neke od osnovnih funkcija u PASCALU ######');

  writeln('1. Funkcija Chr(broj)');
  writeln(' za uneti broj vraca ASCII znak Chr(65)=A');
  writeln(chr(65));  //primer

  writeln('2. Funkcija ORD(''znak'')');
  writeln(' za uneti ASCII znak vraca broj ORD(''A'')=65');
  writeln(ord('A'));  //primer

  writeln('3. Funkcija SUCC(''B'')=C');
  writeln(' za uneti ASCII znak vraca sledeci');
  writeln(SUCC('B'));  //primer

  writeln('4. Funkcija PRED(''B'')=A');
  writeln(' za uneti ASCII znak vraca prethodni');
  writeln(PRED('B'));  //primer

  //Funkcije za rad sa brojevima
  writeln('******* Funcije koje rade sa brojevima ******************');

  writeln('1. Funkcija ABS(-21)=21');
  writeln('Absolutna vrednost  broja');
  writeln(abs(21));  //primer



  readln;


 end.

2# Operatori u Paskalu

program paskal_operatori;

 uses crt;

 begin
 clrscr();
  writeln('************************ OPERATORI U PASKALU  ******************');
  writeln('****************************************************************');
  writeln();
  writeln('******* Aritmeticki operatori  ******************');

  writeln('Sabiranje');
  writeln('7 + 2=',7+2);

  writeln('Oduzimanje');
  writeln('7 - 2=',7-2);

  writeln('Mnozenje');
  writeln('7 * 2=',7*2);

  writeln('Deljenje');
  writeln('7 / 2=',7/2:6:2);

  writeln('Deljenje bez ostatka');
  writeln('7 div 2=',7 div 2);

  writeln('Ostatak pri deljenju');
  writeln('7 mod 2=',7 mod 2);


  writeln('******* Relacioni operatori ******************');

  writeln('7 > 2=',7>2);
  writeln('7 >= 2=',7>=2);

  writeln('7 < 2=',7<2);
  writeln('7 <= 2=',7<2);

  writeln('7 <> 2=',7<>2);
  writeln('7 = 2=',7=2);

 writeln('******* Bolean ili logicki operatori ******************');
 writeln();
  writeln('Logicko I AND');
  writeln('TRUE AND TRUE=',TRUE AND TRUE);
  writeln('TRUE AND FALSE=',TRUE AND FALSE);
  writeln('FALSE AND TRUE=',FALSE AND TRUE);
  writeln('FALSE AND FALSE=',FALSE AND FALSE);

  writeln();
  writeln('Logicko ILI OR');
  writeln('TRUE OR TRUE=',TRUE OR TRUE);
  writeln('TRUE OR FALSE=',TRUE OR FALSE);
  writeln('FALSE OR TRUE=',FALSE OR TRUE);
  writeln('FALSE OR FALSE=',FALSE OR FALSE);

  writeln();
  writeln('Logicko Ne NOT');
  writeln('NOT TRUE=',NOT TRUE);
  writeln('NOT FALSE=',NOT FALSE);

  readln();
 end.

3# Niz ocena ispisati koliko ima parnih i neparnih ocena u nizu

program  while_parni_neparni;
  uses crt;
   // uneti 5 ocena u niz, proveriti koliko ima neparnih i parnih ocena.
   var
    ocene:Array[1..5] of integer;
    i:integer;

    paran:integer;
neparan:integer;

begin
  clrscr();

   // unos ocena u niz sa petljom while
   writeln('Molimo vas unesite ocene za 5 ucenika');
    i:=1;
    while(i<=5) do
      begin
        write('ocene[',i,']=');
        readln(ocene[i]);

   // provera parnih i neparnih
if(ocene[i] mod 2 =0) then paran:=paran+1
 else neparan:=neparan+1;
        i:=i+1;
      end;

     // ispis parnih i neparnih

writeln('parnih:',paran);
writeln('neparnih:',neparan);
  readln();
end.