Soal2 Logika Informatika

Bagi yang berminat untuk mempelajari logika matematika
dan ingin ikut PRa S2 di UGM, silahkan download beberapa soal disini :

http://www.ziddu.com/download/6704749/soaltugaslogikainformatika.pdf.html

Quisener Alumni Stikom 2

UMPAN BALIK PENGGUNA ALUMNI STIKOM UYELINDO KUPANG

Nama Perusahaan/Instansi :……………………………………………………
Alamat Perusahaan/Instansi :…………………………………………………….
Jumlah Alumni yang dipakai :…………..orang.
Jabatan/Posisi yang diberikan :…………………………………………………….

A. Penilaian Kemampuan Akademik.
1. Kemampuan akademik yang dimiliki dalam mendukung pekerjaan di instansi/perusahaan:
a. Sangat baik b. Baik c. Cukup d. Kurang.
2. Kemampuan dalam menjalankan pekerjaan sesuai bidangnya :
a. Sangat baik b. Baik c. Cukup d. Kurang
3. Kreatifitas dan Inovasi dalam pekerjaann:
a. Sangat baik b. Baik c. Cukup d. Kurang
4. Menurut anda, kurikulum pendidikan yang dimiliki STIKOM Uyelindo Kupang :
a. Sangat baik b. Baik c. Cukup d. Kurang
5.. Tenaga IT dengan kualifikasi seperti apakah yang anda butuhkan dan anda harapkan ? …………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………
6. Apa saran anda dalam rangka peningkatan kualitas intelektual STIKOM Uyelindo Kupang ?
……………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………
B. Penilaian Kemampuan non akademik
1. Tanggung Jawab dalam melaksanakan pekerjaan :
a. Sangat baik b. Baik c. Cukup d. Kurang
2. Kemampuan memimpin yang dimiliki :
a. Sangat baik b. Baik c. Cukup d. Kurang
3. Sikap, perilaku dan etika selama berada di tempat kerja :
a. Sangat baik b. Baik c. Cukup d. Kurang
4. Dalam menjalankan pekerjaan kecenderungan yang dimiliki :
a. Sebagai Inisiator b. Sebagai pelaksana .
5. Apa kekurangan/kelemahan yang dimiliki alumni STIKOM Uyelindo Kupang ?
………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………

…………………………….


……………………………
Atasan Langsung

Quisener Alumni Stikom 1

UMPAN BALIK ALUMNI STIKOM UYELINDO KUPANG

Nama Alumni :................................................NIM : ............
email :.......................................................
website/blog/facebook :...............................................................
Tahun tamat :.........................
Tahun Wisuda : ………… .......……………….
Pekerjaan :…………………………………………………………………………….
Instansi :…………………………………………………………………………….
Tahun Bekerja :…………………………………………………………………………….
Bagian/Unit :……………………………………………………………………………

A. Penilaian Kurikulum
1. Setelah berhadapan dengan dunia kerja secara nyata, korelasi antara mata kulia yang diajarkan dan situasi ril di lapangan menurut anda ?
a. Sangat berhubungan b. Tidak ada hubungan Hubungan sedikit.
2. Setelah memperhatikan kebutuhan dunia kerja anda dan software serta hard ware yang dipelajari :
a. Sangat mendukung b. Tidak mendukung c.Kurang mendukung
3. Penyesuaian kurikulum yang dilakukan oleh STIKOM Uyelindo searah dengan perkembangan IT saat ini :
a. Sangat baik b. Baik c. Cukup d. Kurang
4. Menurut anda, kurikulum pendidikan yang dimiliki STIKOM Uyelindo Kupang :
a. Sangat baik b. Baik c. Cukup d. Kurang
5. Apa saran anda dalam rangka peningkatan kualitas intelektual Out put STIKOM Uyelindo Kupang ?
……………………………………………………………………………………………………………………………………………………………………………………………………………………………………… ………………………………………………………………………………………………………………………..
B. Penilaian Kelembagaan.
1. Kebikana apa yang perlu dikembangkan di STIKOM Uyelindo Kupang sehingga bersinergi dengan dunia kerja ? : ………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………
2. Kemampuan tambahan apa yang perlu dimiliki dan diajarkan untuk mendukung dunia kerja ? ……………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………….
3. Bagaimana tanggapan pimpinan anda terhadap keberadaan STIKOM Uyelindo Kupang ? berkaitan dengan kualitas out put serta aspek lainnya ? ………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………
4. Apa yang perlu dilakukan lembaga untuk meningkatkan daya saing lulusan ? ……………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………….

…………………………….

……………………………
Alumni STIKOM Uyelindo

Program Stack dengan Linked List dalam Pascal

Contoh Listing Program dalam Pascal
{Algoritma dan struktur data}
Baca juga sumber :
http://en.wikipedia.org/wiki/Stack_(data_structure)


Program dengan STACK
1. Program Stack dengan List ( tipe data character )

Program StackdglinkedList;
uses wincrt;

type
PLinkedList = ^TlinkedList;
TLinkedlist = record
info : char;
next : PlinkedList;
end;

{menambah elemen baru pada stack}
Procedure Push(Var s:Plinkedlist; x:char);
var q : Plinkedlist;
Begin
new(q);
q^.info:=x;
q^.next:=s;
s:=q;
End;

function Pop(Var s :PlinkedList):char;
var t : PlinkedList;
Begin
if (s<>nil) then begin
t:=s;
pop:=s^.info;
s:=s^.next;
dispose(t);
end;
End;

Procedure Display(s:PlinkedList);
Begin
while s<> nil do begin
write(s^.info:5); s:=s^.next;
end;
writeln;
End;
{Program utama}
var a :Plinkedlist; y:char;
Begin
A:= nil;
push(A,'p');Push(A,'a');Push(A,'r');Push(A,'t');
Display(A);
REadln;
y:=Pop(A);
writeln('Hasil pop:',y);
readln;
y:=Pop(A);
writeln('Hasil pop:',y);
readln;
y:=Pop(A);
writeln('Hasil pop:',y);
readln;
y:=pop(A);
writeln('Hasil pop:',y);
readln;
End.
Output :t r a p
Hasil pop : t
Hasil pop : r
Hasil pop : a
Hasil pop : p

2. Program Stack dengan LinkedList ( tipe integer )

Program StackdglinkedList;
uses wincrt;
type
PLinkedList = ^TlinkedList;
TLinkedlist = record
info : integer;
next : PlinkedList;
end;


Procedure Push(Var s:Plinkedlist; x:integer);
var q : Plinkedlist;
Begin
new(q);q^.info:=x;q^.next:=s;s:=q;
End;

function Pop(Var s :PlinkedList):integer;
var t : PlinkedList;
Begin
if (s<>nil) then begin
t:=s; pop:=s^.info; s:=s^.next;dispose(t);
end;
End;

Procedure Display(s:PlinkedList);
Begin
while s<> nil do begin
write(s^.info:5); s:=s^.next;
end;
writeln;
End;

{Program utama}
var a :Plinkedlist; y:integer;
Begin
A:= nil;
push(A,7);Push(A,6);Push(A,1);
Display(A);
REadln;
y:=Pop(A);
writeln('Hasil pop:',y);
readln;
y:=Pop(A);
writeln('Hasil pop:',y);
readln;
y:=Pop(A);
writeln('Hasil pop:',y);
readln;
End.
Output : 1 6 7
Hasil pop : 1
Hasil pop : 6
Hasil pop : 7

3.Program stack
Program StackdglinkedList;
uses wincrt;

