NEIGHBORS FROM HELL

Hy teman-teman , pada uda main game Neighbors from Hell belum ? 
gimana ? serru kan ?
berawal dari melihat temenku Mas Achmad  n Mas Ricko yg wktu itu sedang asyik main game ini di kampus .. eh pas liat n nyoba jadi ketagihan deh :D soalnya jahil bget sih Woody :D
Buat yg belum pernah nyoba,, berikut sedikit penjelasannya mengenai game ini .

Dalam permainan edisi Neighbors from Hell: Revenge is a Sweet Game, sang pemain masuk ke rumah Rottwhiler dengan membuat kekacauaan tanpa diketahui pemilik rumah. Pemain adalah seorang bintang sebuah acara TV yang baru dengan kamera kemanapun pemain bergerak dan memberi kekacauan seperti menggergaji kursi, melempar pisang/sabun di lantai, mencoret foto dan

MABIM FAKULTAS

 

Hallo..

Teman2, setelah selesai dengan postinganku tempo hari tentang mabim jurusan, kali  ini aku hadir kembali dengan postingan tentang mabim fakultas yang sudah aku janjikan sebelumnya.

Pengen tau cerita dan kenangan apa saja yang aku dapat dari mabim fakultas ??
pastikan anda membaca postingan ini sampai selesai !

*Karena kami BANGSAT , berarti kalian LAKNAT !!
hahahaha.. masih begitu membekas di memoryku kata-kata ini ..

Emang sih kata-katanya terdengar kasar, tapi jangan salah paham dulu teman-teman..

BANGSAT itu singkatan dari BANGKITKAN SEMANGAT SAINS DAN TEKNIK and LAKNAT itu singkatan dari LANJUTKAN KREASI SAINS DAN TEKNIK.

Seperti yang sudah saya ceritakan di postingan mabim jurusan sebelumnya, saya berkuliah di jurusan ilmu komputer UNC Fakultas Sains dan Teknik.

Hehehe,, kembali ke topik sebelumnya.

Kata BANGSAT itu adalah nama untuk peserta mabim angkatan 2009 yaitu panitia-panitia kita saat itu yang rata-rata semester 7 dari semua jurusan di FST (matematika, fisika, biologi, kimia, ilkom, elektro, mesin, arsitek, sipil, dan pertambangan) . Sedangkan kata LAKNAT itu sendiri adalah nama

ARTI KATA SETIA MENURUT FACEBOOKERS DAN ANAK-ANAK GMAIL'12

S E T I A,  satu kata yang mudah banget untuk diucapin tapi sulit banget untuk dilakuin..

Banyak banget yang sekarang ngomongnya SETIA padahal hanya MODUS. Tau gak modus itu apa?? MODUS  is MODal DUSta…………… hahahaha :D kalo yang biasa MODUS pasti ngerti tuh hahaha *ngakak* :p

SETIA itu bisa diterapin dimana aja. Dalam hubungan kita dengan Tuhan, keluarga, persahabatan, kekasih, tugas dan tanggungjawab, dll.

Hm.. menurut kalian,, apa sih arti dari kata SETIA ??

Dan apakah kalian sudah SETIA ?????

Kali ini saya mencoba menanyakan pendapat dari  teman-teman Facebook dan teman-teman GMAIL’12  saya beserta nama facebook mereka masing-masing tentang “APA SIH ARTI DARI KATA SETIA??” menurut mereka. 

CERITA MABIM

MABIM.

MABIM.. mungkin kata ini sudah tidak asing lagi di pikiran teman2.
MABIM merupakan singkatan dari Masa Bimbingan Mahasiswa. Bagi yang pernah kuliah, tentunya sudah tahu tentang mabim.
berikut akan saya ceritakan masa mabim saya waktu masuk awal kuliah .

Saya berkuliah di Universitas Nusa Cendana Kupang, jurusan ilmu computer, FST.

Pada saat masuk kuliah , seperti biasa ada kegiatan mabim baik dari jurusan maupun fakultas.

MABIM JURUSAN

Mabim jurusan ini di namakan PENTIUM yaitu singkatan dari Pengenalan Tentang Ilmu Komputer . Ketua panitia PENTIUM adalah Ka Anto Tefu dan ketua HMJ kami sendiri adalah Ka Juan Riski Imanuel Ledo.

Seperti biasa kegiatan ini diawali dengan perkenalan . Saat itu kami semua di kumpulkan di LAKER.

