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.
To fulfill the demand for quickly locating and searching documents.
It is intelligent file search solution for home and business.
Related download
Related searches
- wordpress passing data between pages
- wordpress business templates
- wordpress rss feed not working
- wordpress jquery is not defined
- create wordpress blog
- wordpress roles editor
- wordpress full rss feed
- wordpress rss feed settings
- wordpress rss feed plugin
- wordpress display rss feed
- wordpress rss feed link
- wordpress rss feed to post