Delphi - Potrebna resenja zadataka!

1

Delphi - Potrebna resenja zadataka!

offline
  • Pridružio: 22 Feb 2010
  • Poruke: 3

Pozdrav, imam dole u prikacenom fajlu par zadataka iz Delphi-ja i potrebna su mi resenja. Zadaci su osnovni i interesantni. Zahvaljujem unapred na odgovorima. Pozdrav!
mycity.rs/must-login.png



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Na odmoru xD
  • Na odmoru xD
  • Pridružio: 15 Feb 2012
  • Poruke: 430

Napisano: 15 Feb 2012 22:14

Mislim da bih mogao da ti pomognem za neke od zadataka pa ako hoces.

Dopuna: 16 Feb 2012 10:41

Za prvougaonik
procedure TForm1.Button2Click(Sender: TObject);
begin
form1.Close; {Ova linija koda zatvara form1 koji je glavni pa samim tim gasi aplikaciju}
end;

procedure TForm1.Button1Click(Sender: TObject);
var a,b:real; {Dodelimo dve promenljive tipa real za dve edit komponente}
begin
a := strtofloat(Edit1.Text); {Ovde kazemo da a = edit1 a da je b = edit2}
b := strtofloat(Edit2.Text);
if (a>-1) and (b>-1) then begin
if radiobutton1.checked then {Grananje ovde kazemo ako je radiobutton1 cekiran onda da racuna povrsinu}
edit3.Text := floattostr(a*b)
else {ako nije onda je radiobutton2 cekiran i racuna obim.}
edit3.Text := floattostr(a*2+2*b);
end;
end; {Valjda znas formule za obim i povrsinu, i veoma je bitno da za radiobutton1 vrednost osbine checked
stavis na true u object inspector-u i za edit3 gde ti je vredbost enabled false da ne bi mogao
da unosis brojeve ili tekst.}
end.

Dopuna: 16 Feb 2012 10:43

Za vrednost robe
procedure TForm1.Button1Click(Sender: TObject);
var a,b :Real; {Dodelimo 2 promenljive za dve edit kontrole}
begin
a := strtofloat(Edit1.Text); {Kazemo da koja promenljiva je za koju komponenetu}
b := strtofloat(Edit2.Text);
if (a>-1) and (b>-2)then begin {Vrednosti nemogu biti negativne}
if radiobutton1.Checked then {Grananje ako je radiobutton1 cekiran pocni da racunas sa popustom}
label3.Caption := 'Vrednost robe: '+floattostr(a*b-(a*b*20/100)) {Ovo je malo naprednija tehnika nego da stavljas edit komponentu}
else
label3.Caption := 'Vrednost robe: '+floattostr(a*b+(a*b*20/100));
end; // Prvo smo za label komponentu stavili osobinu caption na vrednost robe
end; // ali ovo je da nam pise vrednost robe i rezultat u istoj label komponenti
// Nadam se da nemoram da objasnjavam matematiku u oba slucaja imamo osnovicu od koje
//ili dodajemo ili oduimamo 20% od nje
end.

Dopuna: 16 Feb 2012 10:46

Za " Elektro Morava"
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,d:real;
begin
a := strtofloat(edit1.Text);
b := strtofloat(edit2.Text); {Dodeljujemo vrednosti promeljviama za odgovarajuce edit-e}
d := strtofloat(edit4.Text);
c:= b-a; // Racun za utrosenu energiju.
edit3.Text:=floattostr (c);
if checkbox1.checked = true then begin {Ako je vrednost checkbox-a true onda da pocneda racuna i onih 300din}
if (a>-1) and (b>-1) and (b>a) or (b=a) and (d>-1) then //Ova linija koda osigurava da nrmozemo da unesemo negativne vrednosti
edit5.Text := floattostr(d*c+300) //i da nemoze da bude novo stanje brojila bude manje od starog
end;
if checkbox1.checked = false then begin //Isto kao i gore samo bez 300din (Pljackasi naroda)
if (a>-1) and (b>-1) and (b>a) or (b=a) and (d>-1) then
Edit5.Text := floattostr(d*c);

end;

end;
end.

Dopuna: 16 Feb 2012 11:06

procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
end;

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,Obim:real;
begin
a := strtofloat(edit1.text);
b := strtofloat(edit2.text);
c := strtofloat(edit3.text);
Obim := a+b+c;
if (a>-1) and (b>-1) and (c>-1) and (a<Obim/2) and (b<Obim/2) and (c<Obim/2) then
Edit4.Text := floattostr(sqrt (Obim/2*((Obim/2-a)*(Obim/2-b)*(Obim/2-c))));