type
PLinkedList = ^TlinkedList;
TLinkedlist = record
info : integer;
next : PlinkedList;
end;


{menambah elemen baru pada stack}
Procedure Push(Var s:Plinkedlist; x:integer);
var q : Plinkedlist;
Begin
new(q);
q^.info:=x;
q^.next:=s;
s:=q;
End;

function Pop(Var s :PlinkedList):integer;
var t : PlinkedList;
Begin
if (s<>nil) then begin
t:=s; pop:=s^.info; s:=s^.next;dispose(t);
end;
End;

Procedure Display(s:PlinkedList);
Begin
while s<> nil do begin
write(s^.info:5); s:=s^.next;
end;
writeln;
End;

{Program utama}
var a :Plinkedlist; y:integer;
Begin
A:= nil;
push(A,2);Push(A,1);Push(A,7);Push(A,9);
Display(A);
REadln;
y:=Pop(A);
writeln('Hasil pop:',y);
readln;
y:=Pop(A);
writeln('Hasil pop:',y);
readln;
y:=Pop(A);
writeln('Hasil pop:',y);
readln;
y:=Pop(A);
writeln('Hasil pop:',y);
readln;
End

Output : 9 7 1 2
Hasil pop : 9
Hasil pop : 7
Hasil pop : 1
Hasil pop : 2

Program dengan algoritma rekursif dalam Pascal

Program dengan algorita rekursif

