tantangan bolot II

[Anta]

Bolot adalah orang yang lemah dalam perkalian, sudah 4x dia enggak lulus kelas 1 SD hanya karena matematikanya merah...
tolongin Bolot donk untuk membuat suatu program yang dapat menampilkan bilangan x dan bilangan y berapa yang dapat menjadikan suatu n bilangan...

contoh:
12 dapat terjadi dari perkalian:
4 x 3
6 x 2
12 x 1

17 dapat terjadi dari perkalian:
1 x 17

100 dapat terjadi dari perkalian:
10 x 10
20 x 5
25 x 4
50 x 2
100 x 1

tingkat kesulitan : PEMULA

[awan]

nih hasilnya

Code: [Select]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
x,i : integer;



begin
  { TODO -oUser -cConsole Main : Insert code here }
  writeln;
  writeln(' Program Pemfaktoran');
  write(' Angka yang Ingin Difaktorkan = ');readln(x);
  writeln;

  //cek angka satu satu dari 1 ampe x...
  for i := 1 to x do
  begin
    //lakuin pembagian x dengan i,kalo habis dibagi brarti itu faktornya...
    if (x mod i = 0) then
      writeln(' ',i,' x ',(x/i):0:0);
  end;

  readln;
end.

ada bug dimana diulang 2 kali pengecekan...
hmm...
gmn yah...kalo si for pertama x nya dijadiin setengah x tuh ada error message...
incompatible...integer n extended...ntu gmn tuh?ampe bingung ngurusnya...^___^...

[Dhanny]

Petunjuk :
Pengecekan ga usah dilakukan sampe x
(ingat namanya jg pemfaktoran,
 cukup ampe nilai pembagi terkecil)

[awan]

update dah beres nih
 

Code: [Select]

program PTantanganBolot2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
x,i : integer;



begin
  { TODO -oUser -cConsole Main : Insert code here }
  writeln;
  writeln(' Program Pemfaktoran');
  write(' Angka yang Ingin Difaktorkan = ');readln(x);
  writeln;

  //cek angka satu satu dari 1 ampe x...
  for i := 1 to x do
  begin
    //lakuin pembagian x dengan i,kalo habis dibagi brarti itu faktornya...
    if (x mod i = 0) then
      begin
        if i < (x/i) then
          writeln(' ',i,' x ',(x/i):0:0);
      end;
  end;

  readln;
end.


[Dhanny]

kurang sempurna
 
yg perlu diperbaiki tuh yg buat for
jd ga usah nambah if lg

nilai : 75

[bobby hr'w'n]

gw lanjutin yang awan ajah yah gini bukan pa

Code: [Select]

program pFaktoer_bener;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
x,i : integer;



begin
  { TODO -oUser -cConsole Main : Insert code here }
  writeln;
  writeln(' Program Pemfaktoran');
  write(' Angka yang Ingin Difaktorkan = ');readln(x);
  writeln;

  //cek angka satu satu dari 1 ampe x...
  for i := 1 to x do
  begin
    //lakuin pembagian x dengan i,kalo habis dibagi brarti itu faktornya...
          writeln(' ',i,' x ',(x/i):0:0);
      end;
  readln;
end.

[Dhanny]

^
apa bedanya ama si awan?

[bobby hr'w'n]

^
apa bedanya ama si awan?

kan katanya gak perlu if??tanpa if pun bisa da

[Dhanny]

kan katanya gak perlu if??tanpa if pun bisa da

yah program itu mah salah x
ntar dia nampilin semua hasil dengan semua pembagi?
ga mgk lha

yg namanya faktorial kan artinya harus abis dibagi
alias hasil baginya sisa 0

[awan]

nilai : 75

cuma 75?widih...itu dapet A ato B ato C ato D?
hmm...masa cuma 75?
hasilnya kan sama ajah?
malah si programmer kan menunjukan kreatifitasnya? ...[weeekeekekekek....muji diri ndiri...hehe...]
hmm...jadi kudunya gmn?
si batas akhir teh ga bisa dibagi 2...T___T...ampe pusing,...gerrrrrrrrrrr...gmn yah?
bisa kasi petunjuk lagi?ato skalian kasi jawabnya?wekekekekekek...

[Dhanny]

kayanya masih ada yg maw jawab sih
jd kayanya jawabannya g tunda aja deh
ampe ada yg jawab lg

ingat:
variabel pencacah untuk for itu kan harus integer
operasi integer pun memiliki fungsi pembagi
sehingga dapat dilakukan pembagian untuk variabel pencacah tsb.

gt deh kira" petunjuknya

[awan]

fungsi pembagi?hmm...apaan yah...
duh jadi ga bisa tidur nti saya nih pa...
gmn yah?
kalo mod nti nyari abis dibagi...
kalo div nti nyari sisa pembagian...
gmn yah?

[Dhanny]

fungsi pembagi?hmm...apaan yah...
duh jadi ga bisa tidur nti saya nih pa...
gmn yah?
kalo mod nti nyari abis dibagi...
kalo div nti nyari sisa pembagian...
gmn yah?

lha itu dah u jawab sdr
jgn mikir tll jauh lha
keep it simple

yg u butuh tuh kan hasil baginya doang kan?
ga butuh yg belakang" nya
n kayanya pengertian div n mod u kebalik deh

mod tuh buat nyari sisa hasil bagi
div tuh buat nyari hasil bulat bagi

[awan]

mod tuh buat nyari sisa hasil bagi
div tuh buat nyari hasil bulat bagi

wekekekek...bener...saya coba emang tebalik ternyata...thengkiu...hmm...sayangnya saya jadi pusing...padahal dengan make if jadi lebih simple tampaknya...coz ini saya bikin make x div 2 tapi hasil tetep kecetak doble...jadi mnurut saya tetep make if...

nih kode make div

tapi tetep kecetak doble...much better yg di atas...

Code: [Select]

program PTantanganBolot2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
x,i,y : integer;



begin
  { TODO -oUser -cConsole Main : Insert code here }
  writeln;
  writeln(' Program Pemfaktoran');
  write(' Angka yang Ingin Difaktorkan = ');readln(x);
  writeln;

  y := (x div 2);
  //cek angka satu satu dari 1 ampe x...
  for i := 1 to y do
  begin
    //lakuin pembagian x dengan i,kalo habis dibagi brarti itu faktornya...
    if (x mod i = 0) then
          writeln(' ',i,' x ',(x/i):0:0);
  end;

  readln;
end.
bisa kasi analisis lagi?zzzzzz...jadi pusink...padahal simple yah...

[awan]

jadi kesimpulan gw gabung antara div n if...

jadi gini...

Code: [Select]

program PTantanganBolot2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
x,i,y : integer;



begin
  { TODO -oUser -cConsole Main : Insert code here }
  writeln;
  writeln(' Program Pemfaktoran');
  write(' Angka yang Ingin Difaktorkan = ');readln(x);
  writeln;

  y := (x div 2);
  //cek angka satu satu dari 1 ampe x...
  for i := 1 to y do
  begin
    //lakuin pembagian x dengan i,kalo habis dibagi brarti itu faktornya...
    if (x mod i = 0) then
      begin
        if i < (x/i) then
          writeln(' ',i,' x ',(x/i):0:0);
      end;
  end;
  readln;
end.