Triple Sorting : Selection, Bubble dan Insertion

24 12 2011

Dalam menggunakan program Free Pascal, begitu banyak algoritma program yang dapat kita buat untuk membantu kita dalam melakukan prosedure terurut. berikut adalah salah satu contoh sintax program sorting yang penulis rancang menggunakan Free Pascal.

 

Program sorting;
uses wincrt,crt;
var biggie :integer ;
procedure selection;
var

x:array[1..10]of integer;
i,j,n,a,imaks,temp:integer;
begin
clrscr;
writeln(‘Berapa banyak bilangan yang anda inginkan ? ‘);readln(n);
writeln(‘Masukkan ‘,n:1,’ bilangan:’);
begin
for i:=1 to n do
readln(x[i]);

for i:=n downto 2 do
begin
imaks:=1;
for j:=2 to i do
if x[j]<x[imaks] then
imaks:=j;
for a:=1 to n do
write(x[a],’ ‘);writeln;
temp:=x[imaks];
x[imaks]:=x[i];
x[i]:=temp;
end;

for a:=1 to n do
write(x[a],’ ‘);
end;
end;
procedure bubble;
type tnum = array [1..10] of integer ;
procedure bubblesort (var numbers : tnum ; batas : integer );

var t,q ,tukar: integer ;
begin
for t := 1 to batas-1 do
begin
for q := t +1 to batas do
Begin
if numbers [t] > numbers [q] then
begin
tukar := numbers [t] ;
numbers [t] := numbers [q] ;
numbers [q] :=tukar ;
end ;
end ;
end ;
end;

procedure tampilkan(numbers : tnum ; batas, x, y : integer );
var
n : integer ;

begin
for n:=1 to batas do
begin
gotoxy (x,y+n) ;
write ( numbers [n] : 3 ) ;
end ;
end ;
var num : tnum ;
n,b,i : integer ;

begin
clrscr ;
writeln(‘Berapa angka yang Anda inginkan ? ‘); readln(b);
writeln(‘Masukkan ‘,b:1,’ bilangan:’);
begin
for i:=1 to b do
readln(num[i]);
end;
clrscr;
write (‘bilangan yang di cek Bilangan setelah diurutkan’) ;
tampilkan (num, i, 8, 2 );
bubblesort (num, i) ;
tampilkan ( num, i,40,2 );
readln ;
end;
procedure insertion;
var
a : array[1..10] of integer;
i, n : integer;

procedure insertion_sort;
var
i, k : integer;
nilai : integer;
m : boolean;
begin
for i := 2 to n do
begin
nilai := a[i];
k := i;
m := false;
while not m do
begin
if k <= 1 then
m := true
else
if nilai >= a[k-1] then
m := true
else
begin
a[k] := a[k-1];
k := k-1
end
end;
a[k] := nilai;
end
end;
begin
clrscr;
writeln(‘Berapa banyak bilangan yang anda inginkan ?’);
readln(n);
writeln(‘Masukkan ‘,n:1,’ bilangan:’);
for i := 1 to n do
read(a[i]);

insertion_sort;

for i := 1 to n do
write(a[i]:1,’ ‘);
writeln;
readln;
readln;
end;
begin
clrscr ;
writeln (‘ MENU SORTING ‘) ;
writeln (‘(1) Selection ‘) ;
writeln (‘(2) Bubblesort ‘);
writeln (‘(3) insertsort ‘);
write (‘Pilihan Anda = ‘) ; readln (biggie);
clrscr ;
case biggie of
1 : begin
selection;
end ;
2 : begin
bubble ;
end ;
3 : begin
insertion;
end ;
end ;
readln;
end.

 

Sekian dari penulis, semoga bermanfaat. Terimakasih…





Menyelesaikan Limit dalam Maple

29 03 2011

Hello semuanya…

Hmmm… kali ini saya mencoba sedikit menjadi tutorial dalam mengoperasikan Maple. salah satu software penting yang dapat membantu menyelesaikan tugas dalam perkuliahan.

Langkah pertama, buka program Maple sehingga nampak seperti pada gambar dibawah ini.

langkah kedua, pilih menu yang ditunjukkan oleh tanda panah berikut :

langkah ketiga, masukkan fungsi limit yang akan diselesaikan pada tulisan yang diblok. kemudian, ketik fungsi limitnya, seperti pada contoh dibawah ini.

langkah selanjutnya masukkan syarat dari fungsi pada text yang diblok berikut ini:

misalnya untuk fungsi diatas diberikan syarat fungsi sebagai berikut.

kemudian tekan enter. maka akan muncul :

Selanjutnya bila ingin mengetahui grafik dari fungsi limit tadi maka masukkan perintah ‘plot’ pada rumus. misalanya :

lalu tekan enter. maka akan tampak grafik seperti pada gambar dibawah ini.

sekian dan terima kasih.





Sejarah Singkat Bug Pertama

23 03 2011


Bug yang pertama kali dicatat adalah seekor ngengat (moth) yang menabrak dan mati disalah satu Relay Computer Mark II, sehingga menyebabkan mesin tersebut berhenti beroperasi. Peristiwa ini pertama kali diketahui oleh Grace Murray Hopper, yang kemudian mengambil ngengat tersebut , menyimpan dibuku catatannya,serta menulis “First Actual Case of Bug Being Found”.
Sejak saat itu, kata bug ang digunakan untuk menunjukkan adanya kesalahan pada program computer (syntax, error maupun logic error), sedangkan debugging berarti mencari , melokalisasi dan mengoreksi kesalahan computer.