(baca sumber : recursive algorithms : http://en.wikipedia.org/wiki/Recursion_(computer_science))
{Catatan Ignas Lamabelawa}



1.Program Anagram



Program anagram;
uses crt;

Procedure anagram(st1,st2:string);
var i :integer; st :string;
begin
if st1='' then writeln(st2)
else for i:= 1 to length(st1) do begin
st:=st1;
delete(st,i,1);
anagram(st,st2+st1[i]);
end;
end;

{ program utama }
Begin
anagram('abc','');
readln;
End.




output :
abc
acb
bac
bca
cab
cba





2. Manara Hanoi


( baca Sumber : http://en.wikipedia.org/wiki/Tower_of_Hanoi)





Program menarahanoi;
uses wincrt;
var baris,x : integer;
ulangi :char;
Procedure hanoi(n :integer;A,B,C :Char);
Begin
if (n>0) then begin
hanoi(n-1,A,C,B);
write(baris,'. pindah piringan ke-',n, 'dari ',A,' ke ',B);readln;
inc(baris);
hanoi(n-1,C,B,A);
end;
End;

{program utama}
Begin
ulangi:='y';
repeat
baris:=1;
write('input jumlah piringan :');readln(x);
hanoi(x,'A','B','C');
readln;
write('apakah diulangi(Y/N):');readln(ulangi);
until (ulangi='N') or (ulangi='n');
End.

Output :

3. Program Konversi Desimal ke Biner
{Program rekursif untuk konversi bilangan desimal ke Biner}

program DesimalkeBiner;
uses wincrt;

procedure px(x:integer);
begin
if x>0 then begin
px(x-1);
write(x:5);
px(x-1);
end;
end;
function desbin(n:integer):string;
Begin
if n=0 then
begin
desbin:='0';
end
else
if n=1 then desbin:='1'
else desbin:=desbin(n div 2) + desbin(n mod 2);
End;

var n:integer;
begin
while true do begin
write('desimal='); readln(n);
writeln('biner=',desbin(n));
end;
end.

Output : desimal :5; biner :101

Program Binary tree dalam pascal

{ada beberapa fungsi/prosedur yang merupakan jawaban dari soal ujian tentang Binary Tree}

Program binary_tree;
uses
winCrt;

type
PBinaryTree = ^Node;
Node = record
Info: Integer;
Left: PBinaryTree;
Right: PBinaryTree;
end;
Type
Enums = (sama,beratkiri,beratkanan);

{const iscomplete=false;}


var
BinaryTree: PBinaryTree;

pilih : char;
selesai : char;
bil : integer;
data,code : integer;


function max(a,b : integer): integer;
Begin
if a < b then
max:=b
else
max:=a;
End;

Function kedalaman(bt : Pbinarytree):integer;
Begin
if (bt=nil) then
kedalaman:=0
else
kedalaman:= 1 + max(kedalaman(bt^.left), kedalaman(bt^.right));

End;

function setimbang(bt : PbinaryTree):boolean;
Begin
setimbang:=abs(kedalaman(bt^.left) - kedalaman(bt^.right)) <=1;

End;

function kesetimbangan(bt : Pbinarytree): EnumS;
{Enums = (sama,beratkiri,beratkanan);}

begin
kesetimbangan:=sama;
if (kedalaman(bt^.left) - kedalaman(bt^.right)) <=-1 then
kesetimbangan:=beratkanan
else
if (kedalaman(bt^.left) - kedalaman(bt^.right)) >=1 then
kesetimbangan:=Beratkiri;
End;


Procedure Putarkiri(var bt :Pbinarytree);
var
x : Pbinarytree;
Begin
x:=bt;
bt:=bt^.right;
x^.right :=bt^.left;
bt^.left:=x;

End;

Procedure Putarkanan(var bt :Pbinarytree);
var
x : Pbinarytree;
Begin
x:=bt;
bt:=bt^.left;
x^.left :=bt^.right;
bt^.right:=x;

End;


Procedure Putar(var bt :PbinaryTree);
Begin
if not (setimbang(bt)) then
if (kesetimbangan(bt) = beratkanan) then
begin
if (kesetimbangan(bt^.right) = beratkiri) then
begin
putarkanan(bt^.right);
putarkiri(bt);
end
else
if (kesetimbangan(bt) = beratkiri) then
begin
if (kesetimbangan(bt^.left) = beratkanan) then
putarkiri(bt^.left);
putarkanan(bt);
End;
end;
End;

function Find(bt: PBinaryTree; Search: Integer): Boolean;
begin
if (bt = nil) then
Find := False
else
if (Search < bt^.Info) then
Find := Find(bt^.Left, Search)
else
if (Search > bt^.Info) then
Find := Find(bt^.Right, Search)
else
Find := True;
putar(bt);
end;

function Delete(var bt: PBinaryTree; Info: Integer): Boolean;
var
x, y: PBinaryTree;
begin
if not(Find(bt, Info)) then
Delete := False
else
if (Info < bt^.Info) then
Delete := Delete(bt^.Left, Info)
else
if (Info > bt^.Info) then
Delete := Delete(bt^.Right, Info)
else
begin
x := bt;
if (x^.Right <> nil) then
begin
bt := x^.Right;
y := bt;
while (y^.Left <> nil) do
y := y^.Left;
y^.Left := x^.Left;
end
else
bt := x^.Left;
Delete := True;
end;
end;

Procedure hapusdata(var bt :Pbinarytree);
var
s : integer;
ulangi : char;
Begin
clrscr;
writeln('Hapus data ');
repeat
write('masukan node yang akan dihapus :');
readln(s);
if (Delete(bt,s)) then
writeln('Data jadi dihapus')
else
writeln('Data tidak ditemukan');
writeln;
write('ulangi(Y/T):');
ulangi:=readkey;
writeln;
until (upcase(ulangi)='T');
End;

function NodeCount(bt: PBinaryTree): Integer;
begin
if (bt = nil) then
NodeCount := 0
else
NodeCount := 1 + NodeCount(bt^.Left) + NodeCount(bt^.Right);
end;


function iscomplete(bt : PbinaryTree):boolean;
begin
if bt=nil then iscomplete:=false
else if (nodecount(bt) = 3) then iscomplete:=true
else iscomplete:=iscomplete(bt^.left) and iscomplete(bt^.right);

end;


procedure InOrder(bt: PBinaryTree);
begin
if (bt <> nil) then
begin
InOrder(bt^.Left);
Write(bt^.Info:6);
InOrder(bt^.Right);
end;
end;

procedure PreOrder(bt: PBinaryTree);
begin
if (bt <> nil) then
begin
Write(bt^.Info:6);
PreOrder(bt^.Left);
PreOrder(bt^.Right);
end;
end;

procedure PostOrder(bt: PBinaryTree);
begin
if (bt <> nil) then
begin
PostOrder(bt^.Left);
PostOrder(bt^.Right);
Write(bt^.Info:6);
end;
end;

Procedure level(bt:PbinaryTree);
Begin
clrscr;
writeln('kedalamanpohon :',kedalaman(bt));
write('tekan sembarang tombol');
readkey;
End;

function iselement(bt : Pbinarytree; invalue : integer) : integer;

var
number : integer;

begin
if bt = nil then
number := 0
else
begin
number := iselement(bt^.right, invalue)
+ iselement(bt^.left, invalue);

if bt^.info >= invalue then
number := number + 1
end;
iselement := number
end;

function Fx(bt : Pbinarytree; n :integer):integer;
begin
if bt=nil then Fx:=0
else
if n=1 then Fx:=1
else Fx:=Fx(bt^.left,n-1)+Fx(bt^.right,n-1);
end;

Procedure Insert(var bt: PBinaryTree; Info: Integer);
var
x: PBinaryTree;
begin
if (bt = nil) then
begin
new(x);
x^.Info := Info;
x^.Left := nil;
x^.Right := nil;
bt := x;
end
else
if (Info <= bt^.Info) then
Insert(bt^.Left, Info)
else
Insert(bt^.Right, Info);
end;


Procedure caridata(bt :Pbinarytree);
var
s : integer;
ulangi : char;
Begin
clrscr;
writeln('Pencarian data ');
repeat
write('masukan data yang akan dicari :');
readln(s);
if (find(bt,s)) then
writeln('Data Ditemukan')
else
writeln('Data tidak ketemukan');
writeln;
write('ulangi(Y/T):');
ulangi:=readkey;
writeln;
until (upcase(ulangi)='T');
End;

procedure Menu;
begin
WriteLn('Ordered Binary Tree');
WriteLn('===================');
WriteLn;
WriteLn('1. Input data');
WriteLn('2. Cari data');
WriteLn('3. Hapus data');
WriteLn('4. Jumlah node');
WriteLn('5. Tampilkan data secara In order');
WriteLn('6. Tampilkan data secara Pre order');
WriteLn('7. Tampilkan data secara Post order');
Writeln('8. Kedalaman Pohon');
writeln('9. ISElement');
writeln('x.putarkiri');
writeln('!. biner telusur');
writeln('@.pohon komplit');
WriteLn('0. Keluar');

WriteLn;
Write('Silahkan pilih (0-7): ');
end;

var i,n : integer;
begin
write('jumlah node:');readln(n);
selesai:='N';
repeat

menu;
readln(pilih);
case pilih of
'1' : begin
for i := 1 to n do
begin
write('input data ke ',i,' :');readln(bil);
insert(binarytree,bil);
end;
end;
'2' : begin
{ write('node yang dicari:');readln(bil);}
caridata(binarytree);
{writeln('ketemu : ',find(binarytree,bil));}
end;
'3' :begin
hapusdata(binarytree);
{write('node yang dihapus:');readln(bil);
writeln('Hapus : ',delete(binarytree,bil));
writeln;}
end;

'4' :begin
write('jumlah node :',nodecount(binarytree));
writeln;
end;
'5' : begin
inorder(binarytree);
writeln;
end;
'6' :begin
preorder(binarytree);
writeln;
end;
'7' : begin
postorder(binarytree);
writeln;
end;
'8' : begin
level(binarytree);
writeln;
end;
'9' :begin
writeln('mencek node yang sama:');readln(bil);
writeln('ketemu elemen yang sama: ',iselement(binarytree,bil));
end;
'x' : begin
putarkiri(binarytree);
writeln;
end;
'!' :begin
write('nilai:',Fx(binarytree,0));

end;
'@' : begin
writeln('complete : ',iscomplete(binarytree));
end;

'0' :begin
selesai:='Y';
end;
end;
readln;
until (selesai='Y') or (selesai='y');
end.
.

Soal Algoritma dan Struktur Data (2009)-1

SOAL ALGORITMA DAN STRUKTUR DATA

PRA S2 UGM 11 Agustus 2009

{ Catatan Ignas Lamabelawa }

1. Perhatihan prosedur rekursif berikut. Tunjukan proses dan hasilnya jika dipanggil dengan Px(77,49)

Procedure Px(a,b : integer);

Begin

If a>b then begin

Px(b,a);

Writeln(a,’ ‘,b);

end else

if a>0 then

Px(b-a,a);

Else

Writeln(b);

End;

2. Suatu array menyimpan informasi karakter. Buatlah procedure yang mengurutkan array tersebut sehingga urutannya menjadi vokal terlebih dahulu kemudian diikuti oleh konsonan. Jika awal dari array tersebut berisi (a,b,c,d,e,f,m,n,o,p) akan diurutkan menjadi ( a,e,o,b,c,d,f,m,n,p).

3. Data 8,60,87,66,17,21,23,38,80,9,44,85,28,39,84 ingin dimasukan dalam pohon AVL. Tunjukan dengan ilustrasi pertumbuhan pohon AVL yang awalnya kosong dan gambarkan juga proses penambahan simpul satu per satu termasuk proses rotasinya. Tunjukan urutan nilainya jika dikunjungi secara preorder, inorder dan postorder.

   4.   Pohon biner lengkap ( complete ) adalah pohon biner dengan semua simpul yang bukan daun mempunyai anak sebanyak 2 dan semua daun ada di level paling bawah atau diatasnya. Daun terisi dari kiri ke kanan. Buatlah fungsi IsComplete yang menghasilkan nilai True jika pohon adalah pohon biner lengkap dan menghasilkan nilai False untuk yang lainnya. 

   
   

    Coba Didiskusikan .....  jawaban bisa diposting untuk di sharing...

Soal Algoritma dan Struktur Data (2008)-3

SOAL ALGORITMA DAN STRUKTUR DATA

PRA S2 UGM, 24 DESEMBER 2008

{Catatan Ignas Lamabelawa }

1. Tersedia array A dengan panjang N. Buatlah procedure rekursif untuk memisah menjadi 2 buah array B dan C. Array B akan berisi elemen dari A yang genap dan array C berisi elemen dari A yang ganjil.

2. Suatu Linked-list digunakan untuk menyimpan informasi karakter. Buatlah procedure yang mengurutkan linked-list tersebut sehingga urutannya menjadi vokal terlebih dahulu kemudian diikuti oleh konsonan. Jika awal dri linked list tersebut berisi (a,b,c,d,e,f,m,n,o,p) akan diurutkan menjadi ( a,e,o,b,c,d,e,f,m,n,p).

3. Data 9,12,13,25,91,53,17,11,8 dan 29 tunjukan dengan ilustrasi jika diurut menggunakan metode :

1. Mergesort

2. Quicksort

4. Pohon biner lengkap ( complete ) adalah pohon biner dengan semua simpul yang bukan daun mempunyai anak sebanyak 2 dan semua daun ada di level paling bawah atau diatasnya. Daun terisi dari kiri ke kanan. Buatlah fungsi IsComplete yang menghasilkan nilai True jika pohon adalah pohon biner lengkap dan menghasilkan nilai False untuk yang lainnya.

Soal Algoritma dan Struktur Data (2008)-2

SOAL ALGORITMA DAN STRUKTUR DATA

PRA S2 UGM 5 Agustus 2008

{ catatan Ignas Lamabelawa }

1. Tersedia array A dengan panjang N. Buatlah procedure rekursif untuk memisah menjadi 2 buah array B dan C. Array B akan berisi elemen dari A yang ganjil dan array C berisi elemen dari A yang genap.

2. Suatu Linked-list digunakan untuk menyimpan informasi karakter. Buatlah procedure yang mengurutkan linked-list tersebut sehingga urutannya menjadi konsonan terlebih dahulu kemudian diikuti oleh vokal. Jika awal dri linked list tersebut berisi (a,b,c,d,e,f,m,n,o,p) akan diurutkan menjadi ( b,c,d,e,f,m,n,p,a,e,o).

3. Data 25, 91, 53, 17, 11, 8, 9, 12, 13 ingin dimasukan dalam pohon AVL. Tunjukan dengan ilustrasi pertumbuhan pohon AVL yang awalnya kosong dan gambarkan juga proses rotasinya. Tunjukan urutan nilainya jika dikunjungi secara preorder, inorder dan postorder

4. Berikut adalah fungsi dalam pascal untuk pohon biner telusur. Jika P pohon biner yang awalnya kosong kemudian diisi data berturut-turut 15, 10, 20, 3, 13, 17, 24, 16, 19. Berapa nilai dari

1. Fx(P,0)

2. Fx(P,1)

3. Fx(P,3)

4. Fx(P,5)

5. Fx(P,7)

6. Fx(P,9)

Function Fx(p : Pbintree; n : integer) : integer;

Begin

If p=nil then Fx:=0

Else

If n=1 then Fx:=1

Else Fx:=Fx(p^.left,n-1)+ Fx(p^.right,n-1);

End;

Soal Algoritma dan Struktur Data (2008)-1

SOAL ALGORITMA DAN STRUKTUR DATA

PRA S2 UGM 2 Agustus 2008

{ Catatan Ignas Lamabelawa }

1. Tersedia array A dengan panjang N. Buatlah procedure rekursif untuk memisah menjadi 2 buah array B dan C. Array B akan berisi elemen dari A yang ganjil dan array C berisi elemen dari A yang genap.

2. Suatu Linked-list digunakan untuk menyimpan informasi karakter. Buatlah procedure yang mengurutkan linked-list tersebut sehingga urutannya menjadi vokal terlebih dahulu kemudian diikuti oleh konsonan. Jika awal dri linked list tersebut berisi (a,b,c,d,e,f,m,n,o,p) akan diurutkan menjadi ( a, e, o, b, c, d, e, f, m, n, p).

3. Data 9, 12, 13, 25, 91, 53, 17, 11, 8,13 ingin dimasukan dalam pohon AVL. Tunjukan dengan ilustrasi pertumbuhan pohon AVL yang awalnya kosong dan gambarkan juga proses penambahan simpul satu persatu termasuk proses rotasinya. Tunjukan urutan nilainya jika dikunjungi secara preorder, inorder dan postorder

4. Pohon biner lengkap ( complete ) adalah pohon biner dengan semua simpul yang bukan daun mempunyai anak sebanyak 2 dan semua daun ada di level paling bawah atau diatasnya. Daun terisi dari kiri ke kanan. Buatlah fungsi IsComplete yang menghasilkan nilai True jika pohon adalah pohon biner lengkap dan menghasilkan nilai False untuk yang lainnya.

Soal Algoritma dan Struktur Data (2006)

Soal Algoritma dan Struktur Data PRA S2 UGM

(catatan Marinus Ign J. Lamabelawa)

{Soal PRA 7 Agustus 2006}

1. Tersedia array A dengan panjang 100. Buatlah function rekursif untuk menghitung partial-sum-array(PSA) dari A. PSA(i) adalah jumlah nilai elemen A[1] s.d. A[i]. Contoh :

2. Function berikut adalah function untuk menukar urutan karakter menjadi selang seling, urutan ganjil dahulu kemudian urutan genap. Misal st bernilai ‘ABCDEFG’ maka hasil dari procedure ini adalah ‘ACEGBDF’. Ubahlah function tersebut menjadi rekursif;

Function tukarurutan(st : string):string;

Var i : integer;

h1,h2 : string;

begin

i:=1; h1:=’ ’; h2:=’ ‘;

while (i <= length(st) ) do begin

h1:=h1 + st[i];

if ( i <>

i := i + 2;

end;

Result :=h1 + h2;

end;

3. Tulis fungsi dalam Pascal untuk menentukan apakah suatu pohon adalah :

   1. Pohon biner complete

   2. Pohon biner almost complete

4. Data 19, 11, 13, 2, 9, 50, 7, 1, 18, 27 ingin dimasukan dalam pohon AVL. Tunjukan dengan ilustrasi pertumbuhan pohon AVL yang awalnya kosong dan gambarkan juga proses rotasinya.

5. Gambarkan graph berarah G dengan kriteria sbb :

• 5 vertkes = A,B,C,D,E

• 8 edge

• Tidak ada loop

1. Gambarkan minimum spanning tree dari G

2. Berikan bobot pada setiap edge dan terapkan algoritma Dijkstra untuk mencari lintasan terpendek dari Vertkes A.

Silahkan didiskusikan.... 

Soal Algoritma dan Struktur Data (2007) -1

Soal dan Jawaban Algoritma dan Struktur Data PRA S2 UGM

(catatan Marinus Ign J. Lamabelawa)

{Soal PRA 19 Desember 2007}

1. Tersedia array A dengan panjang 100. Buatlah procedure rekursif untuk mengisi array tersebut dengan data 1,2,3,5,8,13,21,... dan seterusnya sampai penuh.

2. Matriks A berukuran K x L. Matriks C adalah transpose dari matriks A. Buatlah diagram alir yang menunjukan proses pembuatan matriks C jika A diketahui.

3. Data 7, 4, 3, 2, 19, 20, 25, 99, 34, 18 ingin dimasukan dalam pohon AVL. Tunjukan dengan ilustrasi pertumbuhan pohon AVL yang awalnya kosong dan gambarkan juga proses rotasinya. Tunjukan urutan nilainya jika dikunjungi secara preorder, inorder dan postorder

   4.       Data 7, 4, 3,2, 19, 20,25, 99, 34, 18 ingin diurutkan menggunakan algortima quick sort. Tunjukan proses pengurutannya secara manual.

   
   

Jawaban No 1 (versi 1 )

( Jawaban No 1 dalam bahasa Pascal dengan metode Rekursif )

program susunarray;

uses crt;

type Array100 = array[1..100] of longint;

var n :integer;

data : Array100;

{dengan rekursif}

Procedure isi(var A : Array100;i,n:integer);

Begin

if (i=1) or (i=2) then

Begin

A[i]:=i;

isi(A,i+1,n);

End

Else

Begin

A[i]:=A[i-1]+A[i-2];

if (i

isi(A,i+1,n);

End;

End;

{Bandingkan listing berikut dengan menggunakan Iterasi }

Procedure isiarray(var A:Array100;i,n:integer);

Begin

A[1]:=1;

A[2]:=2;

for i:=(i+2) to n do

begin

A[i]:=A[i-1]+A[i-2];

isiarray(A,i+1,n);

end;

End;

{ Program Utama }

var i : longint;

Begin

clrscr;

write('isi nilai n:');readln(n);

{ panggil dan tulis dengan rekursif }

isi(data,1,n);

writeln('dengan rekursif');

for i:=1 to n do

write(data[i]:8);readln;

{panggil dan tulis dengan iterasi}

writeln;

writeln('Dengan Iterasi biasa')

isiarray(data,1,n);

for i:=1 to n do

write(data[i]:8);readln;

End.

No 2,3,4 diskusikan bagi yang berminat.....

Berpelukan.... bisa menyembukan penyakit

Refreshing setelah makan siang...

Jika rumah tangga Anda di ambang kehancuran, cobalah memeluk pasangan Anda 20 kali sehari. Saya yakin Anda berdua tak akan bercerai,' kata master reiki di India .
'Untuk bertahan hidup, kita membutuhkan 4 pelukan sehari. Untuk kesehatan, kita butuh 8 pelukan perhari. Untuk awet muda, kebahagiaan, kita perlu 12 pelukan perhari,' kata Virginia Satir, terapis keluarga.
pelukan-menyembuhka n 12 pelukan tiap hari agar tidak sakit-sakitanMungki n Anda sedikit heran, benarkah pelukan memiliki kekuatan yang begitu hebat, hingga bisa membuat sehat, panjang umur, dan awet muda? Kapan terakhir kali Anda memeluk seseorang atau seseorang memeluk Anda? Jika jawabannya jarang atau bahkan tidak pernah sama sekali, coba ingat-ingat, apa yang belakangan ini Anda rasakan? Bisa jadi Anda sering sakit-sakitan, depresi, stres, sakit kepala, dan emosional.
Berbagai penelitian menunjukkan terapi pelukan bisa menyembuhkan penyakit fisik dan psikis. Bisa mengatasi stres, depresi dan lain-lain. Orang yang dipeluk, ataupun memeluk, merasakan adanya kekuatan cinta yang mengelilingi mereka. Kekuatan ini yang membuat kekebalan tubuh kita semakin meningkat.
Saat berpelukan, tubuh melepaskan oxytocin, hormon yang berhubungan dengan perasaan damai dan cinta. Hormon oxytocin ini membuat jantung dan pikiran sehat. Hormon oxytocin ini baru bisa keluar jika manusia memiliki kehidupan sehat, merasa damai dan tentram.
Terapi pelukan hampir sama dengan terapi jalan kaki. Terapi pelukan meningkatkan keseimbangan tubuh, kesehatan, dan mengurangi tingkat stres, khususnya para profesional muda yang bekerja di kota metropolitan
Pelukan bukan berarti Anda harus mencari suami atau kekasih untuk melakukan hal ini. Pelukan dapat dilakukan pada siapa saja dengan penuh kasih dan damai. Tentu saja pelukan ini bukan berkonotasi negatif apalagi mengikutsertakan gairah. Pelukan ini juga bukan 'pelukan sosial', seperti berjabat tangan, mencium pipi kiri dan kanan, seperti yang dilakukan oleh budaya masyarakat beberapa negara pada saat pesta atau pertama kali bertemu.
Pelukan yang dimaksud adalah pelukan saling menyentuh, tubuh dengan tubuh saling mengikat dan menyentuh. Ketika saling berpelukan, akan terasa perasaan nyaman dan damai.
Di Indonesia juga beberapa negara lainnya berpelukan hanya dilakukan pada pasangan suami istri, saudara, orang tua ke anaknya. Di Amerika sebuah lembaga ada yang mengkoordinir untuk mengadakan Free Hug di jalanan. Jangan kaget jika suatu Hari, saat Anda berkunjung ke Amerika dan Eropa, melihat beberapa orang dengan papan besar di dada, bertuliskan Free Hug. Mereka adalah para relawan yang memberikan terapi pelukan pada setiap orang yang membutuhkan.
'Tapi, kita harus ingat. Walau sekadar jabat tangan dan menyentuh pipi dengan pipi, ini juga ada manfaatnya. Ada rasa kehangatan ketika kita saling berjabat tangan. Namun bila ini dilakukan lebih dari ini, yaitu dengan pelukan erat. Tentu lebih bermanfaat, unsur terapinya lebih tinggi,' ujar Dr.. Bhagat, salah satu doktor yang meneliti pengaruh pelukan di India .
Diharapkan masyarakat mengerti akan manfaat sentuhan dan pelukan. Sehingga pasangan suami istri, semakin sering berpelukan dan bersentuhan. Juga makin sering memeluk anak-anaknya. Seluruh bagian di kulit kita memiliki organ perasa. Dari ujung kaki hingga kepala adalah area yang sensitif bila disentuh. Bahkan ketika bayi masih di dalam kandungan walau dilindungi air ketuban, dia sangat menyukai sentuhan kasih sayang dari ke dua orang tuanya. Jika sering disentuh, bayi dalam kandungan akan tumbuh menjadi bayi yang sehat dengan pertumbuhan yang bagus. Selain itu secara psikis bayi akan tumbuh menjadi seorang yang penyayang.
Anak-anak yang sering disentuh, dibelai dan dipeluk oleh orang tuanya juga akan tumbuh menjadi anak yang sehat. Mereka akan merasa nyaman dan memiliki kepercayaan diri. Pertumbuhan dan kesehatan pun lebih bagus dibanding dengan anak-anak yang jarang disentuh, dibelai dan dipeluk.
Pada orang tua pun, sentuhan dan pelukan sangat berarti. Apalagi pada saat kehilangan seseorang, depresi, stres.. Dengan berpelukan, orang dewasa merasa ada orang yang memperhatikan, ada orang yang mencintainya, membutuhkannya. Seluruh kulit Kita, sangat peka dengan pelukan, dan sangat membutuhkan sentuhan hangat dan erat.
Seorang master reiki di Mumbai , India , berkata, 'Pelukan salah satu alat untuk bertransformasi. Dengan pelukan satu pribadi dengan pribadi lain semakin dekat. Jika hubungan Anda dengan orang lain renggang. Salah satu cara agar hubungan itu menghangat dengan memeluknya.'
'Jika rumah tangga Anda di ambang kehancuran, cobalah memeluk pasangan Anda 20 kali sehari. Saya yakin Anda berdua tak akan bercerai. Selain itu, hidup Anda berdua akan lebih bahagia, sehat, dan awet muda. Serta Anda akan terhindar dari stress dan depresi.'
Dr Harold Voth, senior psikiater di Kansas, Amerika Serikat telah melakukan riset dengan beberapa ratus orang. Hasilnya, mereka yang berpelukan mampu mengusir depresi, meningkatkan kekebalan tubuh, awet muda, tidur lebih nyenyak, lebih sehat.
Jika bayi atau anak-anak rewel atau sakit. Jangan biarkan mereka sendirian. Peluklah. Dengan memeluk, mereka akan merasa nyaman. Sehingga kekebalan tubuhnya lebih baik, dan kesehatan mereka pun akan jauh lebih baik. Anda sebagai orang tua pun mendapatkan efek baik dari terapi pelukan ini. Anda akan jauh lebih sehat, muda, terbebas dari depresi.
Pelukan dapat menyembuhkan sakit fisik dan psikis. Sentuhan yang dihasilkan dari pelukan membantu mengurangi rasa sakit. Beberapa penyakit parah sering kali membuat penderitanya merasa frustasi, marah, tak mungkin penyakitnya bisa disembuhkan. Dengan pelukan, pasien yang frustasi ini merasa nyaman. Pelukan memberikan energi positif pada emosi pasien. Sehingga mengubah emosi negatifnya menjadi emosi positif. Apalagi bila pasien mendapatkan pelukan dari orang yang dicintainya.
Bukankah cinta itu adalah kekuatan yang maha dahsyat? — Sumber artikel: Yoicer, sumber ilustrasi: Ravenmedium

Daftar Mahasiswa Skripsi Teknik Informatika S1 TA 2009/2010

05210286
AGUNG SURYOWIBOWO
PERANGKAT LUNAK PEMBERSIH FILE TEMPORER PADA WINDOWS DENGAN MENGGUNAKAN MICROSOFT VISUAL BASIC 6.0

04211163
Alfred F Susanto
Program Bantu Rekapitulasi Pengklasifikasian LSM Kota Kupang Pada Dinas BAPPEDA Nusa Tenggara Timur

04211212
ARNOLDUS FERDINANDUS WATU
PROGRAM BANTU REKAP NILAI RAPOR SISWA PADA SMAN 4 KUPANG MENGGUNAKAN VISUAL BASIC 6.0

03210856
ARSYAD NGOBA
PROGRAM BANTU REKAPITULASI PINJAMAN DAN PENGEMBALIAN DANA PEMBERDAYAAN EKONOMI MASYARAKAT PADA BADAN PEMBERDAYAAN MASYARAKAT KOTA KUPANG DENGAN MENGGUNAKAN VISUAL FOXPRO 8.0

04211065
Asir Benedik Dule
Program Bantu Pendataan Tenaga Kerja Asing Pada Dinas Tenaga Kerja Dan Transmigrasi Provinsi Nusa Tenggara Timur Berbasis Client-Server

04211201
Askenes E.I Sulla
Program Bantu Pendataan Radio Amatir pada Balai Monitor Specturm Frekuensi Radio dan Orbit Satelit Klass II Kupang dengan menggunakan Visual Basic 6.0 Berbasis Clien Server

04211074
Ayub Peter Nge
Program Bantu Pemasangan Aplikasi Dan Library Pada Sistem Operasi Ubuntu 8.04

0421101
Charles N. A. Bengkiuk
Sistem Informasi Geografis Tata Ruang Ibukota Kabupaten Kupang

04211096
Cristian Emanuel Utama
Sistem Informasi Agenda Surat Pada Kantor Pengolahan Data Elektronik Propinsi NTT

03210865
DAVID EDISON HUKY
PROGRAM BANTU PENETAPAN PENERIMA MANFAAT RASKIN BAGI RUMAH TANGGA MISKIN/SEDERHANA PADA KELURAHAN NAIKOTEN II MENGGUNAKAN MS. VISUAL FOXPRO 8.0

014211247
DESEMERYA Y.M ISU
SISTEM INFORMASI PEMBUKUAN IURAN ANGGARAN DASAR KHUSUSNYA PROGRAM PEMBERDAYAAN ANGGOTA (PPA) PADA YAYASAN UYELINDO KUPANG BERBASIS JARINGAN.

04211054
EKI SENEPENHIAS MALAIPADA
SISTEM PAKAR PENELUSURAN KERUSAKAN PRINTER CANONO
05210062

Elisabeth Thedens
Studi dan Implementasi Algoritma Pencarian Breadth First Pada Permainan Tikus dan Kucing Dengan Menggunakan Visual Basic 6.0

04211050
EMANUEL SUAN
PROGRAM BANTU ADMINISTRASI AKADEMIK D-II PENJASKES SWADANA PADA CABANG UNIVERSITAS TERBUKA KAB. TTU/POKJAR INSANA

03210873
Ermine S. Kaimat
Program Bantu Monitoring Ketenagakerjaan Perusahaan Pada Dinas Sosial, Tenaga Kerja dan Transmigrasi Kab. Sikka

01210333
ESTER AM UNA
SISTEM INFORMASI PENYALURAN DANA BLOCK GRANT MEMP PADA KANTOR LEMBAGA PENJAMINAN MUTU PENDIDIKAN PROPINSI NTT

05210070
Fajarudin Kadir
Aplikasi Konversi Sistem Bilangan Desimal, Biner,Hexadesimal Dan Octal Menggunakan Microsoft Visual Basic 6,0

04211093
Febry D. Tulle
Administrasi Personil Pada Kepolisian Daerah NTT Berbasis Client Server

01210344
FERIANTI M. FONI
PENANGGULANGAN KORBAN BENCANA ALAM PADA DINAS SOSIAL PROPINSI NUSA TENGGARA TIMUR

04211095
Franki Yusuf Bisilisin
Program Service dan Diagnosa Komputer berbasis Sistem Pakar

01210355
FRANSISKUS D.D.KOGHA
APLIKASI PENJUALAN KORAN PADA SURAT KABAR MINGGUAN MEDIATOR DENGAN MENGGUNAKAN PEMROGRAMAN VISUAL BASIC 6.0

02210699
GERARDUS L.TALU
PROGRAM BANTU PENJUALAN KEDARAAN RODA EMPAT PADA CV. TOFLOS ABADI MOTOR KUPANG DENGAN MENGGUNAKAN PROGRAM VISUAL BASIC 6.0

04211090
Handrianus W. Eta
Sistem Informasi Kepemilikan Sertifikat Tanah Pada Badan Pertanahan Nasional Kabupaten Tengah Utara

02210707
HERMINA G. MUSI
PROGRAM BANTU PENDATAAN DAN PERHITUNGAN JASA SERVICE MOBIL OLEH MONTIR PADA CV. TIFLOS ABADI MOTOR KUPANG

04211073
I Made A.S. Putra
Program bantu Mutasi Jabatan Pada Polda NTT

05210093
I MADE MELIYATI
MEDIA PEMBELAJARAN INTERAKTIF PADA MATA PELAJARAN TEKNOLOGI INFORMASI DAN KOMUNIKASI DI SMA NEGERI 2 KUPANG TIMUR

02210710
IMENUEL TOINENO
SISTEM INFORMASI PERSEDIAAN DAN PENJUALAN BARANG PADA TOKO UD PANCA SAKTI KUPANG

01210386
Ingrid Denorian Sabuin
Aplikasi Sistem Nilai OnLine Berbasis SMS

02210712
Innes M Kamore
Analisis Tingkat Kelulusan Sekolah Menegah Pertama Seb Kabupaten Alor Pada Dinas Pendidikan Dan Kebudayaan Kab. Alor

04211116
INTAN STEVENSON KAUSE
SISTEM INFORMASI PENGOLAHAN DATA ANAK PADA PPA RUHAMA IO 650 DENGAN MENGGUNAKAN MICROSOFT VISUAL BASIC 6.0
04211082
ISMAYATI WATANG
PROGRAM BANTU PENDATAAN PENERIMAAN MAHASISWA KEGIATAN ORDIK PADA STIKOM UYELINDO KUPANG
04211118
IVONI EKNAN BEKABEL
PROGRAM BANTU PENGENALAN GANGGUAN KEJIWAAN (PSIKOLOGIS) DENGAN MENGGUNAKAN VISUAL BASIC 6.0
04211160
Jonathan Labba Gadja
Sistem Informasi Kenaikan Pangkat Anggota Kepolisian Poda NTT Berbasis Client Server
03210896
KORNELIS JAMA NUNA
PROGRAM BANTU PENGOLAHAN DANA ALOKASI KHUSUS PADA KANTOR DINAS P & K KABUPATEN SUMBA BARAT DENGAN MENGGUNAKAN VISUAL FOX PRO 8.0
03210897
KORNELIS WEA DOI
Sistem Penilaian Indikator Perkembangan Kesehatan Masyarakat Pada Pemberdayaan Masyarakat Koata Kupang Menggunakan Microsoft Visual Fox Pro 6,0
03210976
Longginus B. Making
Program Bantu Pengolahan Data Kelompok Tani Pada Penyuluh Pertanian Di Dinas Pertanian Kota Kupang
04211210
LUISE MARIA NELO ANU
SISTEM INFORMASI LOGISTIK PADA PERUM BULOG KABUPATEN NGADA DENGAN MENGGUNAKAN VISUAL BASIC 6.0
03210912
MARIA SCOLASSTIKA MANEK
PROGRAM BANTU PENGARSIPAN PASPOR PADA KANTOR IMIGRASI KLAS II ATAMBUA DENGAN MENGGUNAKAN VISUAL BASIC 6.0
04211217
MARIANUS MAGNO S. BRIA
VISUALISASI PROFIL KECAMATAN MALAKA TENGAH KABUPATEN BELU BERBASIS WEB MENGGUNAKAN ASP DAN MICROSOFT ACCESS
04211220
MARINA Y MATHEOS
Program Bantu Penyewaan Gedung Aula El Tari Pada Biro Umum SETDA Provisi NTT
04211106
MARLINDA V. OVERBEEK
PENCATATAN REKAM MEDIS PASIEN DINAS SECARA ELEKTRONIK PADA RUMAH SAKIT TENTARA WIRASAKTI KUPANG
04211990
MARO SEMUEL BAIN
SISTEM KOMPUTERISASI PENDATAAN DAN PENYETORAN PAJAK BUMI DAN BANGUNAN PADA KANTOR DISPENDA KAB ALOR (BERBASIS CLIENT SERVER)
02210747
MARSEL Y. E. TEFLOPO
SISTEM INFORMASI KEGIATAN PEMILIHAN UMUM PADA KANTOR KOMISI PEMILIHAN UMUM ( KPU ) KUPANG
05210275
Martzem Chr. Sol Uf
Implementasi Algoritma Depth First Search Pada Permainan Pesawat Pengebom Dengan Menggunakan Visual Basic 6.0
04211099
MATILDA REKU
PROGRAM BANTU PENDATAAN PENYAKIT RABIES PADA DINAS KESEHATAN KABUPATEN ENDE BERBASIS CLIEN SERVER
02210838
Moch Yamin Amirullah
Aplikasi Sistem Pendukung Keputusan Untuk Menentukan Jurusan Pada SMU Muhammadiyah Kupang Dengan Menggunakan Visual Basic 6,0
04211114
Moses Alrinda Tupen
Siste Informasi Penilaian Siswa Pada SMP Katholik Santo Jibrael Kaupaten. Alor
04211121
MUHAMMAD ALI BIN HUSEIN
STUDI DAN IMPLEMENTASI ALGORITMA BRANCH AND BOUND PADA PERMAINAN ULAR (SNAKE) DENGAN MENGGUNAKAN VISUAL BASIC 6.0
04211034
Nikolaus Erwin Nuwa
Sistem Informasi Rekapitulasi Data Kependudukan Pada Kecamatan Malaka Tengah Kabupaten Belu

04211110
OKTAVIANUS TAUM
PROGRAM BANTU PENGELOLAAN KEUANGAN KEPALA DAERAH DAN WAKIL KEPALA DAERAH PADA SUB BAGIAN KEUANGAN SEKRETARIAT DAERAH SEKRETARIAT DAERAH KABUPATEN LEMBATA

04211251
ONGKI OKTOVIANUS LAHEA
PROGRAM BANTU PENGARSIPAN SURAT TANDA TERIMA SETORAN (STTS) PADA DINAS PENDAPATAN DAERAH KOTA KUPANG CLIEN SERVER

03210927
PETRUS USFUNAN
PROGRAM BANTU SISTEM ADMINISTRASI PELANGGAN INTERNET PADA INTERNET SERVICE PROVIDER (ISP) DIGINET- CV. BOBY

04211108
Piegion Soleman Dethan
Visualisasi Kartun Proses Belajar Menggunakan Micromedia Flash MX 2004
02210782
PRAMUDITO PRIBADI FOENAY
PEMBUATAN WEBSITE KOMUNITAS OUTLET KUPANG
01210536
RICHARD ADU
PROGRAM BANTU SISTEM PENGGAJIAN PEGAWAI PADA PT. PENTA VALENT KUPANG
05210180
Rofinus Peor
Pembuatan Aplikasi Sistem Pendukung Keputusan Untuk Proses Kenaikan Jabatan Dan Perencanaan Karir Dengan Menggunakan Program Visual FoxPro 9,0
05210287
ROMIYANTO DJARI
SISTEM INFORMASI POLITEKNIK PERTANIAN NEGERI KUPANG MENGGUNAKAN JOOMLA CMS (CONTENT MANAGEMENT SYSTEM)
03210933
RONALD MAURITS DJAUW
SISTEM PENDUKUNG KEPUTUSAN PROSES PEMUTAKHIRAN DAN VERIFIKASI DATA PENDUDUK PEMILIH POTENSIAL PEMILU DAN PILKADA PADA KANTOR KELURAHAN NAIKOTEN II MENGGUNAKAN VISUAL BASIC 6.0
04211165
Rovinus Tena Dua
Aplikasi Data Kepegawaian Pada SMA Negeri I Bajawa - Kabupaten Ngada
02210794
Roy Joao Noronha
Program Bantu Rekapitulasi Data Mahasiswa Timor Leste Di Kupang Pada Kantor Consulado Da RDTL Em -Kupang
04211117
RUTCE M. D. BOBOY
PROGRAM BANTU PENGENALAN JENIS TANAH TANAMAN LAHAN KERING DENGAN MENGGUNAKAN VISUAL BASIC 6.0
03210936
SARVEDIANUS INDRA KUSUMA
SISTEM PENDUKUNG KEPUTUSAN DALAM PENERIMAAN SISWA SEMINARIST. RAFAEL KUPANG DENGAN MENGGUNAKAN VISUAL BASIC 6.0
04211092
SEM KRISTIANTO BUNMO
SISTEM INFORMASI KESEHATAN IBU DAN ANAK PADA PUSKESMAS MORU KABUPATEN ALOR
04211102
SEMLI YOHANES NENOBAHAN
PROGRAM DETEKSI SISI PADA CITRA DIGITAL MENGGUNAKAN ALGORITMA CANNY
04211298
SIMEON SINA LIWUN
SISTEM PAKAR DIAGNOSA MASALAH KEHAMILAN DAN PERSALINAN BERDASARKAN MANIFESTASI KLINIS
04210989
SISKA WANGGA
SISTEM INFORMASI GEOGRAFIS JARINGAN LISTRIK TEGANGAN MENENGAH PADA PLN (PERSERO) CABANG KUPANG

Stefanus M. Masan
Sistem Pengarsipan Kanrtu Model " C " Pada Kantor Departemen Agama Provinsi NTT
02210802
Tay Tana Djawa
Sistem Penerapan Upah Minimum Propinsi (UMP) Terhadap Perusahaan Pada Nakertrans Kota Kupang
05210290
TERESINHA C.DACOSTA
PROGRAM BANTU PENDATAAN ADMINISTRASI UJIAN AKHIR SEMESTER PADA STIKOM UYELINDO KUPANG MENGGUNAKAN VISUAL BASIC 6.0
02210803
THEDEUS TJATUR NOFIANTO
PEMBUATAN WEBSITE PENJUALAN ONLINE PRODUK-PRODUK FURNITURE PADA PT. OLYMPIC KUPANG
06210242
THEODORUS SILFIANUS DJAU
PERANCANGAN DAN PEMBANGUNAN WEBSITE DINAS PARIWISATA DAN SENI BUDAYA PROVINSI NUSA TENGGARA TIMUR
04211045
Tito A. De Deus
PROGRAM BANTU PENDATAAN BUKU KELAUR BERBASIS CLIENT SERVER PADA DINAS PENCATATAN SIPIL, ADMINISTRASI KEPENDUDUKAN DAN KELUARGA BERENCANA KAB KUPANG MENGGUNAKAN VISUAL BASIC 6.0
04211205
VASIO S. SOARES
PROGRAM BANTU PENDATAAN ANGGOTA BATALYON INFANTERI 743 PRADNYA SAMAPTA YUDHA MENGGUNAKAN VISUAL BASIC 6.0
03210947
VICTOR. D. SELAN
SISTEM INFORMASI PERKULIAHAN MAHASISWA PADA UNIVERSITAS TIMOR (UNIMOR) MENGGUNAKAN MICROSOFT VISUAL BASIC 6,0
04211063
Viktoria Y. Neonane
Sistem Informasi Lelang Terpadu pada Kantor Perum Pegadaian Cabang Soe
01210588
VINSENSIUS UBAN
PROGRAM BANTU REKAPITULASI KORBAN KECELAKAAN LALU LINTAS PADA KANTOR SATUAN LALU LINTAS POLRESTA KUPANG
0210813
Yanuarius Sorulandja
Perancangan DataBase Dan Implementasi Sistem Informasi Umum Dinas Perhubungan Prop. NTT Menggunakan VB. 6.0
03210963
YOHANES ANJELO P. DAVID
APLIKASI KORD GITAR STANDAR MENGGUNAKAN VISUAL BASIC 6.0
02210839
Yohanes Efridus
Sistem Informasi Kebakaran Hutan Pada Dinas Kehutanan Propinsi NTT Menggunakan Visual Basic 6.0
03210966
Yonfry Ataupah
Program Bantu Data Perangkat Dan Perkembangan Penduduk Serta Keadaan Wilayah Di Kecamatan Oebobo Berbasis Client Server
02210824
YULIANTO
PEMBUATAN WEBSITE ASOSIASI KONTRAKTOR LISTRIK DAN MEKANIKAL INDONESIA (AKLI) DEWAN PENGURUS DAERAH (DPD) NUSA TENGGARA TIMUR
02210826
Yuni Nawa
Sistem Informasi Pengolahan Data Pembayaran Iuran Komite pada SMP Negeri 6 Kupang
03210970
YUVELANIS MAYOR RENDRA
APLIKASI ANGKUTAN LALU LINTAS UDARA PADA BANDARA UDARA WAIOTI MAUMERE MENGGUNAKAN MICROSOFT VISUAL BASIC 6,0
04211187
Zem Tanaem
Sistem Informasi Pendataan Dan Prasarana Fisik Pendukung Kegiatan Tridarma Pada STIKOM Uyelindo Kupang

Renungan.... Ilimah

APAKAH TUHAN MENCIPTAKAN KEJAHATAN?

Apakah TUHAN menciptakan segala yang ada?

Apakah kejahatan itu ada?
Apakah TUHAN menciptakan kejahatan?

Seorang Profesor dari sebuah universitas terkenal menantang
mahasiswa-mahasiswa nya
dengan pertanyaan ini,
"Apakah TUHAN menciptakan segala yang ada?".

Seorang mahasiswa dengan berani menjawab, "Betul, DIA yang menciptakan
semuanya".
"TUHAN menciptakan semuanya?" tanya professor sekali lagi.
"Ya, Pak....semuanya" kata mahasiswa tersebut.

Profesor itu menjawab, "Jika TUHAN menciptakan segalanya, berarti
TUHAN menciptakan kejahatan.
Karena kejahatan itu ada, dan menurut prinsip kita bahwa pekerjaan
kita menjelaskan siapa kita,
jadi kita bisa berasumsi bahwa TUHAN itu penjahat."

Mahasiswa itu terdiam dan tidak bisa menjawab hipotesis professor
tersebut.
Profesor itu merasa menang dan menyombongkan diri bahwa sekali lagi
dia telah membuktikan
kalau agama itu adalah sebuah mitos.

Mahasiswa lain mengangkat tangan dan berkata, "Profesor, boleh saya
bertanya sesuatu?"
"Tentu saja," jawab si Profesor.

Mahasiswa itu berdiri dan bertanya, "Profesor, apakah dingin itu ada?"
"Pertanyaan macam apa itu? Tentu saja dingin itu ada. Kamu tidak
pernah sakit flu?"
tanya si professor diiringi tawa mahasiswa lainnya.

Mahasiswa itu menjawab, "Kenyataannya, Pak, dingin itu tidak ada.
Menurut hukum fisika, yang kita anggap dingin itu adalah ketiadaan
panas.
Suhu minus 460F adalah ketiadaan panas sama sekali.
Dan semua partikel menjadi diam dan tidak bisa bereaksi pada suhu
tersebut.
Kita menciptakan kata dingin untuk menggambarkan ketiadaan panas".

Mahasiswa itu melanjutkan, "Profesor, apakah gelap itu ada?"
Profesor itu menjawab, "Tentu saja gelap itu ada."

Mahasiswa itu menjawab, "Sekali lagi anda salah, Pak. Gelap itu juga
tidak ada.
Gelap adalah keadaan dimana tidak ada cahaya. Cahaya bisa kita
pelajari, gelap tidak.
Kita bisa menggunakan prisma Newton untuk memecahkan cahaya menjadi
beberapa warna dan mempelajari berbagai panjang gelombang setiap
warna.
Tapi Anda tidak bisa mengukur gelap..
Seberapa gelap suatu ruangan diukur dengan berapa intensitas cahaya di
ruangan tersebut.
Kata gelap dipakai untuk mendeskripsikan ketiadaan cahaya."

Akhirnya mahasiswa itu bertanya, "Profesor, apakah kejahatan itu ada?"

Dengan bimbang professor itu menjawab, "Tentu saja, seperti yang telah
kukatakan sebelumnya.
Kita melihat setiap hari di Koran dan TV. Banyak perkara kriminal dan
kekerasan di antara manusia..
Perkara-perkara tersebut adalah manifestasi dari kejahatan."

Terhadap pernyataan ini mahasiswa itu menjawab, "Sekali lagi Anda
salah, Pak. Kajahatan itu tidak ada.
Kejahatan adalah ketiadaan TUHAN. Seperti dingin atau gelap, kajahatan
adalah kata yang dipakai
manusia untuk mendeskripsikan ketiadaan TUHAN.
TUHAN tidak menciptakan kejahatan. Kejahatan adalah hasil dari tidak
adanya kasih TUHAN dihati manusia.
Seperti dingin yang timbul dari ketiadaan panas dan gelap yang timbul
dari ketiadaan cahaya."

Profesor itu terdiam.

Nama mahasiswa itu adalah Albert Einstein.

Achtung,
aldelender 111000008