Sorting

J: mengurutkan nilai dari kecil ke besar (sorting)
K: sorting(arr[]<-int,batas<-int)

i,j,temp <- integer
arr[]<-integer
D: sorting(arr[]<-int,batas<-int)

{

array[]={3,5,2,4,1}
i=0,j=0
while(i<5) do
while(j<5) do
if (arr[i]>arr[j]) then
temp<-arr[i]
arr[i]<-arr[j]
arr[j]<-temp
else output (arr[i])
end if

return arr[]

}

Konversi Jam to Detik

J:konversi Jam to Detik
K:procedur JtoD(convert<-char)
D: jam, menit, detik <- int
if(convert=’jam’) then
input (detik)
hasil<- detik/3600
output(“Detik Ke Jam adalah: “)
output hasil
else if(convert=’detik’)
input (jam)
hasil<-jam*3600
output (“Jam ke Detik adalah: “)
output(hasil)
else output (error)
end if
end if
end if
}

Konversi Rupiah

J: Konversi Rupiah
K: procedure nominal(angka<-int)
D:
{
if(angka==1) then output (“satu”)
else if (angka==2) then output (“dua”)
else if (angka==3) then output (“tiga”)
else if (angka==4) then output (“empat”)
else if (angka==5) then output (“lima”)
else if (angka==6) then output (“enam”)
else if (angka==3) then output (“tujuh”)
else if (angka==3) then output (“delapan”)
else if (angka==3) then output (“sembilan”)
else if (angka==3) then output (“Sepuluh”)
else if (angka==3) then output (“Sebelas”)
else if (angka>=12 and angka<=19)
then (angka%10)
output (“belas”)
else if (angka>=20 and angka<=99)
then (angka%10)
output (“Puluh”)
else if (angka>=100 and angka<=199)
then (angka%100)
output (“seratus”)
else if (angka>=200 and angka<=999)
then (angka%100)
output (“ratus”)
else if (angka>=1000 and angka<=1999)
then (angka%1000)
output (“seribu”)
else if (angka>=2000 and angka<=999999)
then (angka%1000)
output (“ribu”)
else if (angka>=1000000 and angka<=999999999)
then (angka%1000000)
output (“juta”)

return angka;

}

Mencari Angka Max

J: mencari angka Max
K: function search(min,max),Nmax
D: function minmax(data[]<-integer,batas<-integer)
{
/// Maximal
x<-int,Nmax;
x=0
Nmax=arr[0];
while(x<Nmax)
do Nmax=arr[x]
x++;
end while
return Nmax;

}

Mencari Sifat Segitiga

J: mencari Sifat Segitiga
K: segitiga(sisi1<-integer,sisi2<-integer,sisi3<-integer)->string
D: segitiga(sisi1,sisi2,sisi3)

procedure segitiga(sisi1,sisi2,sisi3<-int)
{
if (sisi1=sisi2 or sisi2=sisi3 or sisi1=sisi3)
then output (“Segitiga Sama Kaki”)
else if (sisi1=sisi2 and sisi 2=sisi3)
then output (“Segitiga Sama Sisi”)
else
output (“Segitiga Sembarang”)
end if
end if
end
}

Mengetahui Bilangan Ganjil/Genap/Kabisat

J: Mengetahui Bilangan Ganji/Genap/Kabisat

K: function bilangan(angka<-integer)

D: function bilangan(angka<-integer)
{
if(angka%2==0) then
if(angka%4==0) then
output (“Bilangan Genap Kabisat)
else
output (“Bilangan Genap”);
else if(angka%2==1) then
output (“Bilangan Ganjil”);
end if

Mengetahui huruf Vokal/Konsonan

function vocal(huruf[]<-char)
{
if(huruf==’a’||huruf==’A’||huruf==’i’||huruf==’I’)||
huruf==’u’||huruf==’U’)||huruf==’e’||huruf==’E’)||
huruf==’o’||huruf==’O’)) then
output (“Bilangan Vokal”)

else output (“Bilangan Konsonan”)

end if

}

Fungsi menghitung Nilai Mahasiswa

J= Menghitung nilai mahasiswa
K= function Nmhs(tgp,utp,uap,tgt,utt,uat<-real)->char
D=
procedure Nmhs(tgp,utp,uap,tgt,utt,uat<-real)
Jumnil<-real
Nilmhs,matkul,jenis<-char

if(jenis<-‘T’)
then jumnil<-(0.25*tgt)+(0.35*utt)+(0.4*uat)
else if (jenis<-‘P’)
then jumnil<-(0.2*tgp)+(0.4*utp)+(0.4*uap)
else if (jenis<-‘TP’)
then jumnil<-(0.1*tgt)+(0.2*utt)+(0.2*uat)+(0.05*tgp)+(0.2*utp)+(0.25*uap)

if(jumnil >=85)
then Nilmhs<-‘A’
else if(jumnil >=75)
then Nilmhs<-‘B’
else if(jumnil >=60)
then Nilmhs<-‘C’
else if(jumnil >=50)
then Nilmhs<-‘D’
else if(jumnil <50)
then Nilmhs<-‘E’
end if
}