Generování čísel dané soustavy – Pascal – Fórum – Programujte.com

Zdravím, potřeboval bych trochu pomoct s jedním programem. Dělali jsme podobný, kde soustava obsahovala prvky 0,1, ale to jsme si zapsali jen jak zhruba by ten program měl vypadat. Zadaní je:

Napište program, který načte čísla K, N a vypíše všechna Kciferná čísla z Nkové soustavy (tj. používající cifry 0..N-1). Aby to nebylo úplně jednoduché, tentokrát už nám vadí, když by číslo mělo začínat nulou - nebereme ho za Kciferné (ale méněciferné), takže taková čísla nevypisujte. Např. pro vstup K=2, N=3 by program měl vypsat:

       10
       11
       12
       20
       21
       22

Díky předem :o)

A s čím tedy potřebuješ pomoci? Připrav pole o K prvcích, prvky na začátku vynuluj (krom prvního - tam dej rovnou 1) a pak přičítej postupně k poslednímu (nezapomeň na přenos mezi řády když dosáhneš čísla většího než je N-1  -  nicméně pro desítkovou soustavu se ta metoda učila už někdy ve 2. třídě základní školy (tedy pokud se to nestihlo přesunout na vysokou nebo tak - ani bych se tomu dneska nedivil))

#1 John

Mno pascal neumim , vysvetlovat se mi to taky moc nechce ale staci se kouknout treba na prevody soustav ale KIIV-uv napad neni k zahozeni.

mala ukazka v C#

int k = 2, n = 3; // K a N

int i =(int) Math.Pow(n, k - 1); // start od n na k-1 (mene ciferne nechcem)
int[] vystup = new int[k + 1];   // zde ukladame vysledek 
while(true)
{
    int mod = i, j = 0;
    while (true)  // prevod z 10 na n soustavu
    {
        vystup[j] = mod % n;
        mod = mod / n;
        j++;
        if (mod == 0)
            break;
    }
    if (vystup[k] != 0)   // vice ciferne? -> prestanem
        break;
    for(int c = k -1 ;c>=0;c--)  // vypis cisla
    {
        Console.Write(vystup[c]);
    }
    Console.WriteLine();
    i++;
}

#1 John
Milý Johne, nezapisovali jsme to až tak zhruba, navíc na webu jsem zveřejnil přímo kód, který ty nula/jedničky generuje. Nedělej z místních hlupáky.

Kdyžtak se máš zeptat mne, a ne takhle pokoutně shánět pomoc. Pokud by ti někdo poradil a já si toho všiml, studium by pro tebe mohlo skončit rychleji, než by ti bylo milé. Proto doporučuji těchto metod nadále nevyužívat.

Jakub T.