tantangan bolot II

[Dhanny]

ampun deh nih anak
mikirnya kesusahan tuh
if nya ilangin atuh
ga perlu
nih jadinya kaya gini aja
ini yg simplenya yah
sapa taw bang Anta punya yg lebih efisien

Code: [Select]

program PPaBolotII;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var x, i : integer;

begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Masukkan bilangan yang akan difaktorkan : ');readln(x);

  for i := 1 to round(sqrt(x)) do
  begin
        if (x mod i = 0) then
                writeln(i,' x ', (x div i):5);
  end;
  readln;
end.


[bobby hr'w'n]

ampun deh nih anak
mikirnya kesusahan tuh
if nya ilangin atuh
ga perlu
nih jadinya kaya gini aja
ini yg simplenya yah
sapa taw bang Anta punya yg lebih efisien

Code: [Select]

program PPaBolotII;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var x, i : integer;

begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Masukkan bilangan yang akan difaktorkan : ');readln(x);

  for i := 1 to round(sqrt(x)) do
  begin
        if (x mod i = 0) then
                writeln(i,' x ', (x div i):5);
  end;
  readln;
end.


wew bener2 simple gituh...btw round apa pa?

[Dhanny]

wew bener2 simple gituh...btw round apa pa?

oya lupa jelasin
buat nyari hasil faktorial gt
kan paling kecil tuh pembaginya adalah 2
jd bisa aja pake div 2
tapi permasalahan muncul
karena untuk angka yg gd,
pasti muncul 2 x

analisa berikutnya adalah:
ambil misalkan angka 100,
faktorial terbesarnya kan : 10 x 10

ct lain misalkan angka 400,
faktorial terbesarnya adalah : 20 x 20

jd kan seolah-olah itu mah
hasil akar pangkat 2

oleh karena itu berarti maksimum pengulangan cukup ampe sqrt(x)
tapi permasalahan lain muncul
yaitu buat pencacah for harus bertipe integer
sementara sqrt tuh kan fungsi yg harus bertipe real
jd gmn?

analisa berikutnya:
Untuk hal seperti ini,
yg qta butuhkan adalah hasil bulat baginya
jadi kenapa ga hasil sqrt nya dibulatkan saja?
jadilah gunakan fungsi round
round tuh buat membulatkan hasil bagi
jadi round itu fungsi yg bertipe integer
cb aja liat help nya delphi

semoga ngerti deh
maap kl acak"an bahasanya
maklum lg banyak kerjaan nih
jd ngetiknya ala kadarnya aja

[awan]

wah...thengkiu banget nih pa...so helpfull...mayan nambah lagi infonya...make round...^___^...
dah ga pnasaran lagi dah...dah bisa bobo tenang...wekekekek...tinggal blajar kalkulus...nyam nyam...yummy...^___^...

[Anta]

yah, jawabannya juga udah cukup simpel kok, blm nemu yang lebih optimize lg... ada juga yang lebih brute force.

[zinggles]

^
bahaya klo brute force..kompie lelet bisa ngehang tuh..apa lagi klo loopingnya banyak..huahuahuauha..

[Anta]

^
bahaya klo brute force..kompie lelet bisa ngehang tuh..apa lagi klo loopingnya banyak..huahuahuauha..

makany bruteforce yang terstruktur dunk.. 

[awan]

bruteforce teh apa?rumit?complicated?ato gmn?pro yah?...hmm...

[khocho]

Astaga exis bener uy...
Wahhh ada tantangan baru ga...
Biar gue bisa jawab..
Kalo yang ngejawab soal ini..
Udah di bajak ma awan n bobi...

[zinggles]

@awan : bruteforce = cara kekerasan(brutal)
maen sikat semua..jadi ga d pikir efisiensinya..gitu..

[sike]

ikutan jawab ah.......
tolong periksa dong... pny ak efisien ga?
kalo kgk dimananya,.,,,,


var
  bil,i : integer;

begin
write('Masukkan bilangan :');readln(bil);
i:=1;
  repeat
   if (bil mod i = 0)
     then writeln(i ,' * ', bil div i);
     inc(i);
  until(i > bil div i);

readln;
end.

[Dhanny]

Boleh jg sih
cuma indentasinya tolong dirapihin yah
inc(i) itu sejajar dgn if
karena inc(i) bukan bag dari then