SEM INF 6.10.2010

Pokračovanie v číslach... 

    Na dnešnej hodine sme zase robili so zaujímavými číslami, konkrétne s armstrongovým, ktoré som charakterizovala na prvej hodine. 

Program, ktorý zistí, či je zdané číslo Armstrongovo

***

program armstcislo;
uses Crt;
var a,za,s,pc : integer;
begin
  clrscr;
  writeln('Zadaj cislo o ktorom chces vediet ci je Armstrongove:');
  readln(a);
  s:=0;
  za:=a;
  while a<>0 do begin
    pc:=a mod 10;
    s:=s+pc*pc*pc;
    a:=a div 10;
  end;
  if za=s then writeln('Cislo nie je Armstrongove.')
  else writeln('Cislo nie je Armstrongove.');
  readln;
end.

***

Tento program je tu.
Aplikácia je tu.
Program pracoval na princípe: zobral si tretiu cifru, a jej tretiu mocninu pričítam k súčtu, potom vezmem druhú a jej tretiu mocninu pričítam k súčtu...a potom prvú a tiež ju pričítam k súčtu, a zistím či sa ten súčet rovná zadanému číslu.

Nájdi všetky Armstrongove čísla 

***

program najdiarmstcislo;
uses Crt;
var a,za,s,pc : integer;
begin
  clrscr;
  za:=100;
  for za:=100 to 999 do begin
    s:=0;
    a:=za;
    while a<>0 do begin
      pc:=a mod 10;
      s:=s+pc*pc*pc;
      a:=a div 10;
    end;
    if za=s then writeln(za);
  end;
  readln;
end.

***

Tento program je tu.
Aplikácia je tu.
Tento program pracoval na princípe: robí to to isté čo ten program pred tým, ale číslo sa nezadáva, ale berie sa každé od 100 po 999. 

Koniec hodiny.