Krokované programy II.

Výskyt cifry v čísle

Zostavte program, ktorý zistí, koľkokrát sa zadaná cifra nachádza v zadanom celom čísle.

Ide o klasický cyklus s podmienkou na začiatku. Program najskôr z Edit-u načíta vstupný údaj (zadané číslo), v SpinEdite zadáme, ktorú cifru hľadáme (SpinEdit je nastavený na cifry v rozsahu 0-9). Na počítanie výskytov hľadanej cifry je určená premenná počítadlo.
Hľadanie prebieha porovnávaním aktuálnej cifry s hľadanou cifrou tak, že porovnávame poslednú cifru (premenná zvys) s hľadanou. Ak sa cifry zhodujú, zvýši sa nám pocitadlo.
Bez ohľadu na výsledok sa premenná zmení na cislo:=cislo div 10 a cyklus sa zopakuje. Cyklus končí v momente, keď nie je splnená začiatočná podmienka cislo>0.

Riešenie

Výskyt znaku v reťazci

Pre zadaný znak zistite, koľko ráz sa nachádza v zadanom reťazci.

V tomto prípade ide o cyklus so známym počtom opakovaní.
Program najskôr z Edit1 načíta zadané slovo, v Edite2 zadáme, ktorý znak hľadáme. Premenná poc je určená na počítanie výskytu hľadaného znaku.
Priebeh cyklu závisí od dĺžky slova. Porovnávame i-ty znak v premennej slovo. Ak sa zhodujú, počítadlo sa zvýši.

Zrkadlový obraz

Pre zadané číslo vypíšte jeho zrkadlový obraz.

Číslo je vstupná hodnota, a kým bude väčšie ako 0, bude sa vykonávať cyklus. Číslo sa načítava po cifrách a cifra sa pridá k reťazcu, ktorý je už načítaný v premennej obrathod.

Palindrom

Vytvorte program, ktorý zistí, či je zadané číslo palindrom (pri čítaní odpredu aj odzadu je rovnaké, napr. 123321 je palindrom).

Cyklus prebehne pevne stanovený počet krát, závisí od dĺžky slova. Porovnávame znak na začiatku slova so znakom na konci slova. Ak sa rovnajú, cyklus pokračuje, ak nie, zastaví sa a vypíše, že nie je palindróm. Máme tu teda aj podmienený cyklus if pri porovnávaní a aj pri výpise.

Párne a nepárne pozície

Zadaný string rozdeľte na dva - do prvého vložte znaky na párnych, do druhého znaky na nepárnych pozíciách.

Program s cyklom s pevným počtom opakovaní – závisí od dĺžky zadaného slova. Použijeme operáciu mod 2 (t.j. celočíselné delenie 2). Takže z obrázku vyplýva, že ak bude zvyšok 1, slovo zapíšeme do stĺpca slovo1, ak bude 0 tak do slovo2.

Každý znak len raz

Pre zadaný reťazec vypíšte zoznam znakov, ktoré sa v ňom nachádzajú - každý len raz.

Program nie je náročný, ide o cyklus s pevným počtom opakovaní, jediné čo musíme zabezpečiť, že ak sa niektorá hláska v slove opakuje, tak ju nesmieme viackrát vypísať. Preto použijeme premennú poc a počítame výskyt. Ak je poc=1, vypíšeme hlásku.