Niaar Biggie

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…

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.

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…

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

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 »