WordPress.com



Primeri

1. Kreirati aplikaciju koja vrši konverziju dinara u dolare ili evre zavisno od toga koje je radio dugme uključeno. Na formu treba postaviti edit konponente za unošenje trenutnog kursa za date devize, za unošenje količine dinara koja se konvertuje i za prikazivanje vrednosti koja se dobija, dva radio dugmeta za izbor konverzije, dugme za zadavanje izračunavanja i dugme za kraj aplikacije.

procedure TForm1.Button1Click(Sender: TObject);

var dolar, evro, din, x: real;

i:integer;

s:string;

begin

if (edit1.text='') and (edit2.text='') then

ShowMessage('Unesite kurseve');

val(edit1.Text,dolar,i);

val(edit2.Text,evro,i);

val(edit3.Text,din,i);

if rbDolare.Checked then

begin

x:= din/dolar ; str(x:8:2,s);

Edit4.Text:=s;

Label4.Caption:='Dolara'

end

else

if rbEvre.Checked then

begin

x:= din/evro ; str(x:8:2,s) ;

Edit4.Text:=s ;

Label4.Caption:='Evra'

end

else ShowMessage('Odaberite konverziju')

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

close

end;

2. Kreirati aplikaciju koja obezbeđuje osnovne funkcije kalkulatora (+.-, *, /) koristeći RadioGroup.

procedure TForm1. Button1Click(Sender: TObject);

var a,b,c:real;

begin

a:=strtofloat(edit1.Text);

b:=strtofloat(edit2.Text);

CASE RadioGroup1.ItemIndex OF

0:c:=a+b;

1:c:=a-b;

2:c:=a*b;

3:if b0 then c:=a/b ELSE showmessage('Deljenje nulom');

end;

edit3.Text:=floattostr(c)

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

close

end;

3. Projektovati aplikaciju za izračunavanje obima i površine trougla zadatog dužinama stranica ([pic] , [pic] ). Obezbediti kontrolu korektnosti unosa podataka, tj. da li je zbir bilo koje dve stranice veći od treće stranice. U zaglavlju forme neka piše Trougao.

Za Edit kontrole unosimo za svojstvo Name redom: edA, edB, edC, edP, edO. Za dugme Button1 za svojstvo Name staviti btRacunaj.

Za dugme btRacunaj procedura za događaj OnClick:

procedure TForm1.btRacunajClick(Sender: TObject);

var a,b,c,P,O,s:real;

begin

a:=StrToFloat(edA.Text );

b:=StrToFloat(edB.Text );

c:=StrToFloat(edC.Text );

if ((a+b>c) and (a+c>b) and (b+c>a)) then

begin

s:= (a+b+c)/2;

P:= sqrt(s*(s-a)*(s-b)*(s-c)); edP.Text:=FloatToStr(p);

O:= a+b+c; edO.Text:=FloatToStr(O) end

else

ShowMessage('Neodgovarajuci podaci')

end;

................
................

In order to avoid copyright disputes, this page is only a partial summary.

Google Online Preview   Download