ВЕЖБИ  ЗА  Функции

 1. ДСАКШ којa пресметува и печати збир на сите броеви од 1 до N.
Решение Во процедурата на клик на Button1

var n,sum,g:integer;
begin
    val(edit1.text,n,g);
    if g=0 then
    sum:=zbir(n);
    edit2.text:=inttostr(sum);
end; после implementation  се впишува следниот код

function zbir(m:integer):integer;
    var i,zb:integer;
    begin
    zb:=0;
    for i:=1 to m do
        zb:=zb+i;
    zbir:=zb;
end;
  
2. ДСАКШ којa пресметува и печати факториел на бројот N
Решение Во процедурата на клик на Button1

var n,pr,g:integer;
begin
    val(edit1.text,n,g);
    if g=0 then
    pr:=fakt(n);
    edit2.text:=inttostr(pr);
end; после implementation  се впишува следниот код

function fakt(m:integer):integer;
    var i,p:integer;
    begin
    p:=1;
    for i:=1 to m do
        p:=p*i;
    fakt:=p;
end;