spájame
slovenskú
IT komunitu
pridaj sa
Registrácia · Login

Joozty 4.4.2014, článok je súčasťou seriálu Programujeme v Lazaruse
Hodnoť článok:
0 2

Programujeme v Lazaruse – 7. časť

V ďaľších dvoch častiach seriálu si spravíme menšie opakovanie už nadobudnutých znalostí...

Čo budeme dnes robiť?

Dnes si naprogramujeme aplikáciu, ktorá bude vedieť vypočítať preponu v pravouhlom trojuholníku pomocou Pytagorovej vety. Aplikáciu by ste už mali zvládnuť spraviť sami. Program bude pozostávať z dvoch editov, do ktorých si načítame odvesny. Vyskúšajte si to najskôr sami. Overíte si svoje znalosti. :)

Čo potrebujeme pred tým vedieť?

Všetky potrebné príkazy by ste už mali vedieť. Jediné, čo asi neviete, je príkaz pre odmocninu.
Odmocnina

Sqrt(9) //dá výsledok 3

Ešte by sme si mohli ozrejmiť Pytagorovu vetu, ktorú by však mal každý poznať. Má tvar:

Prepona na druhú sa rovná odvesna1 na druhú plus odvesna2 na druhú.

Vytvorenie programu

1.Pustíme si Lazarus
2.Klikneme na File – New - Application.
3.Zo záložky „Standard“ vyberieme položku panel a vložíme ju na formulár.
4.Do formulára vložíme taktiež zo záložky „Standard“ jeden BUTTON a dva EDITy.
5.Vo vlastnostiach buttonu zmeníme caption na „Vypočítaj preponu“ a text editou a captions panelu zmažeme.
6.Pre vylepšenie pridáme ešte zo záložky „Standard“ dva labely a premenujeme ich na „Odvesna 1“ „Odvesna 2“

Grafickú stránku nášho programu máme hotovú. Môžeme sa pustiť do kódovania.

7.Klikneme dvakrát na button (Vypočítaj preponu), pretože ideme programovať udalosť po kliknutí na button.
8.Prvé, čo potrebujeme, je načítanie odvesien.
9.Zadeklarujeme si premenné typu, do ktorej sa nám uložia odvesny. Tiež si zadeklarujeme premennú prepona typu real, do ktorej uložíme výsledok.

Var odvesna1,odvesna2,prepona:real;

11.Načítame veľkosť odvesien.

Odvesna1:=StrToFloat(edit1.text);
Odvesna2:=StrToFloat(edit2.text);

12. Vypočitame veľkosť preponony.

Prepona:=Sqrt(odvesna1*odvesna1 + odvesna2*odvesna2); // Odmocní 

13. Zobrazíme výsledok

Showmessage('Velkost prepony je '+FloatToStr(prepona)+' cm.')

14.Už to len uložíme a spustíme
File – Save as – Save
Kód by mal vyzerať nasledovne:

Ak máte nejaký dobrý nápad, čo by sme si mohli najbližšie naprogramovať tak sem s ním.

Hodnoť článok:
0 2

0 komentárov k článku:

Komentovať môžu iba prihlásení

Zaregistruj sa cez bezplatnú registráciu alebo použi login cez Facebook (FB Connect)

Prihlás sa tu, ak už máš profil na Zajtra.sk:


Zabudol som heslo

Zajtra.sk > Programovanie > Seriály > Programujeme v Lazaruse – 7. časť


Kritika

Vieš ako robiť veci lepšie? Pomôž našim odvážnejším členom a skritizuj im projekty!

Reklama

Seriály zo Zajtra.sk

Reklama