Minggu, 07 Oktober 2012
Kamis, 20 September 2012
Prestasi Tim Robot UKMFT SOKET UTM
Tim robot yang terdiri dari 4 orang, meliputi 2 orang tim inti dan 2 orang crew dengan rincian sebagai berikut :
Tim inti : Ahmad Fausi Furrahman dan Mohammad Wasil.
Tim crew : Reiza J. Pradana dan Fesari Candra.
Kamis, 19 April 2012
Rindu
Segala perasaan yang membebaniku
Sedang jarak memisahkan aku denganmu
Bagaimana kau akan tahu
Bahwa aku disini begitu mengingatmu
Sedang kita tak pernah berkata
Mom,,, Dad…
Hari ini ku sangat merindukanmu
Entah kenapa
Ku selalu ingat denganmu
Mom,,, Dad…
Berilah aku penawar rindu
pada batinku ini
karena rasa rinduku
sudah tak tertahan lagi....
Minggu, 01 April 2012
Sabtu, 25 Februari 2012


- Pantai Jumiang
- Pantai Batu Kerbuy
- Api Tak Kunjung Padam
- Makam Keramat Pasarean Batu Ampar
- Vihara Alokitesvara
- Monumen Arek Lancor yang merupakan monumen perjuangan kepahlawanan Rakyat Madura dalam mempertahankan kedaulatan dan kemerdekaan Indonesia.
Inilah ceritanya, yang berkaitan dengan acara karapan sapi.
Minggu, 01 Januari 2012
Source Code Program Record
Sabtu, 31 Desember 2011
Source Code Program Deret
var
a,b,n,un:integer;
sn,x,p:real;
begin
memo1.Clear;
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
n:=StrToInt(Edit3.Text);
x:=n;
for n:=1 to n do
begin
un:=b*(n-1)+a;
memo1.lines.Add(inttostr(un));
p:=un;
end;
sn:=0.5 * x * (a + p);
memo1.lines.Add('Jumlah Sn = '+floattostr(sn));
end;
PROGRAM BINTANG
uses wincrt;
var a, b, c, n : integer;
begin
write('masukkan n :');readln(n);
writeln('*****Gambar Segitiga Terbaliknya*****');
for a:= n downto 1 do
begin
writeln('');
for c:=1 to n-a do
begin
write(' ');
end;
for b:=1 to a do
begin
write ('*');
end;
for b:= a-1 downto 1 do
begin
write ('*');
end;
end;
readln;
end.
Source Code Program Matrik Invers
Program Matrik_Invers;
uses wincrt;
type data = array [1..10,1..10] of real;
var
matrikI,matrikII : data;
baris,kolom, pil : integer;
tambah:char;
procedure isi;
var i,j : integer;
begin
writeln('Tentukan Ordo Matrik I');
write('Masukan banyak baris matrik I = ');readln(baris);
write('Masukan banyak kolom matrik I = ');readln(kolom);
for i:=1 to baris do
for j:=1 to kolom do
begin
gotoxy(j*5,i+5);
readln(matrikI[i,j]);
end;
writeln('Tentukan Ordo Matrik II');
write('Masukan banyak baris matrik II = ');readln(baris);
write('Masukan banyak kolom matrik II = ');readln(kolom);
for i:=1 to baris do
for j:=1 to kolom do
begin
gotoxy(j*5,i+12);
readln(matrikII[i,j]);
end;
end;
procedure invers_matrik(m1:data);
var
i,j,l,k : integer;
begin
{Matrik SISI KANAN}
for j:=baris+1 to baris+baris do
begin
i:=j-baris;
m1[i,j]:=1;
end;
for j:=baris+1 to baris+baris do
begin
for i:=1 to baris do
if i<>j-baris then m1[i,j]:=0;
end;
{PROSES INVERS}
for i:=1 to baris do
begin
for j:=1 to baris+baris do
begin
if i<>j then m1[i,j]:=m1[i,j]/m1[i,i];
end;
for j:=1 to baris+baris do
begin
if i=j then m1[i,j]:=1;
end;
{PENJUMLAHAN KESATU BARIS ELEMENT}
for l:=1 to baris do
begin
if i<>l then
begin
for j:=i+1 to baris+baris do
begin
m1[l,j]:=m1[l,j]-(m1[i,j]*m1[l,i]);
end;
end;
end;
{PEMBUATAN NOL DISEKITAR MATRIKS KIRI}
for k:=1 to baris do
begin
if i<>k then
begin
m1[k,i]:=0;
end;
end;
end;
{MEMUNCULKAN INVERS}
writeln('Maka invers dari matrik adalah :');
for i:=1 to baris do
begin
for j:=baris+1 to baris+baris do
write (' ',m1[i,j]:0:2);
writeln;
end;
end;
begin
isi;
Invers_matrik (matrikI);
end.
Source Code Program Luas Segitiga
Sabtu, 03 Desember 2011
CARA MENGGANTI BACKGROUND FACEBOOK
,,,Bosen dengan background facebookMu???? ne q kasih caranya gimana sich agar background facebook kita menarik atau sesuai dengan yang kita inginkan..
Langkah 1
Untuk mengubah background facebook agar lebih fresh dibandingkan sebelumnya,sebaiknya kalian menggunakan browser Mozilla Firefox. Kemudian arahkan ke alamat https://addons.mozilla.org/en-US/firefox/ untuk mencari add-on Stylish.
Langkah 2
Setelah kalian mendapatkan hasil pencarian untuk add-on Stylish, klik [Download Now]
Langkah 3
Akan muncul window baru untuk melakukan instalasi add-on stylish ini. Klik [Install Now]
Langkah 4
Tunggu beberapa saat hingga proses download selesai. Karena ukuran file add-on ini relatif kecil, maka waktu yang dibutuhkan juga tak akan lama.
Rabu, 02 November 2011
Senja Yang Manis
Jumat, 16 September 2011
bahasa tubuh


















