Acid IT Center

Sesuai dengan judulnya, program kali ini adalah program Linked List tidak terurut disertai perintah/ menu penyisipan simpul baru yang diketahui lokasinya. Program ini dibuat menggunakan bahasa pemrograman PASCAL.

Source Code-nya adalah :

program link_list;
uses crt;
const
MAX = 1000;

var
simpul,i,chk,start,pil,ruang,x,t,nos,temp : integer;
info:array [0..MAX] of integer;
next:array [0..MAX] of integer;

procedure check;
begin
x:=1;
while info[x] <> 0 do
begin
x:=x+1;
end;
end;

procedure insert;
label 10,20;
begin
for i:= 1 to simpul do
begin
20:
write('Masukkan Nomor Simpul yang akan diisi : ');
readln(x);
if info[x] <> 0 then
begin
writeln('Simpul Sudah Terisi !');
goto 20;
end;
write('Masukkan Info Simpul ke ',x,' : ');
readln(info[x]);
10:
write('Masukkan next ',x,' : ');
readln(chk);
if (next[chk] = x) or (chk=x) then
begin
writeln('Input Salah !');
goto 10;
end
else
begin
next[x]:=chk;
end;
end;
end;

procedure tampil;
begin
writeln('Linked List ');
writeln;
i := start;
write('|',start,'|-');
if next[i] = 0 then
begin
write('|',info[i],'|',next[i],'|');
end;
while next[i] <> 0 do
begin
write('|',info[i],'|',next[i],'|-');
i:=next[i];
if next[i] = 0 then
begin
writeln('|',info[i],'|',next[i],'|');
end;
end;
end;

procedure avail;
begin
writeln('Avail List ');
writeln;
check;
if x > ruang then x:=0;
write('|',x,'|');
for i := 1 to ruang do
begin
if info[i] = 0 then
begin
t:=i+1;
while info[t] <> 0 do
begin
t:=t+1;
end;
if t < = ruang then
begin
next[i]:=t;
end
else
begin
next[i]:=0;
end;
write('-|',info[i],'|',next[i],'|');
end;
end;
end;

procedure sisip;
label ulangi;
var
loc:integer;
begin
check;
if x = (ruang +1) then
begin
writeln('Ruang Sudah Penuh !');
readkey;
end
else
begin
ulangi:
write('Masukkan Lokasi : ');readln(loc);
if info[loc] = 0 then
begin
writeln('Lokasi Salah !');
goto ulangi;
end;
write('Masukkan Data : ');readln(info[x]);
temp := next[loc];
next[loc] := x;
next[x]:=temp;
end;
end;
Read more…

Hmm…pas saya liat statistik blog saya di Google (pada bagian webmaster), ada bagian Top Search Queries yang menunjukkan kapan orang itu mampir ke blog saya melalui Google. Ternyata ada user yang gak sengaja mampir ke blog saya dengan menggunakan keyword “program caesar chiper dengan pascal“. Padahal di blog saya, gak ada tulisan tentang itu…hhi…aneh emang…

Karena hal aneh itulah, saya jadi tertarik untuk menuliskan program Caesar Cipher dengan menggunakan bahasa pemrograman Pascal. Biasanya, saya cenderung menggunakan bahasa pemrograman Visual Basic 6.0 dalam mebuat program untuk melakukan Enkripsi data. Berhubung saya sudah lama tidak menggunakan pascal, saya sedikit kerepotan juga dalam mebuat program ini. Namun, akhirnya program ini dapat saya selesaikan, walaupun belum sempurna. Tampilan program saya seperti ini :

Karena bahasa pemrograman Pascal adalah bahasa pemrograman yang berbasis teks, maka tampilannya kurang menarik. Hhe…

X : eaaa…ngomong gak penting…mana kodingannya ?

Ok, seperti biasa, untuk kode program adalah sebagai berikut :

Read more…

Halo, ketemu lagi dengan saya..hhe..dah kek acara TV aja..hmm..kali ini gw mo bahasa sedikit tentang bahasa pemrograman PASCAL. Sebenernya ide buat nyari potongan kode ini gara – gara tugas File Teks gw. Pas nama database yang mau di bukanya, salah ketik, eh dia malah muncul tulisan gini ” Error 2 : File Not Found“. Kalian semua (yang belajar PASCAL tentunya ) pasti pernah dunk minta input dari user yang kemudian di simpen kedalam sebuah variable yang udah di deklarin sebelumnya. Misalnya kalian punya program seperti ini :

program cek;
uses crt;
var a:integer;
begin;
clrscr;
write(‘Masukkan input : ‘);readln(a);
clrscr;
write(‘Input yang anda masukkan adalah : ‘);write(a);
readkey;
end.

Gak taunya user lupa neh kalo tipe datanya INTEGER, dia gak sengaja masukin huruf a. Hasilnya, ‘Error 106 : Invalid Numeric Format‘ …eaaa eaa eaaa…kalo masih di run di pascal seh enak, kita balik ke layar coding-nya. Kalo udah *.exe, langsung lenyap gak bersisa dah tu program..hhu..

Nah, karena gondok programnya masih ada error kaya gini, akhirnya googling-lah saya mencari solusi yang tepat. Waktu itu saya dapet dari salah satu website tentang PASCAL dari luar negeri. Read more…