Programujeme v Lazaruse – 6. časť
Dnes si naprogramujeme prevod z dvojkovej do desiatkovej sústavy...
Čo budeme dnes robiť?
V dnešnej časti si doprogramujeme aplikáciu, ktorú sme začali programovať v utorok. Prevod čísla z desiatkovej do dvojkovej máme zvládnutý. Dnes spravíme opačný prevod.
Čo potrebujeme pred tým vedieť?
Nedávno sme si spomenuli cyklus for, ktorý má tvar:
For i:=1 to 10 do // ide od 1 po 10 Príkaz;
Existuje však aj opačný cyklus. Vyzerá nasledovne:
For i:=10 downto 1 do // ide od 10 po 1 Prikaz;
Ďalej potrebujeme vedieť, čo je to príkaz power.
Táto funkcia nie je obsiahnutá v základných knižniciach. Obsahuje ju knižnica math. Preto si ju musíme načítať. To spravíme tak, že úplne na vrch kódu, kde je napísané uses dopíšeme Math.
Power(číslo, ktoré chceme umocniť,mocniteľ)
Samotný prevod z dvojkovej prebieha nasledovne. Zoberieme si poslednú číslicu z binárneho čísla a násobíme ju nultou mocninou dvojky. Potom zoberieme predposlednú a násobíme ju prvou mocninou dvojky. Ďalšie by sme násobili druhou mocninou atď.
Príklad: Preveď číslo 1010 do desiatkovej sústavy
(0 * 2 ^ 0) + (1 * 2 ^ 1) + (0 * 2 ^ 2) + (1 * 2 ^ 3) = 10
K jednotlivým písmenám v stringovom reťazci sa dá pristupovať.
V nasledujúcom programe sme si zadeklarovali premennú slovo typu string. Uložili sme si do nej auto. Príkaz showmessage nám zobrazí i-ty znak v premennej slovo. Ak si za i dosadíme 1 tak nám zobrazí A, ak 2 tak U atď.
Dĺžka slova sa dá zistiť pomocou príkazu lenght(slovo); (dĺžka premennej slovo). Platí to len pre stringové premenné. Znaky sa dajú tiež porovnávať.
Var slovo:string; Begin Slovo:='auto'; Showmessage(slovo[i]) End;
Vytvorenie programu
Grafickú stránku nášho programu máme už hotovú. Môžeme sa pustiť do kódovania druhej časti. Príkazy pôjdu do else.
1.Klikneme dvakrát na button (Preveď číslo) pretože ideme programovať udalosť po kliknutí na button.
2.Zadeklarujeme si premennú, do ktorej si načítame číslo z editu. Už síce jednu premennú máme, do ktorej sa nám ukladá číslo z editu. My potrebujeme ale premennú typu string, aby sme nemuseli v kuse konvertovať z int do str. Premenná sa môže volať cislo2.
Var cislo2:string;
3. Do premennej si načítame číslo z editu. Môžete aj hneď na začiatku. (Za príkaz cislo:=StrToInt(edit1.text)) alebo za else
4. Potrebujeme si tiež zadeklarovať premennú vysledok2, ktorá bude typu real. (Funkcia power dáva výsledok v real.)
5. Spustíme nasledovný cyklus:
for i:=1 to length(cislo2) do if cislo2[i]='1' then vysledok2:= power(2,length(cislo2)-i) + vysledok2;
Cyklus ide od prvého znaku až po dĺžku cisla2. Nemá zmysel násobiť aj nuly tak si podmienkovým príkazom if nájde iba znak 1. (Preto je jednotka medzi ' '. Keby sme nepoužili apostrofy tak je to číslo jedna a nie znak jedna.) Potom už iba jednoducho priráta do vysledok2 umocnené číslo 2.
Umocňuje sa to na cislo2 -i, pretože cyklus začína od prvého čísla.
6. Zobrazíme výsledok
Showmessage(FloatToStr(vysledok)); // FloatToStr konvertujeme realné číslo...
7.Už to len uložíme a spustíme
File – Save as – Save
Kód by mal vyzerať nasledovne:
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:
Novinky
2 rokmi
Aprílové vtípky: Výběr toho nejlepšího kolem počítačů, internetu a techniky
Výběr nejlepších aprílových vtípků 2019
2 rokmi
Fotky Google sa učia lepšie pracovať s dokumentmi
Spoločnosť Google prostredníctvom svojho účtu na sociálnej sieti Twitter oficiálne predstavila novú funkciu svojej aplikácie Fotky Google.
2 rokmi
Gmail dovoľuje naplánovať poslanie emailu neskôr
Spoločnosť Google dnes oznámila pridanie funkčnej novinky do svojej populárnej webmailovej služby Gmail, možnosť naplánovať poslanie emailu na neskôr.
3 rokmi
Používatelia Chrome začali prechádzať na nový rýchlejší Firefox, avizujú dáta Mozilly
Nový lepší a rýchlejší prehliadač Firefox 57 Quantum vyúsťuje zrejme do viac používateľov prechádzajúcich respektíve vracajúcich sa na tento prehliadač z iných prehliadačov, na osobných počítačoch aj smartfónoch.
3 rokmi
Briti dokončili kúpu SK-NIC-u. Nové .sk domény nechávajú za 8.4 eur
Predaj správcu slovenskej domény .sk, SK-NIC, bol dokončený a novým majiteľom po telekomunikačnej skupine Danubiatel, do ktorej patrí napríklad Swan a 4ka, je britská spoločnosť CentralNic.
Staršie novinky »TOP dlhšie
- Aj ty môžeš byť najčítanejší. Napíš článok »
TOP tento mesiac
- Aj ty môžeš byť najčítanejší. Napíš článok »
Nové články:
- 14.Kingston uvádza 128GB verziu šifrovaného USB
sep - 10.Tiché COMBO Logitech MK295
sep - 24.Farbičky v HTML a CSS, alebo?
aug - 23.Pochopte, ako vytvoriť virtuálny obchod v 6 krokoch
aug - 29.Kamery, cloud a bezpečnosť
jul - Viac »
- Aj ty môžeš byť najčítanejší. Napíš článok »
Pekné veci
Pekné veci
Pekné veci
Pekné veci
Kritika
Vieš ako robiť veci lepšie? Pomôž našim odvážnejším členom a skritizuj im projekty!
Reklama
Slovenská IT komunita
Seriály zo Zajtra.sk
· Ako písať blog
· Ako sa stať PHP ninja s Yii Frameworkom
· Aplikácie pre Facebook
· CSS triky
· iOS vývojára príhody a skúsenosti
· Jednoduché programy, ktoré vám ušetria čas
· Modelovanie webového sídla
· Nauč sa CodeIgniter [HD]
· Nauč sa jQuery [HD]
· Nette PHP framework
· OOP v Javascripte
· Programujeme v Jave
· Programujeme v Lazaruse
· Programujeme v Pythone
· Robíme Eshop v ASP.NET Web Pages
· Slovenskí iOS developeri
· Webdizajn krok po kroku
· Yablkov TurboTip [HD]
Posledné komentáre