Sumber refrensi : Buku Logika Mathematical untuk Ilmu Komputer, karangan F. Soesianto dan Djoni Dwijono, Penerbit ANDI YOGYA, 2006.





Logika Matematika untuk Ilmu Komputer

23 03 2011

Dalam kehidupan kita sehari-hari, ilmu matematika sudah biasa kita dengar dan kita pelajari dari bangku sekolah dasar. Mathematical merupakan pelajaran wajib dan mencakup semua bidang ilmu lainnya. Apalagi dizaman modern sekarang ini ilmu teknologi semakin merajai ilmu-ilmu dan penemuan baru didunia. Teknologi sangat berperan penting bagi masyarakat modern sekarang ini.
Artikel ini akan dibahas sedikit tentang kaitan matematika dengan ilmu dalam bidang lainnya. Khususnya dalam bidang computer.
Bila kita berbicara tentang matematika, kita akan banyak berfikir secara logika. Sehingga dalam ilmu matematikapun ada pembelajaran khusus tentang logika yang disebut dengan logika matematika.
Logika (logic) berasal dari kata bahasa Yunani yaitu “logos”. Dalam bahasa Inggris berarti “word”, “speech”, atau “what is spoken”, lebih dekat lagi degan istilah “thought” atau “reason”. Oleh karena itu, definisi logika adalah ilmu pengetahuan yang mempelajari atau berkaitan dengan prinsip-prinsip dari penalaran argument yang valid.
Dahulu logika dipelajari sebagai salah satu cabang filosofi atau ilmu filsafat. Akan tetapi, sejak tahun 1800an logika dipelajari di bidang matematika dan sekarang ini juga dibidang ilmu computer. Karena logika mempengaruhi ilmu computer dibidang perangat keras maupun perangkat lunaknya.
Logika secara umum berhubungan dengan penalaran deduktif (deductive reasoning) yang hanya secara umum mengambil kesimpulan dari premis-premisnya. Berbeda dengan penalaran induktif (inductive reasoning ), yakni studi tentang pengambilan kesimpulan umum yang diperoleh dari suatu penelitian atau observasi.
Istilah logika matematika diperkenalkan kali pertama oleh Giuseppe Peano (1858-1932), seorang ahli matematika dari Italia yang memublikasikan bukunya di tahun 1887 yang membahas tentang logika matematika. Dalam buku tersebut ia juga memperkenalkan symbol-simbol modern union dan intersection untuk kali pertama. Boleh dikatakan Peano adalah penemu logika matematika dan teori himpunan.
Hubungan logika matematika dengan ilmu computer adalah, logika matematika merupakan dasar-dasar yang penting bagi seseorang jika ingin belajar algoritma, teknik-teknik pemrograman berstruktur, dan teknik pemrograman berorientasi obyek yang dalam penulisan programnya sangat erat kaitannya dengan logika.

Sumber refrensi : Buku Logika Mathematical untuk Ilmu Komputer, karangan F. Soesianto dan Djoni Dwijono, Penerbit ANDI YOGYA, 2006.





Sahabat Selamanya

16 03 2011


Menghianati dan meninggalkan seseorang yang telah menjadi sahabat lebih berat daripada menghianati dan meninggalkan seorang kekasih.
tapi ingatlah, Tak ada Bekas Sahabat… yang ada hanya Bekas Pacar.
Sahabat untuk selamanya walaupun kita tak dapat berjumpa lagi…





Bahasa Kalbu

12 03 2011

Mata indah itu

Rambut lebat itu

Hidung mancung itu

Suara yang merdu itu

Tubuh yang tegar itu

Pasti akan rapuh disuatu hari nanti

 

Hati yang lembut

Jiwa yang tenang

Raga yang pasrah

Menyambut datangnya hari itu

Saat mata terpejam dalam gelap

Terbujur Kaku diatas tangisan

 

Kami dating karena kehendak-Mu

Kami kembali atas kehendak-Mu pula

Kami tahu Engkau-lah sang Maha Kuasa

Tak ada yang Kuasa melebihi Engkau, Ya Rabb





Tahukah Anda Bagaimana Tipe Perilaku Anda ??

6 03 2011

Hello, blogger…

Berikut penulis ingin menguraikan sedikit pembahasan penting yang dikutip dari sebuah buku yang berjudul Berpikir Cerdik (People Smarts) karangan Tony Alessandra, Michael J. O’Connor bersama Janice Van Dyke. Buku tersebut membahas tentang gaya perilaku seseorang secara umum yang sering kita temukan dalam kehidupan sehari –hari. Gaya perilaku yang akan dibahas penulis disini berhubungan dengan tipe perilaku sesorang. Perlu kita ketahui definisi dari tipe perilaku itu sendiri. Tipe perilaku adalah sebuah pola, sekelompok kebiasaan yang berulang, berpusat pada bagaimana cara kita berurusan dengan orang lain dan situasi. Ada empat tipe perilaku orang yang berbeda-beda dalam mencapai kesuksesan dalam menjalankan hidup.

Baca entri selengkapnya »