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.

3# While niz od 10 ocena suma,prosek, ispis

program  while_niz_ocena;
  uses crt;
   // uneti 10 realnih ocena u niz, izracunati sumu, prosek i ispisati na ekran.
   var
    ocene:Array[1..10] of Real;
    i:integer;

    suma:Real;
    prosek:Real;

begin
  clrscr();

   // unos ocena u niz sa petljom while
   writeln('Molimo vas unesite ocene za 10 ucenika');
    i:=1;
    while(i<=10) do
      begin
        write('ocene[',i,']=');
        readln(ocene[i]);
        suma:=suma+ocene[i];
        i:=i+1;
      end;
   // izracunati i ispisati sumu i prosek
   prosek:=suma/10;
   writeln();
   writeln('suma=',suma:6:2);
   writeln('prosek=',prosek:6:2);

   // ispis svih ocena iz niza
     i:=1;
    while(i<=10) do
      begin
        writeln('ocene[',i,']=',ocene[i]:6:2);
        i:=i+1;
      end;

  readln();
end.

3# Suma i prosek niza ocena for petlja

program niz;
 uses crt;
 // niz ocena od ucenika uz pomoc for petlje ucitavnaje i ispisivnaje
 // racunanje sume i proseka
 var

  ocene:Array[1..5] of integer;
  i:integer; // brojac u petlji
  suma:integer;
  prosek:real;

 begin
    clrscr();

    //unesi ocene u niz
    writeln('moliom vas unesite ocene od 5 ucenika');
      for i:=1 to 5 do
        begin
           write('ocene[',i,']=');
           readln(ocene[i]);
           suma:=suma+ocene[i];
        end;
      writeln();// prazna red

      writeln('racunaje proseka');
      prosek:=suma/5;
      writeln('suma=',suma);
      writeln('prosek=',prosek:6:2);

      writeln();//prazan red

    //ispisi ocene iz niza
    writeln('Ispis svih ocena iz niza');
    for i:=1 to 5 do
     begin
        writeln('ocene[',i,']=',ocene[i]);
     end;
    readln();
 end.

2# Ucitvanje niza od 5 ocena i ispisivnaje

program niz;
 uses crt;
 // niz ocena od ucenika uz pomoc for petlje ucitavnaje i ispisivnaje
 var

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

 begin
    clrscr();

    //unesi ocene u niz
    writeln('moliom vas unesite ocene od 5 ucenika');
      for i:=1 to 5 do
        begin
           write('ocene[',i,']=');
           readln(ocene[i]);
        end;

    //ispisi ocene iz niza
    for i:=1 to 5 do
     begin
        writeln('ocene[',i,']=',ocene[i]);
     end;
    readln();
 end.

1# Nizovi osnovni primer

program niz;
 uses crt;

 var
  myVar:integer;
  myArray:Array[1..5] of integer;

 begin
    clrscr();
    myArray[2]:=2;
    myVar:=myArray[2];
    writeln(myVar);

    readln();
 end.

2# Program koji ispisuje prvih 100 brojeva uz pomoc petlje

Napisati program koji ispisuje prvih 100 brojeva na izlaz

Primer FOR petlje

 for i:=1 to 100 do

      begin

        writeln(i);

      end;

Primer WHILE petlje

 i:=1;

     while(i<=10) do

      begin

       writeln(i);

  i:=i+1;

      end;

Primer REPEAT UNTIL petlje

i:=1;

 repeat

  begin

   writeln(i);

i:=i+1;

  end

  until (i>100);

1# Zbir i prosek prvih 100 brojeva

program zbir_brojeva_do_1000;
uses crt;
 var
   i:integer; // brojac
   suma:integer;
   prosek:real;


  //program koji radi zbir i prosek prvih 100 brojeva
  // primer sa for i while

  begin
   clrscr();
   writeln ('Suma i prosek prvih 100 brojeva sa for i while');
   for i:=1 to 100 do
    begin
suma:=suma+i;
    end;
// ispis rezultata  posle for petlje
prosek:=suma/100;
         writeln('Ispis posle for a');