end;

end.

Dopuna: 16 Feb 2012 11:09

Sve ovo je mozda moglo lakse ili prostije da se uradi ali mrzelo me da razmisljam. Ako hoce za edit komponent ili bilo koju drugu da onesposobis unos ides na Obejct inspector i na vrednost enbled stavis false;
I druge zaadatke znam da resim ali me mrzi :-); Zadatak sa trouglom koristi heronov obrazac potrazi na internetu.



offline
  • Pridružio: 13 Jan 2012
  • Poruke: 59

Iskoristi Wolframalpha pretraživač.Već u osnovnoj verziji,koja se ne plaća, daje vrlo egzaktne i iscrpne odgovore.
Usput,ovaj pretraživač sam otkrio tek pre par dana,pa mislim da bi koristilo kada bi neko sa više iskustva opisao Wolframalpha.
Pozdrav

offline
  • Na odmoru xD
  • Na odmoru xD
  • Pridružio: 15 Feb 2012
  • Poruke: 430

Evo fajlova
https://www.mycity.rs/must-login.png

offline
  • Pridružio: 25 Apr 2012
  • Poruke: 2

Kako se pravi web pretrazivac u naj novijem delfiju ?

offline
  • Srđan Tot
  • Am I evil? I am man, yes I am.
  • Pridružio: 12 Jul 2005
  • Poruke: 2483
  • Gde živiš: Ljubljana

U suštini, samo na formu postaviš TWebBrowser komponentu i skoro da si završio Smile Dodaš na vrhu forme jedan TEdit u kojem ćeš pisati url i jedno dugme koje će pozvati metod Navigate TWebBrowser objekta koristeći tekst unešen u TEdit objektu... i eto, imaš mali web browser Smile

offline
  • Na odmoru xD
  • Na odmoru xD
  • Pridružio: 15 Feb 2012
  • Poruke: 430

To sto je srki_82 rekaao je najlakse samo postavis jednu webrowser kontrolu koja se nalazi u internet kontrolama postavis jednu button i jednu edit kontrolu kliknes dva put na button kontrolu i kucas kod
webbrowser1.navigate (edit1.text);

offline
  • Pridružio: 25 Apr 2012
  • Poruke: 2

Hvala vam za pomoc Smile

offline
  • Pridružio: 29 Jun 2012
  • Poruke: 23

Napisano: 29 Jun 2012 11:21

pomozite ljudi početnik sam teški uradi sam aplikaciju jednostavnu sa tri Tedit i par Tlabel ta aplikacija znači množi dva broja i kad stisneš dugme daje u labelu rezultat,to sam uradio kako treba,prestavljami problem što hoču to da isprintam,da napišem kod dami isprinta čitavu formu ne samo klijent oblast nego čitavu formu komplet,sad molim dami objasnite napišetemi kod za printanje stavio sam print dialog na formu unijo unit print na uses listu ali nemogu nikako da napišem kod dami isprinta kako treba izbacujemi prazan list znači trebami komplet forma dase vidi kad isprintam pomagajte ljudi molim vas pet dana lupam glavom nikako da dokučim unapred zahvaljujem

Dopuna: 29 Jun 2012 18:44

još jednom molim ljudi za pomoč u vezi koda za pokretanje štampača da odštampa čitavu formu ,bilo ko samo dami započne kod mislim da ču ostatak ukapirati molim vas hitnomi je.

offline
  • Na odmoru xD
  • Na odmoru xD
  • Pridružio: 15 Feb 2012
  • Poruke: 430

Nisam siguran da li moze sa print dialogom da se stampa cela forma. Sto prosto ne uradis print screen i neiseces u paint-u sliku forme i odstampas je?

Ko je trenutno na forumu
 

Ukupno su 1337 korisnika na forumu :: 30 registrovanih, 10 sakrivenih i 1297 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: ajo baba, amaterSRB, Andrija357, Batinas, bladesu, Boris90, cenejac111, debeli, Dimitrije Paunovic, Dorcolac, Georgius, Karla, kihot, kybonacci, Leonov, Lieutenant, MikeHammer, milenko crazy north, milos.cbr, mrvica78, nemkea71, procesor, Regrut Boskica, royst33, srbijaiznadsvega, Stanlio, stegonosa, Trpe Grozni, vathra, W123