Unity – Delphi – Fórum – Programujte.com

Zdravím potřebuji vážně akutní pomoc... Mám v Delphi 7 vytvořit program na povrch a objem koule s tím že má být rozdělen do dvou unitů... můžete mi prosím napsat jak to naprogramovat ??? Díky 

#1 Krtek132
Vzhledem k typu zadání jde o typickou školní úlohu, takže jak to naprogramovat? Přesně tak, jak to po tobě žádá učitel. Podívej se do svých poznámek, nebo do výukových materiálů, které ti dal k dispozici, nebo si nějaký podobný příklad najdi na internetu...

#2 JoDiK
Jo o to jsem se snažil a protože jsem to nenašel... Tak jsem se obrátil sem mohl byste mi alespoň doporučit stránku kde tyto informace najdu ??? Díky

#3 Krtek132
A google jsi zkoušel?

Delphi 7 unit example?

Třeba zde? http://www.delphibasics.co.uk/Article.asp?…

Prosím opravdu o vážnou pomoc !!! Mohl byste být někdo tak hodný a ten příklad mi naprogramovat... Jde o ukončení 4. ročníku.... JSem opravdu zoufalý prosím pomoc 

#5 Krtek132
Heleď, až budeš chtít pomoct zasadit strom, počít syna, nebo zajet nový auto, tak se s důvěrou obrať, jsem moc hodný a opravdu rád ti s tím taky pomůžu...

Když u tebe pomoct znamená udělat tvou práci za tebe...

Ano máš pravdu já jsem jen nervózní potřebuji poradit jak mám ten program rozdělit do dvou unitů, jaké k tomu potřebuji procedury 

#7 Krtek132
Především bys měl napsat přesné zadání slovo od slova, ne jen jak sis to z druhé ruky zapamatoval...

tak podle zadani budes mit asi unitu objemKoule a unitu obsahKoule ...  v kazdy jedna funkce, ktera to vypocita...

#9 KIIV

Děkuji jenže ta funkce má volat jednu z druhé 

rekl si jen ze to ma byt rozdeleny do dvou unitu ....  zadny dalsi podrobnosti sem tu nezahlidl...

#11 KIIV
já si teď uvědomil, že má ten unit volat unit 2 pokud to píšu dobře... a v prvním unitu by se mělo objevit uses právě ten unit 2 jenže když to tam napíšu a mám vytvořený unit 2 tak to nefunguje

#11 KIIV
Nezlob se odkud jsi z PRahy ???

#12 Krtek132
Heleď, jestli chceš opravdu pomoct, tak reaguj. Napiš opravdu přesné zadání a ukaž, co už máš hotový. Takhle se radí blbě...

Fajn mám mít objem a povrch koule rozdělený do dvou unitů... aby zde byli použity procedury... tak aby vlastně v unitu 2 byl ten vzorec na výpočet objemu a povrchu a v tom prvním asi jen odkaz na něj... A chceš poslat to co už mám hotové mailem ???

Mám vytvořen příklad, kde mám výpočet objemu koule a teď ho potřebuji rozdělit do dvou unitů... aby zde byli použity procedury... tak aby vlastně v unitu 2 byl ten vzorec na výpočet objemu a povrchu a v tom prvním asi jen odkaz na něj..

Může mi prosím někdo s tím programem pomoct ??? já už za sebe opravdu nevím   

Vážně prosím o pomoc.... Potřebuji tu práci odevzdat závisí na tom moje budoucnost... jen tento příklad může rozhodnout o tom jestli mě pustí učitel k maturitě.... Prosím o pomocnou ruku... Něco mám vytvořené jen nevím jak dále :((((

ja furt nechapu proc to rozdelovat na dve unity pokud nechtej unitu objem a unitu obsah...

todle by mel byt tvuj prvni dotaz na vyucujiciho, co tim mysli...

jinak doporucuju udelat unitu  obsahKoule a unitu objemKoule a uses se hodi do hlavniho programu... pokud to nebude co ucitel chtel, tak si s nim procist zadani a napadnout jakoukoliv nejasnost...

Taky mi není úplně jasné, na co se Krtek132 přesně ptá. Možná neví, jak se pracuje s unitami.

Jestli si dobře pamatuju: Vybereš v Delphi v menu New unit, vznikne nová prázdná unit a uložíš ji pod nějakým jménem (save as).  Není to úplně prázdný soubor, spíš je to taková připravená kostra, do které budeš psát svůj kód. No a potom vezmeš tu funkci / proceduru, kterou máš nyní v tom společném kódu a cut/paste s ní do té nové unity. Když nyní zkusíš program přeložit, bude Ti hlásit, že nezná tu funkci / proceduru. Aby ji zase znal, musíš mu říct, aby hledal i v té nové unitě, a toho se dosáhne přidáním jména nové unity do sekce USES v původním programu.

Je to hodně nahrubo napsáno, už jsem v tom dlouho nedělal, ale snad je z toho vidět, že to není nic těžkého. Prostě to zkus a když na Tebe vypadne nějaká chyba, tak ji sem opiš a někdo rád poradí. Jinak je to celé práce na pár minut, tak se toho přestaň štítit :)

#18 Krtek132
"Něco mám vytvořené jen nevím jak dále :(((("

Tak to co máš vytvořené zkopíruj sem!

#15 Krtek132
"v tom prvním asi jen odkaz na něj."

V programování není žádné "asi"

To jsi to zadání dostal jen tak ústně? Jako že tě učitel zastavil na chodbě a řekl ti "udělej tenhle program se dvěma unitami, jinak tě nepustím k maturitě"?

Kopáči jsou taky třeba.

Zasláno z mobilního telefonu.

#23 Tomix nologin
To snad nebylo nutné. Přestože působí dotazy od Krtek123 zmateně, nepřipadá mi dobré se do něho navážet. Spíš by ho to chtělo navést tak, aby se uměl zeptat a vyjádřil, co potřebuje. I když je pravda, že to vyžaduje trpělivost, neb se mu to ani po jedenácti příspěvcích v tomto vlákně nepovedlo :)

Jde o to, že když mám já sám nějaký problém, se kterým si nevím rady, tak zkusím google. A často najdu vlákno v nějakém fóru, kde měl stejný problém někdo přede mnou. No a pak záleží mé štěstí na tom, jestli mu dobří lidé poradili a nebo jestli to po padesáti příspěvcích končí OT.

#24 RomanZ
pripadne muze byt system architekt... requirementy byvaji casto velice podobneho razeni...

#18 Krtek132
Zdarec, jen na rychlo pokud to budeš číst do Form1 si dej komponenty:

LabeledEdit (nebo Edit - podle toho to změň níže v kódu), Button, 2xLabel.
Pod implementation napiš: uses Unit2;

Do události Button1 poté zadej:
  Label1.Caption := 'Povrch: ' +  FormatFloat('0.00', Povrch(StrToFloat(LabeledEdit1.Text))) + ' cm2';
  Label2.Caption := 'Objem: ' + FormatFloat('0.00', Objem(StrToFloat(LabeledEdit1.Text))) + ' cm3';

předpokládám odkaz na funkce do Unit2, potom v menu: File->New->Unit-Delphi.

kód Unit2:

interface
  function Povrch(r: single): double;
  function Objem(r: single): double;
implementation
  const pi= 3.14159;

function Povrch(r: single): double;
begin
  result :=  4 * pi * sqr(r);
end;

function Objem(r: single): double;
begin
  result := (4 / 3) * pi * r * r * r;
end;

end.

a to je vše, mělo by to jet! jen na rychlo!