writeln('suma=',suma);
    writeln('prosek=',prosek);

    i:=1; // postavi i
suma:=0;// postavi sumu
    while(i<=100) do
     begin
         suma:=suma+i;
         i:=i+1;
     end;
    // ispis rezultata  posle for petlje
prosek:=suma/100;
         writeln('Ispis posle while a');
writeln('suma=',suma);
    writeln('prosek=',prosek);

   readln();
 end.

1# Ispisi uneto ime x puta For, While, Repeat petlje

program ispis_imena_x_puta_for;
uses crt;
 var
   i:integer;
   ime:string;
   broj_puta:integer;

  //program koji brojevnu ocenu pretvara u opisnu

  begin
   clrscr();
   writeln('Program koji ispisuje uneto ime zeljeni broj puta');
   writeln('molim vas unesite neko ime');
    write('ime=');
    readln(ime);
   writeln('Molim vas unesite koliko zelite puta da ispisete ime na ekranu');
    write('broj_puta=');
    readln(broj_puta);
   // petlja koja ispisuje odredjen broj puta ime
    writeln('Ispis imena uz pomoc for petlje');
   for i:=1 to broj_puta do
    begin
writeln(i,'.',ime);
    end;
    writeln('Ispis imena uz pomoc while petlje');

    i:=1;
    while(i<=broj_puta) do
     begin
         writeln(i,'.',ime);
         i:=i+1;
     end;

     writeln('Ispis imena uz pomoc repeat petlje');
     i:=1;
     repeat
      begin
      writeln(i,'.',ime);
        i:=i+1;
      end
     until (i>broj_puta);
   readln();
 end.

1# Algoritam Koji je veci od dva broja

Napisati algoritam koji proverava koji je veci od dva uneta broja sa ulaza, i ispisuje veci na izlaz.

1# Ocene opisno Case uslov

program ocene_opisno_case;
uses crt;
 var
   ocena:integer;

  //program koji brojevnu ocenu pretvara u opisnu

  begin
   clrscr();
   writeln('Unesite ocenu');
   write('ocena=');
   readln(ocena);

    case (ocena) of
1:writeln('nedovoljan');
2:writeln('dovoljan');
3:writeln('dobar');
4:writeln('vrlo dobar');
5:writeln('odlican');
else writeln('nije ocena');
end;

   readln();
 end.

2# Koji je veci broj od 3 unesena cela broja

program veci_od3;
uses crt;
 var
   a,b,c:integer;

  //program koji proverava koji je veci od 3 unesena broja

  begin
   clrscr();
   writeln('Unesite brojeve');
   write('a='); readln(a);
   write('b='); readln(b);
   write('c='); readln(c);

   if(a>b) then
    begin
if(a>c) then
 begin
  writeln('a je veci');
 end
else
 begin
  writeln('c je veci');
 end;
end
   else
begin
if(b>c) then
 begin
 writeln('b je veci');
 end
else
 begin
 writeln('c je veci');
 end;
end;

   readln();
 end.

1# Pretvaranje brojevnih ocena u opisne

program ocene_opisno;
uses crt;
 var
   ocena:integer;

  //program koji brojevnu ocenu pretvara u opisnu

  begin
   clrscr();
   writeln('Unesite ocenu');
   write('ocena=');
   readln(ocena);

   if (ocena=1) then writeln('nedovoljan');
   if (ocena=2) then writeln('dovoljan');
   if (ocena=3) then writeln('dobar');
   if (ocena=4) then writeln('vrlodobar');
   if (ocena=5) then writeln('odlican');
   if ((ocena<1) OR (ocena>5)) then writeln('nije ocena');

   readln();
 end.

1# Matematicke operacije nad integerom

program sabiranje_tri_promenjive;
uses crt;
var
   a,b:integer;
   zbir,razlika:integer;
   ostatak:real;
   kvadrat:integer;
   koren:real;