Waktu itu kami disuruh makan roti dan aqua sambil suap-suapan dengan teman disebelah kami.

Lucu juga sih wktu itu.. apa lagi makanx di kejar waktu . :D
roti yang aku makan gak habis, tapi untung aja gak dapat hukuman .. hhehehe

Kegiatan PENTIUM dilaksanakan setiap hari sabtu jam 1 siang dan kami diwajibkan untuk membawa makanan berupa nasi putih dengan telur ayam mata sapi yang dibungkus kertas nasi dan aminuman aqua gelas.

Saat mabim senior menyuruh kami membentuk nama angkatan dan akhirnya saya dan teman2 seangkatan membentuk nama angkatan yaitu GMAIL ‘12 (Generasi Mahasiswa Ilkom ’12).

Setelah beberapa lama saya mengikuti kegiatan PENTIUM, saya merasa kalau kegiatan itu sangat berguna walau awalnya banyak yang menganggap ikutan mabim itu sia2 karena nanti

Program menghitung IP mahasiswa

Uses crt;

type larik = array[1..8] of integer;

type larek = array[1..8] of string;

var x,y,p : larik;

z,m : larek;

i, n : integer;

a,b,c,e : real;

begin

clrscr;

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

writeln ('= Nama        : Ni Putu Dana Prityaningsih =');

writeln ('= Jurusan     : Ilmu Komputer              =');

writeln ('= NIM         : 1206085002                 =');

writeln ('= Kelas       : B                          =');

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

write ('masukkan jumlah matkul  : '); readln (n);

writeln;

i := 0;

for i := 1 to n do

Program mengubah matriks standar menjadi matriks identitas

uses crt;

var baris, kolom, i, j, c : integer;

x : array[1..100,1..100] of integer;

begin

clrscr;

write ('masukkan baris matriks : '); readln (baris);

write ('masukkan kolom matriks : '); readln (kolom);

writeln ('matriks anda berordo ',baris,' X ',kolom);

for i := 1 to baris do

for j := 1 to kolom do

begin

write ('nilai [',i,',',j,'] : '); readln (x[i,j]);

end;

writeln;

PROGRAM ANIMASI HURUF BERJALAN

uses crt;

var
kata: string;
a,i: integer;
x: char;
lagi,y: char;
begin
clrscr;
  repeat
  begin
  clrscr;
  write('masukan kata: ');readln(kata);
  a:=length(kata);

PROGRAM PROSEDUR MENGHITUNG LUAS

uses crt;
var pil : string;

PROCEDURE LUAS_TABUNG ;
var luas : real ;
    r, t : integer;
begin
write ('jari-jari : '); readln (r);
write ('tinggi : '); readln (t);
luas := 3.14*r*r*t;
write ('luas tabung : ',luas:0:0);
end;

PROCEDURE LUAS_SEGIEMPAT ;
var luas4, s : integer;

PROGRAM MEMBALIK HURUF DALAM SEBUAH KATA

uses crt;
var x, l : string;
a, b, c , d, e, i , j, k : integer;
begin
clrscr;
repeat
begin
clrscr;

write ('masukkan kata atau kalimat : ');readln (x);
a :=length (x);
b := 0;
for i := 1 to a do
begin
if x[i]=' ' then

PROGRAM ANIMASI HURUF JATUH

uses crt ;
var kalimat,kopian,x : string ;
     i,j : integer ;
begin
begin
clrscr;
writeln ( 'masukkan kata atau kalimat' );
readln ( kalimat );
 CLRSCR ;
 WRITELN (kalimat);

for i := 1 to length ( kalimat )do
 begin
  kopian := copy (kalimat,i,1);
  for j  := 2 to 19 do
  begin
   gotoxy ( i,j );
   write ( kopian );
   gotoxy ( i,j-1 ) ;
   write ('  ');
   delay (10000);
  end;
end;

 begin
x:= kalimat + '                                                                    ' ;
clrscr ;
 repeat
 x := copy (x , 2 , length ( x ) - 1 ) + copy ( x,1,1 );
 gotoxy (1,19);
 write (x);
 delay (10000);
 until
keypressed;
 end;
end;
readkey;
end.

PROGRAM MEMBACA IDENTITAS PEGAWAI BERDASARKAN NIP

uses crt;

var
s,sex,tgl_lahir : string;
a,b,c,d,e,f,g,o : string;

