The Ultimate Vision

Multi Palindrom di Pascal

2011-04-30T17:20:00.000-07:00

Kali ini kita akan belajar Multi Palindrom. Multi Palindrom sering kita gunakan untuk mempelajari logika dasar string di Pascal. Palindrome itu berasal dari bahasa Yunani yaitu Palindromos A Palindrome. Palindromos A Palindrome adalah kata atau kalimat yang sama dieja maju atau mundur(bacaan yang sama dieja pada kedua arah). Sebagai contoh sederhana adalah beberapa kata yang sederhana yaitu rotor, rotator, civic, madam, racecar, level, dan lain-lain. Untuk contoh lain yaitu kalimat palindrome adalah No lemon no melon, No devil lived on, dan sebagainya.Palindrom Latin "Sator Arepo Tenet Opera Rotas" sangat unik karena ia akan megulang kalimatnya lagi jika kita membentuk kata dari huruf pertama setiap kata kemudian disambung dengan huruf kedua setiap kata, dan seterusnya. Karena itu ia juga dapat disusun dalam sebuah kotak yang dapat dibaca secara vertikal maupun horisontal:

S A T O R

A R E P O

T E N E T

O P E R A

R O T A S

INPUT YANG DIBUTUHKAN

Input yang dibutuhkan untuk menghasilkan program yang dimaksud sebuah kata atau kalimat. Dimungkinkan kata atau kalimat tersebut mengandung fungsi palindrom sehingga hasilnya akan kelihatan.

Kode Programnya sebagai berikut:

Uses Crt;

type recin = record

data:String;

end;

recout = record

data:String;

jml:byte;

end;

Var

count:byte;

temp:recin;

tem:recout;

fi:file of recin;

fo:file of recout;

alpha:String;

Function Tango(s:String):String;

Var k:byte;

p:String;

Begin

p:=s;

For k:=1 To Length(s) Do

Begin

s[k]:=p[Length(s)-(k-1)];

End;

Tango:=s;

End;

procedure sneak(l:string);

var

i,j,n:byte;

bravo,beta,charlie:String;

begin

n:=length(l);

count:=0;

for j:= 1 to n-1 do

for i:= 2 to (n+1)-j do begin

bravo:=copy(l,j,i);

beta:=Tango(bravo);

if bravo=beta then begin

count:=count+1;

writeln('Polindrom ke-',count);

writeln(bravo);

end;

writeln('Jumlah Polindrom: ',count);

end;

Begin

Clrscr;

assign(fi,'multipal.in');

rewrite(fi);

Write('Masukkan Suatu Kalimat: '); Readln(alpha);

temp.data:=alpha;

write(fi,temp);

close(fi);

sneak(alpha);

assign(fo,'multipal.out');

rewrite(fo);

tem.data:=alpha;

tem.jml:=count;

write(fo,tem);

close(fo);

writeln;

writeln('============');

writeln('MULTIPAL.IN');

assign(fi,'multipal.in');

reset(fi);

read(fi,temp);

close(fi);

writeln(temp.data);

writeln;

writeln('=============');

writeln('MULTIPAL.OUT');

assign(fi,'multipal.out');

reset(fo);

read(fo,tem);

close(fo);

writeln(tem.jml);

Readln;

End.

Mencari kata terpanjang dengan Pascal

2010-08-21T02:21:00.002-07:00

Jika kita ingin mengetahui mana kata terpanjang dalam suatu kalimat, tentu bukanlah hal yang sulit untuk dilakukan. Contoh: Saya suka sekali berburu. Jika dihitung secara langsung kita tahu berburu adalah kata yang terpanjang.

Tapi ini akan menjadi masalah jika kita membuatkan program komputer. Perkara ini tidak mudah. Walaupun boleh dibilang tingkat kesulitannya masih rendah. Yang pertama kita harus pahami, bahwa suatu kalimat adalah kumpulan kata - kata yang dipisahkan oleh karakter spasi. Sehingga langkah - langkah yang harus kita lakukan adalah:

