Új hozzászólás Aktív témák

• #1680 Cxgrav senior tag várnarancs #1677

  Új Válasz 2006-12-19 12:23:05 #1680

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Cxgrav

  senior tag

  válasz várnarancs #1677 üzenetére

  Hali!
  
  Elküldtem a hatványozós prg-t a gmailos címedre. Elég favágó lett a prg, mert idő hiányában 10 perc alatt összedobtam, de remélem megfelel.

• #1679 Lortech addikt várnarancs #1677

  Új Válasz 2006-12-14 21:32:36 #1679

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Lortech

  addikt

  válasz várnarancs #1677 üzenetére

  Hatványozni mindössze ennyi:
  eredmeny := alap;
  for i := 1 to kitevo - 1 do eredmeny := eredmeny * alap;
  
  Ha kifejezetten csak kétjegyűekre kell működjön, addig kérsz be, amíg 10 és 100 között nem lesz a szám ( pl repeat until), az eredmeny real kell legyen legalább, mert longintben a 74^5 már túlcsordul. Az eredményt writeln(eredmeny:0:0 formában lehet kiiratni).
  
  

Új hozzászólás Aktív témák