function bulanx(var str:string):string;
   var output:string;
   begin
     if str='01' then output := 'Januari'
     else if str='02' then output := 'Februari'
     else if str='03' then output :='Maret'
     else if str='04' then output:= 'April'
     else if str='05' then output:= 'Mei'
     else if str='06' then output:= 'Juni'
     else if str='07' then output:= 'Juli'
     else if str='08' then output:= 'Agustus'
     else if str='09' then output:= 'September'
     else if str='10' then output:= 'Oktober'
     else if str='11' then output:= 'November'
     else if str='12' then output:= 'Desember'
     else output:= 'Tidak Dikenal';

     bulanx:= output;
   end;




begin
   clrscr;
   write ('masukan nama : '); readln (s);
   write ('masukan NIP : '); readln (o);
   a := o[1]+o[2]+o[3]+o[4];
   b := o[5]+o[6];
   b := bulanx(b);

   c := o[7]+o[8];
   d := o[9]+o[10]+o[11]+o[12];
   e := o[13]+o[14];
   e:= bulanx(e);

   f := o[15]+o[16];
   g := o[17]+o[18]+o[19];

    tgl_lahir := c + ' ' + b + ' ' + a;

     if f='01' then sex:= 'Laki Laki'
     else if f='02' then sex:= 'Perempuan'
     else sex:= 'kelamin tidak diketahui';


   writeln('Nama              : ',s);
   writeln('Tanggal Lahir     : ',tgl_lahir);
   writeln('Tahun Masuk       : ',d);
   writeln('Bulan Masuk       : ',e);
   writeln('Sex               : ',sex);
   writeln('No urut           : ',g);
   readln;
end.

PROGRAM MENGHITUNG GAJI, PAJAK, BONUS DAN CUTI PARA PEGAWAI

uses wincrt;
var  gol:integer;
     gaji,pajak,bonus,libur,a,b,upah,jam: real;
     nama:string;
     begin
clrscr;
        write('Nama Pekerja: ');readln(nama);
        write('Golongan : ');readln(gol);
        If gol>6 then writeln ('golongan yang anda masukkan salah!')
        else
        write('Jam Kerja: ');readln(jam);
        write('Upah Per Jam: ');readln(upah);

        case gol of

        1: begin
        gaji:=gol*jam*upah;
        pajak:=2.5/100*gaji;
        a:=21 div gol;
        b:=21 mod gol;
        bonus:=gol*25000;
        end;

        2: begin
        gaji:=gol*jam*upah;
        pajak:=2.5/100*gaji;
        a:=21 div gol;
        b:=21 mod gol;
        bonus:=gol*25000;
        end;

        3: begin
        gaji:=gol*jam*upah;
        pajak:=2.5/100*gaji;
        a:=21 div gol;
        b:=21 mod gol;
        bonus:=gol*25000;
        end;

        4: begin
        gaji:=gol*jam*upah;
        pajak:=6.5/100*gaji;
        a:=7 div gol;
        b:=7 mod gol;
        bonus:=gol*50000;
        end;

        5: begin
        gaji:=gol*jam*upah;
        pajak:=3.5/100*gaji;
        a:=7 div gol;
        b:=7 mod gol;
        bonus:=gol*45000;
        end;

        6: begin
        gaji:=gol*jam*upah;
        pajak:=5.5/100*gaji;
        a:=7 div gol;
        b:=7 mod gol;
        bonus:=gol*40000;
        end;
        end;
                if b>0 then
                libur:=a+1
                else
                libur:=a;

        writeln('Gaji Anda= Rp. ',gaji:0:2);
        writeln('Anda Terkena Pajak= Rp. ',pajak:0:2);
        writeln('Anda Mendapat Bonus= Rp. ',bonus:0:2);
        writeln('Anda Boleh Cuti Sebanyak ',libur:0:0,' hari');
        readkey;
 end.

PROGRAM MEMBUAT KATA ATAU KALIMAT MEMBENTUK TANDA SILANG

uses crt;
var
data: string;
a,i,j: integer;
begin
clrscr;
     write('Masukan Kata= '); readln(data);
     a:=length(data);
     gotoxy(40-a div 2,12-a div 2);
     for i:=1 to a do
     begin
     gotoxy((40-a div 2)+i,(12-a div 2)+i);
     write(data[i]);
     end;

     for j:=1 to a do
     begin
     gotoxy((40-a div 2)+j,(14+a div 2)-j);
     write(data[j]);
     end;
     readln;
end.