1. Kita hitung jumlah spasi yang ada dalam suatu kalimat, untuk menentukan jumlah kata.
2. Kita ambil satu persatu kata, dan ditampung kedalam array.
3. Kita hitung panjang karakter setiap kata yang sudah ditampung.
4. Urutkan kata tersebut dari yang panjangnya terpendek ke terendah.

Dari langkah - langkah diatas kita sudah bisa membuat programnya

1. Menghitung jumlah spasi.

for i:=1 to length(s) do
if s[i]=' ' then count:=count+1;

2. Menampung setiap kata kedalam array. Untuk melakukan kita harus melalui 2 langkah berikut:
a. Membuat prosedur untuk memotong kata dalam suatu kalimat.

procedure ambil(n:integer; st:string; var stout1:string; var stout2:string);
var
i,j:integer;
begin
j:=1;
while st[j] <> ' ' do begin
stout1:=copy(st,1,j);
inc(j);
end;
stout2:=copy(st,j+1,n);
end;

b. Menampung potongan - potongan kata kedalam array.

for i:=1 to count+1 do begin
n:=length(c[i]);
ambil(n,c[i],g[i],c[i+1]);
end;

3. Menghitung setiap kata.

b[i]:=length(g[i]);

4. Mengurutkan kata

for k:=1 to i do
for j:=k+1 to i do
if b[k]>b[j] then begin
t:=b[k];
l:=g[k];
b[k]:=b[j];
g[k]:=g[j];
b[j]:=t;
g[j]:=l;
end;

Setelah itu kita tinggal cetak kata yang urutannya terbawah untuk kata terpanjang. Berikut kode lengkapnya.

program hitung_kata;
uses crt;
var
s,l:string;
c,g:array[1..100] of string;
b:array[1..100] of integer;
n,i,j,k,t,p,count:integer;

procedure ambil(n:integer; st:string; var stout1:string; var stout2:string);
var
i,j:integer;
begin
j:=1;
while st[j]<>' ' do begin
stout1:=copy(st,1,j);
inc(j);
end;
stout2:=copy(st,j+1,n);
end;

begin
clrscr;
write('Masukkan kalimat: '); readln(s);
c[1]:=s;
count:=0;
for i:=1 to length(s) do
if s[i]=' ' then count:=count+1;
for i:=1 to count+1 do begin
n:=length(c[i]);
ambil(n,c[i],g[i],c[i+1]);
b[i]:=length(g[i]);
end;
for k:=1 to i do
for j:=k+1 to i do
if b[k]>b[j] then begin
t:=b[k];
l:=g[k];
b[k]:=b[j];
g[k]:=g[j];
b[j]:=t;
g[j]:=l;
end;
writeln('kata terpanjang adalah: ',g[i]);
readln;
end.

Semoga Bermanfaat.

Belajar Command Shell Linux (Basic)

2010-08-10T22:47:00.000-07:00

Linux adalah sistem operasi yang peminatnya semakin meningkat. Seiring dengan mahalnya harga software legal microsoft, orang mulai berduyun-duyun mempelajari Linux yang sebagian besar distro-nya Licenced free. Tapi bagi orang yang dasar komputernya sangat kurang tentu akan kesulitan mempelajarinya. Karena linux mayoritas dibuat hanya untuk tujuan pendidikan, pengembangan, dan pendukung jaringan. Bukan sebagai software pendukung kegiatan sehari - hari (daily used). Salah satu tembok tebal yang menghalangi orang mempelajari linux adalah command shell. Mempelajari command shell adalah wajib bagi anda yang belajar linux. Berbeda dengan Microsoft Windows yang menjadikan command shell sebagai pendukung. Linux menjadikan command shell sebagai dasar yang wajib dikuasai oleh penggunanya. Pada tulisan ini anda akan mendapatkan teknik - teknik dasar yang saya harap membantu anda memulai untuk belajar linux.

Ketika anda pertama masuk linux anda akan sudah disodori command shell-nya. Berikut adalah perintah - perintah yang anda bisa coba:

1. ls
Ini adalah perintah mendasar untuk melihat isi folder, tempat anda bekerja. Berikut ini adalah contoh tampilan saat anda menjalankan perintah ini.

