3# Pitagora funkcija

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

  function c_izrac(a,b:integer):real;
   begin
       c_izrac:=sqrt(abs(sqr(a)+sqr(b)));
   end;

  begin
    clrscr();
    writeln('program za izracunavanje hipotenuze trougla');
    writeln();
    writeln('Unesite a katetu');
    write('a=');
    readln(a);

    writeln('Unesite b katetu');
    write('b=');
     readln(b);

    //Izracunva hipotenuzu
    writeln('c=',c_izrac(a,b):6:6);



    readln();
  end.

3# Procedure u Pascalu basic

program funkcije_i_procedure;
 uses crt;


  procedure pozdrav;
   begin
     writeln('pozdrav');
   end;

  //Pocetak programa

 begin
  clrscr();
   //poziv procedure pozdrav
   pozdrav();

   readln();

 end.

3# Stepen broja Until petlja

program while_petlja;
 uses crt;

  var
    i:integer;    // brojac
    max:integer;  // koliko puta mnozi
    broj:integer; // broj sa tastature
    proizvod:real; // stepen

  begin
   clrscr();
   //uneti neki broj i pomnoziti ga onoliko puta koliko zelis
   //unose se sledece promenjive broj i max
   writeln('********************************** Sumiranje brojeva *************************');
   writeln('Program za racunanje zeljenog stepena nekog broja ');
   writeln('Unesite broj za koji zelite da izracunate stepen');
   write('broj=');
   readln(broj);

   writeln();
   writeln('Koji stepen zelite da izracunate');
   write('max=');
   readln(max);

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

   i:=1;
   proizvod:=broj;
   repeat

       proizvod:=proizvod*broj;
       i:=i+1;
   until (i=max);

   //ispis proizvoda na ekran

   writeln('proizvod=',proizvod:10:0);
   writeln('Hvala pokusajte ponovo');

    readln();

  end.

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

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.