PROCEDURE - ПРОЦЕДУРИ Вежби
 

1. Да се состави апликација која пресметува збир на сите броеви од 1 до N кој се внесува во компонента edit1.
Резултатот да се прикаже во edit2. Пресметката да се одвива на клик на button1 со caption PRESMETAJ. procedure proc(n:integer;var m:integer);       

// после implementation
    var i:integer;
    begin
    m:=0;
    for i:=1 to n do
        m:=m+i;
end;

procedure TForm1.Button2Click(Sender: TObject);
var g,n,rez:integer;
     srez:string;
     begin
        val(edit1.Text,n,g);
        if  (g=0)  then
            begin
                rez:=func(n,rez);
                str(rez:8:2,srez);
                edit2.Text:=srez;
            end
        else
            showmessage('Nekoj podatok e prazen !!!');
    end;
end.

2. Да се состави апликација која пресметува решенија ка квадратна равенка со параметри А,B,C кои се внесуваат0 во компоненти edit1, edit2, edit3.
Резултатот да се прикаже во edit4. Пресметката да се одвива на клик на button1 со caption PRESMETAJ и да се земат во предвид ситуција дека
равенката има едно решение или ситуација дека равенката нема решенија. procedure kvrav(a,b,c:real;var x1,x2:real);           

// после implementation
var d:real;
begin

d:=sqr(b)-4*a*c;
if d>0 then
    begin
        x1:=(-b+sqrt(d))/2*a;
        x2:=(-b-sqrt(d))/2*a;
    end;
    if d=0 then
    begin
        x1:=(-b+sqrt(d))/2*a;
        x2:=(-b-sqrt(d))/2*a ;
    end;
    if d<0 then
    begin
        x1:=0;
        x2:=0;
    end;
end;
  procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,d,x1,x2:real;
begin
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
c:=strtofloat(edit3.Text);

kvrav(a,b,c,x1,x2);

d:=sqr(b)-4*a*c;
if d<0 then
    begin
        label1.Caption:='NEMA RESENIJA';
        label2.Caption:='NEMA RESENIJA';
    end
else
    begin
        label1.Caption:=floattostr(x1);
        label2.Caption:=floattostr(x2);
    end;
end;