Daftar Soal Algoritma Pemrograman (ALPRO)

Beranda

...

Programmer Forum
Daftar Soal Algoritma Pemrograman (ALPRO)

DarknessTalic

11-03-2011 17:15

Daftar Soal Algoritma Pemrograman (ALPRO)

Soal :
Soal Fizz Buzz
Soal angka spiral
Konversi angka menjadi kata
Persegi dari input
Segitiga
Variasi pola 1
Variasi pola 2
Pola T dan Segitiga sama kaki
Menghitung jumlah kata
Memisah kata
Memecah karakter

Jawaban :
Fizz buzz :
Pseudo-code

Angka spiral
Pseudo-code

Another pseudo-code

Konversi angka menjadi kata
Pseudo-code

Persegi dari input
Pseudo-code

Segitiga
C

Variasi pola 1
C (1-3)
Pseudo-code

Variasi pola 2
Pseudo-code

Pola T dan Segitiga sama kaki
Pseudo-code

Menghitung jumlah kata
Pseudo-code

Memisah kata
Pseudo-code

Memecah karakter
Pseudo-code
Pascal
Pseudo-code

Soal + Jawaban deret kuadrat
Soal + Jawaban kotak dari bintang
Soal + Jawaban deret 121
Soal + Jawaban segitiga dari bintang (Perbaikan jawaban)
Soal + Jawaban validasi password sederhana

BFS

nona212 memberi reputasi

218.1K

Kutip

3.3K

Balasan

Komentar yang asik ya

Mari bergabung, dapatkan informasi dan teman baru!

Programmer Forum

20.3KThread•5.1KAnggota

Tampilkan semua post

ekadp

22-03-2011 14:15

#180

Quote:

Original Posted By marcadian►

Code:



input : n

misalkan ada 3 ^ n sapi dalam suatu barisan,tiap sapi dinyatakan dgn simbol @, sapi2nya suka berantem kalo sebelahan, untuk itu ada dipindahkan sebagian ke tempat lain, cara mindahinnya : 

selama masih ada yang sebelahan, buang 1/3 sapi yang di tengah (ganti dengan spasi)



contoh untuk n = 3

@@@@@@@@@@@@@@@@@@@@@@@@@@@

buang 1/3 yang di tengah



jadi

@@@@@@@@@ @@@@@@@@@



trus masing2 bagian di buang lagi 1/3 yang tengahnya



@@@ @@@ @@@ @@@



masih ad yang nempel, masing2 dibuang lagi 1/3 yang di tengah

@ @ @ @ @ @ @ @



nah karena udah ga ad yang nempel, prosesnya berhenti 

format input : tiap baris berisi N, baca ampe EOF

format output : tiap baris berisi 1 konfigurasi akhir dimana pada konfigurasi awal terdapat 3 ^ N sapi



sample input

0

1

3





sample output

@

@ @

@ @ @ @ @ @ @ @

comot dari online judge emoticon-Big Grin

solusi ane:

Spoiler for "solusi":

Code:



//fungsi pecah 1/3 bagian

fungsi pecah(s:string)

{

 if panjang_string = 1 then return s //kondisi berhenti rekursi



 //pemecahan ke 3 bagian

 kiri <- copy(s, 1, panjang_string div 3)

 tengah <- ''

 for a <- 1 to panjang_string div 3 { tengah <- tengah + ' ' }

 kanan <- copy(s, 2*(panjang_string div 3)+1, panjang_string div 3)



 //pemecahan berantai

 kiri <- pecah(kiri)

 kanan <- pecah(kanan)



 //pengembalian nilai

 return kiri+tengah+kanan

}



input n

jml <- 3 ^ n //bisa pake fungsi Power kl di pascal



//rangkai kalimat awal

kalimat <- ''

for a <- 1 to jml 

{ 

 kalimat <- kalimat + '@'

}



//operasi rekursi

pecah(kalimat)

cetak kalimat

petunjuk, bayangkan kotak yang masih bisa dipecah lagi. pakailah kertas coret2 utk membuat bagannya, krn kalau ga digambar ini susah dipahami emoticon-Smilie

Kutip

Balas