- Beranda
- Programmer Forum
Daftar Soal Algoritma Pemrograman (ALPRO)
...
TS
DarknessTalic
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
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
1
217.3K
3.3K
Guest
Tulis komentar menarik atau mention replykgpt untuk ngobrol seru
Mari bergabung, dapatkan informasi dan teman baru!
Programmer Forum
20.2KThread•4.3KAnggota
Tampilkan semua post
ekadp
#24
1234 ke Satu Ribu Dua Ratus Tiga Puluh Empat
Quote:
wah pertanyaannya menarik
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
0