Daftar Soal Algoritma Pemrograman (ALPRO)

Beranda
Komunitas
Tech
Programmer Forum
Daftar Soal Algoritma Pemrograman (ALPRO)

DarknessTalic

11-03-2011 10: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

217.3K

Kutip

3.3K

Balasan

Tulis komentar menarik atau mention replykgpt untuk ngobrol seru

Tampilkan semua post

ekadp

12-03-2011 15:50

#24

1234 ke Satu Ribu Dua Ratus Tiga Puluh Empat

Quote:

Original Posted By rockes13►hmmm,
ane nambahin 1 lgi yee emoticon-Big Grin

hasil running dari program nye sbb :

Code:



input angka : 1342

output : seributigaratusempatpuluhdua

pertanyaan :
1. Tolong bwt algoritma dari ilustrasi program di atas (dg ketentuan inputan nya angka bebas 1 s/d 10000000000)
2. Tolong hitung jumlah karakter yg muncul sbg output.

wah pertanyaannya menarik emoticon-Smilie

Code:



 FUNCTION string NilaiKeAngka(integer N);

 {

 switch / case N of

 {

 0 : return "Nol"

 1 : return "Satu"

 2 : return "Dua"

 ...

 9 : return "Sembilan"

 }

 }



//*************** Trilyun ***************



 Rp <- ''

 ribu <- Trunc(angka / 1.000.000.000.000)

 if ribu > 0 then

 {

 strBelakang <- 'trilyun'

 

 ratus <- Trunc(ribu / 100) 

 if ratus > 0 then

 {

 strRatus <- 'ratus'

 }

 else

 {

 ratus <- Trunc(ribu / 10) 

 if ratus > 0 then

 {

 if ratus = 1

 strRatus <- 'belas'

 else

 strRatus <- 'puluh'

 }

 else

 {

 ratus <- Trunc(ribu / 1)

 strRatus <- '' 

 } 

 }

 strAngka <- NilaiKeAngka(ratus)



 //penggabungan string-nya

 Rp <- Rp + strAngka + ' ' + strRatus + ' ' + strBelakang + ' '

 

 //pengurangan angka

 angka <- angka - (ribu * 1.000.000.000.000)

 }





//*************** Milyar ***************



 ribu <- Trunc(angka / 1.000.000.000)

 if ribu > 0 then

 {

 strBelakang <- 'milyar'

 

 ratus <- Trunc(ribu / 100) 

 if ratus > 0 then

 {

 strRatus <- 'ratus'

 }

 else

 {

 ratus <- Trunc(ribu / 10) 

 if ratus > 0 then

 {

 if ratus = 1

 strRatus <- 'belas'

 else

 strRatus <- 'puluh'

 }

 else

 {

 ratus <- Trunc(ribu / 1)

 strRatus <- '' 

 } 

 }

 strAngka <- NilaiKeAngka(ratus)



 //penggabungan string-nya

 Rp <- Rp + strAngka + ' ' + strRatus + ' ' + strBelakang + ' '

 

 //pengurangan angka

 angka <- angka - (ribu * 1.000.000.000)

 } 





//*************** Juta ***************





 ribu <- Trunc(angka / 1.000.000)

 if ribu > 0 then

 {

 strBelakang <- 'juta'

 

 ratus <- Trunc(ribu / 100) 

 if ratus > 0 then

 {

 strRatus <- 'ratus'

 }

 else

 {

 ratus <- Trunc(ribu / 10) 

 if ratus > 0 then

 {

 if ratus = 1

 strRatus <- 'belas'

 else

 strRatus <- 'puluh'

 }

 else

 {

 ratus <- Trunc(ribu / 1)

 strRatus <- '' 

 } 

 }

 strAngka <- NilaiKeAngka(ratus)



 //penggabungan string-nya

 Rp <- Rp + strAngka + ' ' + strRatus + ' ' + strBelakang + ' '

 

 //pengurangan angka

 angka <- angka - (ribu * 1.000.000)

 }





//*************** Ribu ***************





 ribu <- Trunc(angka / 1.000)

 if ribu > 0 then

 {

 strBelakang <- 'ribu'

 

 ratus <- Trunc(ribu / 100) 

 if ratus > 0 then

 {

 strRatus <- 'ratus'

 }

 else

 {

 ratus <- Trunc(ribu / 10) 

 if ratus > 0 then

 {

 if ratus = 1

 strRatus <- 'belas'

 else

 strRatus <- 'puluh'

 }

 else

 {

 ratus <- Trunc(ribu / 1)

 strRatus <- '' 

 } 

 }

 strAngka <- NilaiKeAngka(ratus)



 //penggabungan string-nya

 Rp <- Rp + strAngka + ' ' + strRatus + ' ' + strBelakang + ' '

 

 //pengurangan angka

 angka <- angka - (ribu * 1.000)

 }





//*************** Satuan ***************





 ribu <- Trunc(angka / 1)

 if ribu > 0 then

 {

 strBelakang <- ''

 

 ratus <- Trunc(ribu / 100) 

 if ratus > 0 then

 {

 strRatus <- 'ratus'

 }

 else

 {

 ratus <- Trunc(ribu / 10) 

 if ratus > 0 then

 {

 if ratus = 1

 strRatus <- 'belas'

 else

 strRatus <- 'puluh'

 }

 else

 {

 ratus <- Trunc(ribu / 1)

 strRatus <- '' 

 } 

 }

 strAngka <- NilaiKeAngka(ratus)



 //penggabungan string-nya

 Rp <- Rp + strAngka + ' ' + strRatus + ' ' + strBelakang + ' '

 

 //pengurangan angka

 angka <- angka - (ribu * 1.000)

 }

Dimana Trunc adalah pembulatan ke bawah, misalnya: 2,3 -> 2 atau 2,75 -> 2

PS. kode tersebut sengaja gak eike optimasi, agar lebih enak dibaca emoticon-Smilie

Kutip

Balas