begin
    writeln('program mat operacije na dva cela broja');
    writeln('molim vas unesite dva cela broja');
    write('a=');
     readln(a);
    write('b=');
     readln(b);
     // racunanje
    zbir:=a+b;
    razlika:=a-b;
    ostatak:=a/b;
    kvadrat:=sqr(a);
    koren:=sqrt(a);
    writeln('zbir=',zbir);
    writeln('razlika=',zbir);
    writeln('ostatak=',ostatak);
    writeln('a na kvadrat=',kvadrat);
    writeln('koren iz a=',koren);
    readln();
end.

3# Primer sume sa While ciklusom

program while_petlja;
 uses crt;

  var
    i:integer;    // brojac
    max:integer;  // koliko puta sabira
    broj:integer; // broj sa tastature
    suma:integer; // suma svih sabiranja

  begin
   clrscr();
   //uneti neki broj i sabrati ga onoliko puta koliko zelis
   //unose se sledece promenjive broj i max
   writeln('********************************** Sumiranje brojeva *************************');
   writeln('Program za sumiranje broja proizvoljan broj puta uz pomoc WHILE ciklusa ');
   writeln('Unesite broj koji zelite da sumirate');
   write('broj=');
   readln(broj);

   writeln();
   writeln('Koliko puta zelite da saberete uneti broj');
   write('max=');
   readln(max);

   writeln();
   writeln('********************************* Rezultat ********************************');

   i:=1;
  while (i<=max) do
   begin
       suma:=suma+broj;
       i:=i+1;
   end;

   //ispis sume na ekran

   writeln('suma=',suma);
   writeln('Hvala pokusajte ponovo');

    readln();

  end.

1# Izracunaj formulu w=(x^2+y^2)^2

program mat4;
uses crt;
 var
   x,y:integer;
   w:real;

   //w=(x^2+y^2)^2

  begin
   clrscr();
   writeln('izracunaj formulu');
   writeln('w=sqr(sqr(x)+sqr(y))');
   writeln('unesi promenjive');

   write('x='); readln(x);
   write('y='); readln(y);

   w:=sqr(sqr(x)+sqr(y)) ;
   writeln('w=sqr(sqr(x)+sqr(y))=',w:10:4);

   readln();
 end.

2# Izracunavanje formule w=(x+y-2)/2*x+sqr(b)-x*y*z;

 program matematika2;

 uses crt;

  var

    w,d:real;
    x,y,z,b:integer;
    //w=(x+y-2)/2*x+sqr(b)-x*y*z;
  begin

    clrscr();
    writeln('izracunati formulu');
    writeln('w=(x+y-2)/2*x+sqr(b)-x*y*z');
    writeln('Unesite promenjive');

    write('x=');readln(x);
    write('y=');readln(y);
    write('z=');readln(z);
    write('b=');readln(b);

    d:=2*x+sqr(b)-x*y*z;


  if (d<>0) then

    begin

      writeln('w=(x+y-2)/2*x+sqr(b)-x*y*z=',(x+y-2)/d);

    end

  else

    begin

      writeln('nije dozvoljeno deljenje sa nulom');

    end;


    readln();

  end.

4# Kvadratna jednacina

program kvadratna;
uses crt;
 var
   a,b,c:integer;
   w:real;

   //w=(-b-sqrt(sqr(b)-4ac))/2a

  begin
   clrscr();
   writeln('izracunaj formulu');
   writeln('w=(-b-sqrt(sqr(b)-4ac))/2a');
   writeln('unesi promenjive');

   write('a='); readln(a);
   write('b='); readln(b);
   write('c='); readln(c);

   if (sqr(b)>4*a*c) then
     begin
        if (a<>0) then
          begin
            w:=(-b-sqrt(sqr(b)-4*a*c))/2*a;
            writeln('w=(-b-sqrt(sqr(b)-4*a*c))/2*a=',w:10:4);
          end
         else
          begin
            writeln('a nesme biti 0');
          end;
     end
   else
    begin
        writeln('4ac mora biti manje od sqr(b)');
    end;
   readln();
 end.