perintah ini bisa dimodifikasi sesuai dengan kebutuhan. Seperti ls -F untuk melihat perbedaan antara file dengan folder.

Seperti pada gambar diatas folder ditandai dengan / dibelakang nama folder. Sedangkan yang lain adalah file. Selain itu anda bisa menggunakan ls -l untuk melihat secara detail atribut suatu file.

Atribut - atribut ini akan saya jelaskan pada tulisan yang lebih lanjut.

2. pwd.
Perintah ini berguna untuk mengetahui posisi folder dimana kita bekerja.

Seperti contoh diatas posisi folder tempat saya bekerja adalah: /home/natte

3. cd.
Perintah ini adalah perintah untuk masuk/berpindah folder. Contoh; saya memiliki beberapa folder seperti berikut ini:

Saya ingin masuk ke folder home. Maka, perintah yang saya jalankan adalah cd /home.

Gambar diatas menandakan saya sudah masuk ke folder home. Jika saya ingin keluar dari home maka perintah yang saya ketik adalah cd .. (titik dua kali).

4. mkdir.
Perintah ini berguna apabila anda ingin menambahkan folder baru. contoh mkdir baru, disini saya akan menambahkan folder bernama baru.

Jika kita ketik ls, maka folder baru sudah muncul.

5. rmdir

Perintah ini adalah kebalikan dari mkdir, yaitu untuk menghapus folder.

Perintah ini hanya anda bisa lakukan jika isi folder tersebut kosong.

6. cp
Perintah ini berfungsi untuk menyalin file/folder ke tempat lain. Contoh saya ingin menyalin file contoh8.c ke folder Desktop maka baris perintahnya adalah cp contoh8.c /home/natte/Desktop.

Jika anda masuk ke folder Desktop maka file contoh8.c sudah ada.
Materi dasar command shell sampai disini dulu. Jika ada kritik, saran dan pertanyaan silakan layangkan komentar.

Semoga Bermanfaat.

Kata Terbalik (Pascal)

2010-08-07T09:46:00.000-07:00

Membuat program membalik kata/kalimat bukanlah suatu hal sulit di pascal. Tetapi disini kita dituntut memahami bagaimana konsep string. Di dalam bahasa pascal string kita sering sebut sebagai array of char. Maka, bagaimana kita memahami konsep membalik kata/kalimat adalah dengan memanfaat metode array tersebut.

Contoh: S:='Saya ingin makan'

String diatas sebenarnya terdiri dari sekumpulan character. Apabila kita potong - potong maka penjelasannya seperti berikut:

S[1]:='S', S[2]:='a', S[3]:='y', S[4]:='a', S[5]:=' ', S[6]:='i', S[7]:='n', S[8]:='g',
S[9]:='i', S[10]:='n', S[11]:=' ', S[12]:='m', S[13]:='a', S[14]:='k', S[15]:='a',
S[16]:='n'.

Untuk membalik urutan karakter diatas kita perlu menampung dulu string ke variabel lain, agar nilai asli string tidak hilang.

P:=S

Setelah itu kita menggunakan rumus berikut untuk membaliknya.

For i:=1 to length(S) do
S[i]:=P[length(S)-(i-1)]

Berikut source code selengkapnya:

Program Membalik_Kalimat;
Uses Crt;

Function Terbalik(s:String):String;
Var i:integer;
p:String;
Begin
p:=s;
For i:=1 To Length(S) Do
Begin
s[i]:=p[Length(s)-(i-1)];
Write(s[i]);
End;
End;

Var kalimat:String;
Begin
Clrscr;
Write('Masukkan Suatu Kalimat: '); Readln(kalimat);
Writeln;
Terbalik(kalimat);
Readln;
End.

Semoga Bermanfaat.

Kompleksitas Algoritma Quick Sort

2010-08-05T03:36:00.000-07:00

Hal : Untuk Tugas Presentasi Mata Kuliah Algoritma & Pemrograman (Pra-S2 Ilmu Komputer UGM)

I. PEMBAHASAN

