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.