2# Izracunavanje formule w=(x+y-z)/2*x+sqr(y)-x*y*z;

 program matematika2;

 uses crt;

  var

    w,d:real;
    x,y,z:integer;
    //w=(x+y-z)/2*x+sqr(y)-x*y*z;
  begin

    clrscr();
    writeln('izracunati formulu');
    writeln('w=(x+y-z)/2*x+sqr(y)-x*y*z');
    writeln('Unesite promenjive');

    write('x=');readln(x);
    write('y=');readln(y);
    write('z=');readln(z);

    d:=2*x+sqr(y)-x*y*z;

  if (d<>0) then
    begin
      writeln('w=(x+y-z)/2*x+sqr(y)-x*y*z=',(x+y-z)/d:10:4);
    end
  else
    begin
      writeln('nije dozvoljeno deljenje sa nulom');
    end;


    readln();

  end.

2# Izracunavanje formule w:=(x+y)/(y/z+3);

 program matematika1;

 uses crt;

  var

    w,d:real;
    x,y,z:integer;
    //   w:=(x+y)/(y/z+3);
  begin

    clrscr();
    writeln('izracunati formulu');
    writeln('w:=(x+y)/(y/z+3)');
    writeln('Unesite promenjive');
    write('x=');readln(x);
    write('y=');readln(y);
    write('z=');readln(z);

  if (y/z+3<>0) then

    begin

      w:=(x+y)/(y/z+3);

      writeln('w=(x+y)/(y/z+3)=',w);

    end

  else

    begin

      writeln('nije dozvoljeno deljenje sa nulom');

    end;

    readln();

  end.

1# Matematicke operacije nad integerom

program sabiranje_tri_promenjive;
uses crt;
var
   a,b:integer;
   zbir,razlika:integer;
   ostatak:real;
   kvadrat:integer;
   koren:real;

begin
    writeln('program mat operacije na dva cela broja');
    writeln('molim vas unesite dva cela broja');
    write('a=');
     readln(a);
    write('b=');
     readln(b);
     // racunanje
    zbir:=a+b;
    razlika:=a-b;
    ostatak:=a/b;
    kvadrat:=sqr(a);
    koren:=sqrt(a);
    writeln('zbir=',zbir);
    writeln('razlika=',razlika);
    writeln('ostatak=',ostatak);
    writeln('a na kvadrat=',kvadrat);
    writeln('koren iz a=',koren);
    readln();
end.

1# Sabirnaje dve celobrojne promenjive u trecu i ispis

program sabiranje_tri_promenjive;
uses crt;
var
   a,b,c:integer;

begin
    writeln('program za sabirnaje dva cela broja');
    writeln('molim vas unesite dva cela broja');
    write('a=');
     readln(a);
    write('b=');
     readln(b);
    c:=a+b;
    writeln('c=',c);
    readln();
end.

1# Tipovi podataka u paskalu

Tipovi podataka u paskalu

Tipovi podataka dele se na:

1. Skalarni tipovi.
2. Pokazivači.
3. Strukture.

Skalarni tipovi - Standardni

Skalarni tipovi - Korisnički

1# Sabiranje dva broja

program sabiranje;
uses crt;
var
  a,b:integer;

begin
    //sabiranje dva uneta broja sa tastuture
    clrscr();
    writeln('Unesite brojeve a i b tipa integer');
    write('a=');
    readln(a);
    write('b=');
    readln(b);
    writeln('a+b=',a+b);

    readln();
end.

1# Osnovni tipovi u paskalu

program tipovi;
uses crt;
var
     ceo:integer;     // celi brojevi
     zarez:real;     // brojevi sa zarezom
     znak:char;      // svi zankovi sa tastature
     tacno:boolean;  // true - tacno || false - netacno
recenica:string;// recenica ili jedan rec

begin
 //Osnovni tipovi u paskalu
    clrscr();
    ceo:=11;
    zarez:=22.033333;
    znak:='c';
    tacno:=false;
    recenica:='Danas je divan dan sta ima kod vas';

    writeln(ceo);
    writeln(zarez:6:2);
    writeln(znak);
    writeln(tacno);
writeln(recenica);
    readln();

end.