Quick sort juga disebut juga dengan partition Exchange sort. Disebut Quick Sort, karena terbukti mempunyai "average behaviour" yang terbaik di antara metode pengurutan yang lain. Disebut Partition Exchange Sort karena konsepnya membuat partisi-partisi, dan pengurutan dilakukan per partisi.

(i) pilih x E {a1, a2, ..., an} sebagai elemen pivot(median),
(ii) pindai tabel dari kiri sampai ditemukan elemen ap E x
(iii) pindai tabel dari kanan sampai ditemukan elemen aq ≤ x
(iv) pertukarkan ap <-> aq
(v) ulangi (ii) dari posisi p+1, dan (iii) dari posisi q-1, sampai kedua pemindaian bertemu di tengah tabel.

II. IMPLEMENTASI ALGORITMA

Misalkan tabel yang akan diurutkan adalah sbb:

Langkah pertama : Tentukan pivot(median), awal=p dan akhir=q.

Apakah nilai p lebih kecil pivot dan q lebih besar pivot. Jika ya increment(p) dan decrement(q), sampai nilai p lebih besar pivot dan q lebih kecil pivot.

Kemudian tukarkan nilai p ke q.

Lakukan lagi, sampai p lebih besar q (berhenti). Berikutnya untuk partisi sebelah kiri:

Tentukan pivot(median), awal=p dan akhir=q.

Apakah nilai p lebih kecil pivot dan q lebih besar pivot. Jika ya increment(p) dan decrement(q), sampai nilai p lebih besar pivot dan q lebih kecil pivot.

Kemudian tukarkan nilai p ke q.

Lakukan lagi, sampai p lebih besar q (berhenti). Berikutnya untuk partisi sebelah kiri:

Tentukan pivot(median), awal=p dan akhir=q.

Apakah nilai p lebih kecil pivot dan q lebih besar pivot. Jika ya increment(p) dan decrement(q), sampai nilai p lebih besar pivot dan q lebih kecil pivot.

Data telah terurut.

III. IMPLEMENTASI PROGRAM (PASCAL)

uses crt;

type
array100 = array[1..100] of integer;

var
data :array100;
datacount:integer;

procedure input(var d:array100;var n :integer);
var
i : integer;

begin
write('Masukkan jumlah data[maks 100] : ');readln(n);
for i := 1 to n do
begin
write('Data ke ',i,' : ');readln(d[i]);
end;
end;

procedure tukar(var a,b : integer);
var
t :integer;
begin
t:=a;
a:=b;
b:=t;
end;

procedure tampil(d:array100;n:integer);
var
i:integer;
begin
for i:=1 to n do
write(d[i],' ');
writeln;
end;

procedure quicksort(var d:array100; a,b:integer);
var
a1,b1,pivot: integer;
begin
a1:=a;
b1:=b;
pivot:=d[(a+b) div 2];
writeln('');
writeln('pivot : ',pivot);
repeat
while ( d[a1] < pivot ) do
begin
inc(a1);
end;

while ( d[b1] > pivot ) do
begin
dec(b1);
end;
readln;

write('a1 : ',a1,' = ',d[a1],' <=> b1 : ', b1,' = ',d[b1]);
writeln('');
if ( a1 <= b1 ) then
begin
tukar(d[a1],d[b1]);
writeln('hasil tukar ',d[a1],' ',d[b1]);
readln;
inc(a1);
dec(b1);
end;
until (a1>b1);
writeln('');
tampil(d,b);

if (a < b1) then
quicksort(d, a, b1);
if (a1 < b ) then
quicksort(d,a1, b);
end;

begin
input(data,datacount);
tampil(data,datacount);
quicksort(data,1,datacount);
writeln;
writeln('setelah data diurutkan');
tampil(data,datacount);
end.

IV. JOB DESCRIPTION

1. Agustan Latif
- Presenter, Editor Laporan.
2. Danang Nurdiansyah
- Program Revisor, Laporan & Blog Editor.
3. Danang Prabowo
- Presenter, Laporan
4. Danuri
- Presenter, Program Source & Revisor.
5. Dayat Subekti
- Laporan Source & Revisor, Blog Revisor.

Terima Kasih. Semoga bermanfaat.