3# Uslovi napredan primer

Napisati program koji za unete x,y,z,w,q,t cele brojeve sa tastature proverava koji je veci i ispisuje na ekran.
 akko X>Y i akko Q>T pise x>y i q>t ako nije pise x>y i q<t
akko X<Y i akko Z>W pise x<y i z>w ako nije pise x<y i z<w

1# Naredba granaja IF

program uslovIF;
//U program se unose dva broja x i y i program ispisuje koji je od njih veci 
 uses crt;
 var
    x,y:integer;

 begin
    clrscr;
    writeln('Unesite broj x');
    write('x=');
    read(x);
    writeln('Unesi broj y');
    write('y=');
    read(y);
    if (x>y) then
     begin
       writeln('x je veci');
     end
    else
     begin
       writeln('y je veci');
     end;
     readln;
     readln;

 end.

2# Osnovne funkcije 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.

Sabrianje dva broja unos sa tastature

program sabiranje_dva_broja;
uses crt;
var
  x,y:integer;
  z:real;
 begin
  clrscr();
  // Bojanje teksta u programu
   TextColor(Red);
    Writeln('Hello');
   TextColor(White);
    Writeln('world');

  // Dodeljivnaje vrednosti
  Writeln('Unesi te broj x');
  Write('x=');
  readln(x);

   Writeln('Unesi te broj y');
  Write('y=');
  readln(y);

  z:=x+y;
      TextColor(Green);
   writeln ('Suma=',z:0:3);

   //Pomeranje teksta na odredjenu lokaciju po kordinatama
   GoToXY(10,5);
   Writeln('Hello na drugom mestu');

   readln;
   readln;
  end.

1# Sabiranje dva cela broja u paskalu

program sabiranje_dva_broja;
uses crt;
var
  x,y:integer;
 begin
  clrscr();
  x:=10;
  y:=12;
   writeln ('Suma=',x+y);
   readln;
  end.

0# Hello World - Cao svete prvi program u paskalu

program cao_svete;
uses crt;
 begin
  clrscr();
   writeln ('Cao svete');
   readln;
  end.