Armstrongovo číslo – Visual Basic – Fórum – Programujte.com

Přirozené číslo se nazývá Armstrongovo, je-li rovno součtu třetích mocnin svých cifer (např. 153 = 13 + 53 + 33 ). Nalezněte všechna Armstrongova čísla do daného N.

Prosím o pomoc. Nevím si s tím rady.

Řešení hrubou silou: projdeš všechna čísla od 100 do 999, rozložíš na cifry (dělení 100, 10 a zbytek po dělení 10), spočítáš ty mocniny a sečteš. Porovnáš s právě testovaným číslem. Pokud bude stejné tak vypíšeš.

A neměl byste někdo už hotové řešení?

for z = 100 to 999

  a = z \ 100

  b = (z mod 100) \ 10

  c = z mod 10

  e = a*a*a + b*b*b + c*c*c

  if z = e then

    'něco

  end if

next

Nalezněte všechna Armstrongova čísla do daného N !!

Anonymní uživatel napsal:
Nalezněte všechna Armstrongova čísla do daného N !!

Anonymní uživatel napsal:
Nalezněte všechna Armstrongova čísla do daného N !!

for x = 1 to N

    a = x

    b = 0

    while (a > 0)

        c = a mod 10

        b = b + (c * c * c)

        a = a \ 10                                

    end while



    If (x = b) then

	'neco

    end if

next

Vše moc díky za pomoc a PROSÍM o VYMAZÁNÍ této diskuze. Děkuji