MODUL

unit ime;
interface
function...;
implementation
function......;
begin
.
.
.
end;
end.



BOJANJE

program vj;{upisi string, rekurzivno oboji vokale}
uses crt;
var s:string;D:integer;

procedure oboji(a:string;l,i:integer);
begin
if i<=l then begin
             if a[i] in ['A','E','I','O','U','a','e','i','o','u']
                then textcolor(4);
                write(a[i]);
                textcolor(7);

             oboji(a,l,i+1);
             end;



end;

begin
clrscr;
write ('...poruka: ');readln(s);
d:=length(s);
oboji(s,d,1);
readln;
end.



FIBONACI
program vj; {rijesi Fibonnacijev niz 1,1,2,3,5,8,13...}
uses crt;
var n,i:integer;


     function fibo(x:integer):integer;
     begin
     if x<3
     then fibo:=1
     else fibo:=fibo(x-1)+fibo(x-2)

     end;

begin
clrscr;
    write('...koliko clanova: ');readln(n);
    for i:=1 to n do
    write(fibo(i),' ');
readln;
end.



FOR-petlja

program vj;{napravi rekurzivno for petlju}
uses crt;
var n:integer; {n je globalna varijabla pa se provlaci kroz potprogram}

     procedure forp(x:integer);
     begin
     if x<=n {prekid} then begin
                           write(x,' ');
                           forp(x+1);
                           end;
     end;


begin
clrscr;
write ('...do kojeg broja: ');readln(n);
forp (1);
readln;
end.



SORTIRANJE
program sortiraj;
var st : string;
procedure sort(a,b:integer);
var p : char;
begin
    if a < length(st) then
    begin
        if b <= length(st) then
        begin
            if st[a] > st[b] then
            begin
                p := st[a];
                st[a] := st[b];
                st[b] := p;
            end;
        end
        else
        begin
            a := a + 1;
            b := a;
        end;
        sort(a,b+1);
    end;
end;
begin
    readln(st);
    sort(1,2);
    writeln(st);
    readln;
end.


STRING U REKURZIJI
program veliki;
uses crt;
var s:string;
k,i,n:integer;
procedure boja(a:string;l,i:integer);
begin
if i<=l then begin
if a[i] in ['A'..'Z'] then textcolor(3); write(a[i]);textcolor(7);
boja(a,l,i+1);
end;
end;

{glavonja}
begin
clrscr;
repeat
write('poruka  ');readln(s);
until length(s)>0;
k:=length(s);
boja(s,k,1);
readln;
end.


STRING KREŠO
uses crt;
var s:string;
    d:integer;
procedure zeko(str:string;n:integer);
         begin
         if str[n] in ['A'..'Z'] then write(str[n]);
         if n<length(s) then zeko(str,n+1);
         end;
begin
     clrscr;
     write('poruka: '); readln(s);
     d:=1;
     zeko(s,d);
     readln;
end.