Minggu, 25 April 2010

In Porses


Minggu, 04 Januari 2009

Insertion Sort

Insertion Sort adalah pengurutan dimulai dari data ke-2 sampai
dengan data terakhir, jika ditemukan data yang lebih kecil,
maka akan ditempatkan (diinsert) diposisi yang seharusnya.
Pada penyisipan elemen, maka elemenelemenlain akan bergeser
ke belakang.



Sabtu, 27 Desember 2008

Selection Sort

Selection Sort adalah metode pengurutan yng membandingkan elemen sekarang dengan elemen berikutnya sampai ke elemen yang terakhir. Jika ditemukan elemen-elemen lain yang lebih kecil dari elemen sekarang maka dicatat posisinya dan langsung ditukar.

Codingnya



Bubble Sort

Bubble Sort adalah suatu metode pengurutan yang membandingkan elemen sekarang dengan elemen berikutnya. Apabila elemen yang sekarang > elemen berikutnya maka sisanya ditukar, kalau tidak maka tidak perlu ditukar.

Codingnya

Selasa, 23 Desember 2008

Rekursif

Contoh porgram yang menggunakan Fungsi Rekursif, sebagai berikut:








Minggu, 21 Desember 2008

Perkalian Metriks



Perkalian Dua Buah Metriks :

Kedua metriks harus memiliki bentuk x*y untuk metriks A dan y*z untuk metriks B, sehingga
Metriks hasil perkalian akan memiliki bentuk x*z untuk metriks C.
Jadi, (x*z)=(x*y)*(y*z)



Penjumlahan Metriks





Minggu, 30 November 2008

Mengnalisa Huruf Vokal dan Konsonan

~Program dan Output

Senin, 20 Oktober 2008

Segitiga Angka Terbalik

Menentukan dapat tidaknya diskon

Algoritma menentukan dapat tidaknya diskon
Deklarasi
x: integer
Deskripsi
read (x)
if (x > 100000)
write ("Dapat diskon")
else
write("Tidak dapat diskon")
endif

Menentukan Bil. Positif or Negatif

Algoritma menentukan bil. posifif or negtif
Deklarasi
x: integer
Deskripsi
read (x)
if (x > 0)
write ("Bil. Positif")
else if (x<0)
write ("Bil. Negatif")
else
write("bil. netral")
endif
~Program dan Output

Menentukan Bil. Terbesar

Algoritma bil. terbesar
Deklarasix, y: integer
Deskripsi
read (x)
read (y)
if (x > y)
write ( x )
else if (x < y)
write ( y )
else
write("bil. sama besar")
endif

~Progrm dan Output

Selasa, 14 Oktober 2008

Segitiga (TM4)

~Algoritma

Deklarasi
tinggi, baris, colom : integer
tinggi : 3
Deskripsi
for baris <- 1 to tinggi do
for colom <- tinggi down to baris
write("*")
colom <- colom-1
baris <- baris+1
~Flowchart

~Program dan Output

Lembar Fotocopy (TM4)

~Algoritma
Deklarsi
lembar: int
Deskripsi
for lembar <- 0 to 50 do
write(lembar)
write(lembar*100)
lembar <- lembar +1
endfor


~Flowchart


~Program
~Output

Senin, 13 Oktober 2008

Segitiga Angka Terblik (TM4-Nyerah)

~Program dan OutputGimana caranya agar deret angkanya dari baris pertama sampe akhir dimulai dari angka 1?
Nyerah sampe sini...

Fungsi: Gaji Bersih (TM4)

~Program ~Output

Minggu, 12 Oktober 2008

Deret Bil. Prima 1-100 (TM4)

~Algoritma loop for bil. prima
Deklarasi
awal, akhir, cek, bagi : integer
Deskripsi
for awal = 1 to 100 do

cek = 0
for bagi = 1 to awal do
jika awal sisa baginya (%) oleh bagi = 0
cek = cek+1
jika cek hanya bernilai 2
write awal

awal = awal +1
endfor


~Flowchart

~Program~Output

Sabtu, 11 Oktober 2008

Segitiga Bintang Bintang(TM4)

~Program ~Output

Jumat, 10 Oktober 2008

Cara Mudah & Sederhana dalam Mengcopy Data

Saya membuat blog ini hanya sekedar ingin membantu siapa saja yang merasa kesulitan dalam mengcopy kalimat dari web ke MS. Word
Caranya:

Pasti kita akan men-select kalimat yang akan di copy -> klik kanan mouse, pilih copy.

Lalu pada MS. Word kita klik kanan mouse -> pilih paste
hasilnya akan seperti ini, masih ada warna backgroud, warna tulisan tidak merata. Jika seperti ini kita masih harus mengedit tulisan tersebut.Agar lebih mudah dan praktis kita akn gunkn car sederhana yaitu dengan menggunakan Notepd

paste di Notepad kalimat yg tadi kita perlukan

lalu kita copy lagi
paste di Mr. Word
lihat dan bandingkan! (atas dan bawah)
tidak ada yang perlu di edit lagi di Ms. Word bukan?

Selmat mencoba.... semoga dapat membantu..... thx... ~,^v

Sabtu, 27 September 2008

While & Do While (TM3)

1. Menampilkan Bil. Genap 1-20 dengan while
~Algoritma
Deklarasi
x: integer
Deskripsi
x<- 1
while(x<=10)
write(x*2)
x <- x+1
endwhile
~Flowchart


~Program
Menampilkan Bil. Ganjil 30-50 dengan while
~Algoritma
Deklarasi
x: integer
Deskripsi
x <- 16
while(x<=30)
write(x*2-1)
x <- x+1
endwhile
~Flowchart ~Program
2. Menampilkan Bil. Kelipatan 7 1-50 dengan do while
~Algoritma
Deklarasi
x : integer
Deskripsi
x <- 1
do
write(x*7)
x <- x+1
while(x<=7)
~Flowchart ~Program
3. Menampilkan deret bintang ke bawah dengan do while
~Algoritma
Deklarasi
x,y : integer
Deskripsi
x <- 3
y <- 1
do
z : integer
z <-1
do
write(" ")
z <- z+1
while(z<=y)


a : integer
a <- x
do
write("* ")
a <- a-1
while(a>=y)

write(endl)
y <- y+1
while(y>=x)

~Flowchart

~Program