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.