Input jumlah uang kemudian outputkan dalam bentuk kalimat

//judul

uang yang ada di dompet

//kamus

jumUang <- long

void terbilang <- long integer x

//algoritma

input jumlah uang

terbilang(jumUang) output “Rupiah;

void terbilang(long integer x){
if(x=1){
output “Satu ”
}else if(x=2){
output “Dua”
}else if(x=3){
output “Tiga ”
}else if(x=4){
output “Empat”
}else if(x=5){
output “Lima”
}else if(x=6){
output “Enam”
}else if(x=7){
output “Tujuh”
}else if(x=8){
output “Delapan”
}else if(x=9){
output “Sembilan”
}else if(x=10){
output “Sepuluh”
}else if(x=11){
output “Sebelas”
}else if(x>=12 and x<=19){
terbilang(x mod 10)
output “Belas”
}else if(x>=20 and x<=99){
terbilang(x/10)
output “Puluh”
terbilang(x mod 10)
}else if(x>=100 and x<=199){
output “Seratus”
terbilang(x-100)
}else if(x>=200 and x<=999){
terbilang(x/100)
output”Ratus”
terbilang(x mod 100);
}else if(x>=1000 and x<=1999){
output “Seribu”
terbilang(x-1000);
}else if(x>=2000 and x<=999999){
terbilang(x/1000)
output “Ribu”
terbilang(x mod 1000);
}else if(x>=1000000 and x<=999999999){
terbilang(x/1000000)
output “Juta”
terbilang(x mod1000000)
}

Notasi Algoritma : Mencari selisih keliling 2 lingkaran

//judul

menghitung selisih keliling 2 lingkaran

//kamus

nilai_awal   <-integer        {nilai 2}

r1     <-real        {jari-jari lingkaran 1}

r2    <-real       {jari-jari lingkaran 2}

phi  <- real              {nilai 3.14}

kel1 <- real        {keliling lingkaran 1}

kel2 <- real        {keliling lingkaran 2}

selisih_keliling <- real               {selisih keliling lingkaran}

//algoritma

///mencari keliling lingkaran 1

input r1

keliling <-2*3.14*r1

output “kel1”

///mencari keliling lingkaran 2

input r2

keliling <- 2*3.14*r2

output “kel2”

///Selisih Keliling

selisih_keliling=kel2-kel1

output “selisih_keliling”

Ada 5 fakultas dengan if cara 1

if( fakultas=”fik” ){

output prodi “ti, si, ilkom, dkv, ftv, animasi, broadcasting”

}else if( fakultas=”feb” ){

output prodi “akuntansi, manajemen”

}else if( fakultas=”fkes”){

output prodi “kesmes, kesling, rmik”

}else if( fakultas=”fib”){

output prodi “sastra jepang, hotel, bahasa inggris”

}else if( fakultas=”ft”){

output prodi “teknik industri, teknik elektro, teknik biomedis”

}else{

output “tidak ada”

}

 

 

Notasi Algoritma : Menghitung Kebutuhan Keramik di KosanKu

//judul

menghitung kebutuhan keramik

//data

L.keramik = 30*30 = 900 cm

L.kamar = 250*300 = 75000 cm

total = L.kamar/L.keramik = 75000/900 = 83.34

karena yang dibutuhkan hasil lusinan maka 83.34/12 = 6.945         //dibulatkan aja jadi 7 lusin

//kamus

pj_kamar <- integer      {panjang keramik}

l_kamar <- integer        {lebar kamar}

pj_keramik <- integer       {panjang keramik}

l_keramik <- integer       {lebar keramik}

jml_keramik <- real      {luas_kamar/l_keramik}

jml_lusinan <- real      {jml_keramik/12}

luas_kamar <- integer    {pj_kamar*l_kamar}

luas_keramik <- integer   {pj_keramik*l_keramik}

//algoritma

input pj_kamar

input l_kamar

luas_kamar=pj_kamar*l_kamar

output “luas_kamar”

input pj_keramik

input l_keramik

luas_keramik=pj_keramik*l_keramik

output “luas_keramik”

jml_keramik=luas_kamar/luas_keramik

output “jml_keramik”

jml_lusinan=jml_keramik/12

output “jml_lusinan”

 

 

Notasi Algoritma : Menghitung Luas dan Volume Tabung

//Judul

Menghitung luas tabung

//Kamus

nilai awal <- integer {nilai 2}

phi <- real      { konstanta }

jari_jari <- integer   { jari-jari tabung }

tinggi <-integer   {tinggi tabung }

luas <-real     { luas seluruh permukaan tabung }

//Algoritma

input nilai awal {nilai 2}

input phi

input jari_jari

input tinggi

luas <- nilai awal*phi*jari_jari ( jari_jari+tinggi)

output “luas”

//Judul

Menghitung volume tabung

//Kamus

phi <- real             {konstanta}

jari_jari <- integer       { jari-jari tabung }

tinggi <- integer     { tinggi tabung }

volume <-real     { volume tabung }

//Algoritma

input phi

input jari_jari

input tinggi

volume <- phi*jari_jari*jari_jari*tinggi

output “volume”

Muhammad Pramudia Adriansyah Blogs__