Amstrongove číslo

GamerSK · Napísal **GamerSK**: 14.02.2017 18:01

Zdravím zasa sem píšem lebo neviem či mám dobrý kód.
Program mal vygenerovať všetky čísla od 1 po 10 000 čo aj urobí potom má tieto čísla rozdeliť na cifry a potom tieto cifry vynásobiť 3x takže číslo 3 bude 27(3*3*3). Vniknuté číslo sa má porovnať s vygenerovaným číslom takže 3≠27 v takomto prípade sa nič nevykoná. Ale ak sa bude nejaké číslo rovnať súčtu cifier tohto čísla tak sa splní podmienka a toto číslo sa vypíše na obrazovku.
Napísal som tento program potrebuje ešte doladiť :shock:

Kód:

program amstrongovocislo;
{$APPTYPE CONSOLE}
uses SysUtils;
var cf,c,i,t:word;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  t:=0;
  for i:=1 to 10000 do
    begin
      c:=i;
      while c<>0 do
        begin
          cf:=c mod 10;
          c:=c div 10;
          t:=t+(cf*cf*cf);
        end;
      if i=t then writeln(i);
    end;
  readln;
end. 

Miso122 · Napísal **Miso122**: 14.02.2017 18:11

t si vynuluj až vo for cykle

GamerSK · Napísal autor témy **GamerSK**: 14.02.2017 18:16

takže tento program je dobrý?

Kód:

  for i:=1 to 10000 do
    begin
      t:=0;
      c:=i;
      while c<>0 do
        begin
          cf:=c mod 10;
          c:=c div 10;
          t:=t+(cf*cf*cf);
          if i=t then writeln(i);
        end;
    end; 
 

Program mi vypísal

Kód:

Miso122 · Napísal **Miso122**: 14.02.2017 18:20

To už máš príliš ďaleko. Na miesto kde aj priradujes c:=i; daj a t:=0;

A tu if podmienku až za whole cyklus

GamerSK · Napísal autor témy **GamerSK**: 14.02.2017 18:22

takze takto

Kód:

  for i:=1 to 10000 do
    begin
      t:=0;
      c:=i;
      while c<>0 do
        begin
          cf:=c mod 10;
          c:=c div 10;
          t:=t+(cf*cf*cf);
        end;
      if i=t then writeln(i);
    end;

program vypisal

Kód:

void · Napísal **void**: 14.02.2017 18:26

Mas umocnit na 3. jednotlive cifry cisla, spocitat ich a porovnat s povodnym cislom.
371 = 3^3 + 7^3+ 1^3 =
27 + 343 + 1 = 371

Miso122 · Napísal **Miso122**: 14.02.2017 18:28

To by malo byť správne

GamerSK · Napísal autor témy **GamerSK**: 14.02.2017 18:30

Teraz som našiel trochu zložitejší program https://www.trsek.com/zadania/arm_cis2 ktorý mi vypísal čísla od 1 po 9 a potom 153, 370, 371, 407 co mam ale este vypisal 1634, 8208 a 9474 co nemam

Miso122 · Napísal **Miso122**: 14.02.2017 18:38

Skús si tie čísla overiť a uvidis že je to blbosť

GamerSK · Napísal autor témy **GamerSK**: 14.02.2017 18:40

OK Ďakujem všetkým za ochotu!

Amstrongove číslo

Podobné témy