Tadi malam aku mimpi buruk tentang mamaku. Mimpi yang biasa ditakuti oleh anak kecil mungkin yaa, menganggap mimpi itu kenyataan. Aku mimpi mamaku meninggal dunia. Saking takutnya aku, ngigau ampe kedengeran ama mamaku di kamar Beliau. Aku nangis di pelukan mamaku dan berkata, " mama, jangan tinggalin Fanny " (lebaygile). Tapi memang itulah kenyataannya. Ketakutan seorang anak ketika melihat *nyata/tidak* orang tua nya meninggal.
dalam mimpi tersebut...
Selasa, 27 Desember 2011
Senin, 26 Desember 2011
Kamis, 22 Desember 2011
Korban TA DDPK
Cewek ini adalah Korban Tugas Akhir DDPK kami :)
salah nyambung *koplak* hanya kami yang tahu..
hanya cuma ingin sharing hal yang aneh...
Waiting for Mr. Asrizal (yawn)
Kamis yang melelahkan.. Aku dan teman temanku ( ISTE ) mau kuliah English For Physics.. Janjinya sih jam 1 siang. Tapi setelah lama menanti, Bapaknya gak kunjung datang.. Menyebalkan , tau gak? (gak tau yaa?? Ndeso..!! Hahah )
Padahal besok deadline Tugas Akhir DDPK.. seharusnya waktu ini dapat ku manfaatkan dengan mengerjakan TA. Tapi aku dan teman teman harus menanti hal...
Rabu, 21 Desember 2011
Selamat Hari Ibu
Mama, hari ini hari spesial untuk mama..
Walaupun hari-hari sebelumnya juga sama..
Tapi hari ini Fanny kan beri yang terbaik untuk mama..
Love You m...
Selasa, 20 Desember 2011
Help Me please..
Aku terpuruk dalam beban dan tugas kehidupan..!!!
Aku butuh seseorang yang membawaku kembali dari keterpurukan ini.. Aku tak bisa sendiri.. Yaa Alla...
Ujian DDPK
Ujian DDPk mendadak.. Menyebalkan.. Aku berencana untuk menyelesaikan Tugas Akhir DDPK hari ini, Tapi Mr. A mengganti jadwal Ujian Praktikum ke Hari ini.. Bagaimana ini? Menyebalkan sekali harus menunda (lagi) membuat Tugas Akhir yang deadline tanggal 23 .....
Jumat, 16 Desember 2011
Uang
Dunia pendidikan telah mati
Gila karena uang…uang..uang… dan uang
Orang yang pintar
Kini tersingkirkan
Karena uang dan jabatan orang tua
Dimanakah keadilan…..?????
Ingin menjadi Dokter bayar….
Ingin menjadi PNS bayar…..
Ingin menjadi Polisi bayar…
Semuanya serba uang..uang… dan uang
Apa jadinya negeri ini..???
Jika orang pintar
Tersingkirkan oleh Uang…
Kapankah keadilan itu ditegakkan...
Otak Manusia Siapa yang Paling Bahagia di Dunia?
Wisconsin, Adakah orang yang paling bahagia di dunia di tengah tumpukan masalah hidup yang melilit? Ternyata peneliti menemukan otak manusia paling langka yang berisi gelombang gamma, yakni gelombang yang diduga sebagai penentu kebahagiaan seseorang.
Gelombang gamma sangat jarang ditemukan pada manusia. Tapi otak seorang biksu berkebangsaan Perancis yang tinggal di daratan Himalaya diketahui penuh dengan gelombang gamma. Hal itu membuatnya...
10 Kebiasaan Buruk Penghalang Kesuksesan
Di bawah ini adalah 10 kebiasaan buruk yang menghalangi dirimu dari kesuksesan:
1. Tidak tahu prioritas
Ketika kamu memiliki suatu pekerjaan penting yang harus dilakukan namun kamu malah melakukan pekerjaan lain yang tidak penting, maka ini adalah sebuah bencana. Jika apa yang kamu kerjakan sangat banyak, buatlah daftar to-do-list yang berurutan mulai dari pekerjaan yang penting sampai yang kurang penting.
2. Menunda-nunda pekerjaan...
Membongkar Hoax 'Udang dan Vitamin C'
Cerita di bawah ini mohon kasih tahu kepada semua teman /orang yg anda sayangi,Peristiwa ini terjadi di Menado, ada seorang wanita meninggal mendadak dengan lima panca indera keluar darah, setelah diselidiki ternyata wanita ini meninggal bukan karena bunuh diri atau dibunuh, melainkan karena ketidaktahuan tentang racun akibat makanan. Wanita ini ada kebiasaan minum Vitamin C tiap hari. Ini tdk masalah. Masalahnya karena malam itu wanita...
Pohon Mangga
Jadilah engkau seperti pohon mangga…
Mereka melemparimu dengan batu, tapi kau membalasnya dengan b...
Kamis, 15 Desember 2011
Smile ^___^
Ku tulis puisi ini Dengan senyum setulus dari hati Bukan bualan atau bohongan Senyum….senyum….senyum Ayo senyum……… Setiap hari selalu senyum Tak peduli kata orang, aku ini kurang waras, agak gila atau malah sudah gila Tetaplah senyum………
http://fiksi.kompasiana.com/puisi/2011/06/23/puisi-senyum/...
Rabu, 16 November 2011
DOWNLOAD BUKU T.O.P
Hai friends..
lama nggak posting nih..
yah maklum aja, orang sibuk :D
Fanny baru dapat ilmu baru nih dari Dosen Fanny dikampus..
Buat teman teman yang mau mendownload buku buku yang T.O.P silahkan aja download disini
*free*
Insya Allah, buku buku nya bagus bagus dan pasarannya juga pasaran Internasional..
Dan yang pastinya semua buku buku nya mahal mahal *kalo dibeli pake duit :D*
oke teman?!
Selamat Mendownload...
Sabtu, 05 November 2011
Mohon maaf lahir bathin kawan .. Minal aidzin wal faidzin :)
Malam Takbiran..
Memasuki pesta umat islam..
Idul adha..
Saya Fanny Rahmatina Rahim..
Dan keluarga..
Mengucapkan..
Minal aidzin wal faidzin..
Mohon maaf lahir dan bathin..
Atas kesalahan kami..
Baik yang disengaja..
Maupun tidak..
Baik sadar, maupun tidak..
Baik besar, maupun kecil..
Sesungguhnya, kesalahan ada pada kami..
Dan kebenaran ada pada Allah Swt..
Maka dari itu,
Kami mohon maaf sedalam dalamnya..
Semoga Allah memberkahi amalan kita :...
Rabu, 02 November 2011
Gombalan Maut Berdasarkan Jurusan Kuliah
Mau tau kan Semua kata kata gombal Ala Anak Kuliahan????
Cek disini ^^
Jurusan Perminyakan: Kalo aku jadi SPBU, pasti tiap hari akan papan bertulisan ‘CINTA HABIS’ soalnya kamu telah memborong semua seluruh pasokan cintaku.
Jurusan Sistem Informasi: Kelihatannya laptopku error deh, soalnya tiap mau ngetik deket-deket kamu font yg keluar pas selalu Times New “Romance”.
Jurusan Teknik Informatika: Ketika virus yang bernama CINTA.exe menyerang,...
Selasa, 01 November 2011
Program Record
Program Hurufbergerak;
uses crt;
var
kata:string;
i:integer;
begin
clrscr;
writeln('Ingin Mencoba ??? Masukkan Kalimat Anda. Saksikan apa yang akan terjadi !!');readln(kata);
clrscr;
for i:=1 to length (kata) do
begin
gotoxy(i+40,10);
delay(56600);
writeln(kata[i]);
end;
readln;
e...
Program Record
program animasi_huruf;
uses crt;
var
n,m:integer;
begin
clrscr;
n:=1;
m:=67;
repeat;
clrscr;
gotoxy(n,10);writeln('Hai Teman Teman');
delay(5000);
gotoxy(m,10);writeln('SELAMAT DATANG DI BLOG SAYA');
delay(5000);
gotoxy(m,10);writeln('WWW.FANNYPHYSICSEDUCATION.BLOGSPOT.COM');
delay(5000);
m:=m-1;
n:=n+1;
until
n=31;
m:=31;
readln;
...
Program Record
Program Hitung_kata;
uses crt;
var
kalimat : string;
s : integer;
begin
write(' Kalimat anda : '); readln(kalimat);
s := length(kalimat);
writeln(' Jumlah kata Adalah ', s);
e...
Program Record
Program Permainan_huruf;
uses crt;
var
nama : string;
I : byte;
begin
clrscr;
write(' tulis nama anda dengan baik ! '); readln(nama);
if (length (nama) >= 2 ) and (length(nama) < 4) then
writeln(' anda orangnya loyal ');
if (length (nama)...
Program Record
program permainan_huruf;
uses crt;
type
az = 'a'..'z';
kalimat = array[az] of byte;
var
huruf : char;
kata : string;
besar : az;
pernyataan : kalimat;
i : byte;
begin
clrscr;
for besar := 'a' to 'z' do
pernyataan[besar] :=0;
write(' tulis kalimat '); readln(kata);
for i := 1 to length(kata) do
begin
huruf := kata[i];
if(huruf>='a') and (huruf<='z')
then inc(pernyataan[huruf]);
end;
for besar:= 'a' to 'z' do
if pernyataan[besar] <>0...
Senin, 31 Oktober 2011
Program Record
Program hitung_kata;uses wincrt;varkalimat : string;s : integer;beginwrite(' Tuliskan Kalimat Anda : '); readln(kalimat);s := length(kalimat);writeln(' Jumlah Katanya Adalah ',s);e...
Program Record
Normal 0 false false false MicrosoftInternetExplorer4
/* Style Definitions */
table.MsoNormalTable
{mso-style-name:"Table Normal";
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-parent:"";
mso-padding-alt:0in 5.4pt 0in 5.4pt;
mso-para-margin:0in;
mso-para-margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:10.0pt;
font-family:"Times...
Program Record
program Permainan_huruf;uses wincrt;varnama : string;i : byte;beginclrscr;write(' tulis nama anda dengan baik!'); readln(nama);if (length(nama) >= 2 ) and ( length(nama) <4 ) thenwriteln(' anda orangnya Royal');if (length(nama) >= 4 ) and ( length(nama) <8 ) thenwriteln(' anda orangnya praktis');if (length(nama) >= 8 ) and ( length(nama) <20 ) thenwriteln(' anda orangnya pelit');repeat until keypressed;e...
Selasa, 25 Oktober 2011
Program Kondisi
Program Latihan_psedocode;
uses wincrt;
var
i :integer;
begin
i:=0;
while i < 100 do
begin
writeln(i);
i:=i+1;
end;
e...
Program Kondisi
program repeatuntil;
uses wincrt;
var
i : integer;
begin
i:=1;
repeat
writeln(' Ini yang ke', i,'. Aku bangga jadi Mahasiswa Fisika.');
i:=i+1;
until i>100;
e...
Program Kondisi
program fortodo;
uses wincrt;
var
i : integer;
begin
for i:= 1 to 5 do
begin
writeln('ini yang ke ',i,'. Aku bangga jadi Mahasiswa Fisika.');
end;
e...
Program Kondisi
program gerak_balok;
uses wincrt;
const
G=10;
var
F,us,m,perc,s,usaha:real;
begin
clrscr;
writeln('masukkan angka anda,kemudian enter!');
gotoXY(5,11); write('gaya tarik: ');readln(F);
gotoXY(5,12); write('massa benda: ');readln(m);
gotoXY(5,13); write('koefisien gesekan: ');readln(us);
write('perpindahan :');readln(s);
perc :=(F-m*g*us);
usaha:=(F-m*g*us)*s;
writeln('percepatan :',perc:8:4);
writeln('usaha...
Program Kondisi
program gerak_balok;
uses wincrt;
const
G=10;
var
F,us,m,perc,s,usaha:real;
begin
clrscr;
writeln('masukkan angka anda,kemudian enter!');
write('gaya tarik: ');readln(F);
write('massa benda: ');readln(m);
write('koefisien gesekan: ');readln(us);
write('perpindahan :');readln(s);
perc :=(F-m*g*us);
usaha:=(F-m*g*us)*s;
writeln('percepatan :',perc:8:4);
writeln('usaha oleh gaya...
Program Kondisi
Program Nilai_siswa;
uses wincrt;
var
nilai : real;
begin
write('Jumlah Nilai :'); readln(nilai);
if nilai>60 then
writeln('Lulus')
else
writeln('Tidak Lulus');
e...
Program Array
Program Fungsi_dan_prosedur;
uses wincrt;
type
indeks=1..5;
vektor=array[indeks] of real;
var
Rp, hasil :Real;
r : vektor;
pilih : char;
n : integer;
Function R_Paralel : real;
var
i : integer;
hasil : real;
begin
hasil :=0;
for i := 1 to n do
hasil :=hasil+1/r[i];
R_paralel :=1/hasil;
end;
procedure r_seri;
var
i : integer;
begin
hasil:=0;
for i := 1 to n do
hasil:=hasil +r[i];
end;
begin
clrscr;
n:=4;
r[1] :=100;
r[2]:=100;
r[3] :=100;
r[4]:=100;
writeln('pilih...
Program Array
Program urut;
uses wincrt;
type
indeks=1..30;
vektor=array[indeks] of real;
var
a:vektor;
cad:real;
j,i,n:word;
procedure sort(var a:vektor);
begin
for i:=1 to n do
begin
for j:=i+1 to n do
begin
if a[i]>a[j] then
begin
cad:=a[i];
a[i]:=a[j];
a[j]:=cad;
end;
end;
end;
end;
Procedure input(var a:vektor);
begin
for i:=1 to n do
begin
write('a[',i,']');readln(a[i]);
end;
end;
procedure...
Program Array
Program jumlah_dua_matriks;
uses wincrt;
type
matrik= array[1..50,1..50] of integer;
var
matrika, matrikb : matrik;
a,b : integer;
procedure baca_matrik(var c :matrik);
var
i,j : integer;
begin
for i:=1 to a do;
begin
for j:=1 to b do;
begin
write(' elemen elemen [',i,',',j,']:');
readln(c[i,j]);
end;
end;
end;
procedure tulis_matrik...
Program Array
Program Fungsi_dan_prosedur;
uses wincrt;
var Rp:Real;
r : array[1..5] of real;
pilih : char;
n : integer;
hasil : real;
Function R_Paralel : real;
var
i : integer;
hasil : real;
begin
hasil :=0;
for i := 1 to n do
hasil :=hasil+1/r[i];
R_paralel :=1/hasil;
end;
procedure r_seri;
var
i : integer;
begin
hasil:=0;
for i := 1 to n do
hasil:=hasil +r[i];
end;
begin
clrscr;
n:=4;
r[1] :=100;
r[2]:=100;
r[3] :=100;
r[4]:=100;
writeln('pilih S : Rangkaian...
Minggu, 23 Oktober 2011
Program Pembantu *Function*
Program Contoh;
uses wincrt;
var
total : integer;
function Hitung : integer;
var
i, jumlah : integer;
begin
jumlah :=0;
for i:=1 to 5 do
jumlah:= jumlah+i;
hitung:= jumlah;
end;
begin
total:= hitung;
writeln(total);
e...
Program Pembantu *Function*
Program Contoh_fungsi;
uses wincrt;
var
angka, jawaban : integer;
function Kubik(x : integer) : integer;
begin
Kubik:=x*x*x;
end;
begin
writeln(' Masukkan angka '); readln(angka);
jawaban:= Kubik(angka);
writeln('hasil pangkat tiga dari',angka,'adalah',jawaban);
e...
Program Pembantu *Function*
Program Faktorial3;
uses wincrt;
var
i, N, hsl : integer;
function Fakto(N : integer) : integer;
var
Fak : integer;
begin
if (N=0) or (N=1) then
fakto:=1
else
fakto:= N*Fakto(N-1);
end;
begin
clrscr;
write('faktorial berapa yang anda ingin hitung:'); readln(N);
writeln('hasil perhitungan:',fakto(N));
readln;
e...
Program Pembantu *Function*
Program Faktorial3;
uses wincrt;
var
i, N, hsl : integer;
function Fakto(N : integer) : integer;
var
Fak : integer;
begin
if (N=0) or (N=1) then
fakto:=1
else
fakto:= N*Fakto(N-1);
end;
begin
clrscr;
write('faktorial berapa yang anda ingin hitung:'); readln(N);
writeln('hasil perhitungan:',fakto(N));
readln;
e...
Program Pembantu *Prosedur*
Program TestNilai;
uses wincrt;
var
x,y : integer;
Procedure NoEffect (x,y : integer);
begin
x:= y;
y:= 0;
writeln(x,y);
end;
begin
x := 1;
y := 2;
writeln(x,y);
NoEffect(x,y);
e...
Program Pembantu *Prosedur*
Program Lokal_Variabel;
uses wincrt;
var
nomor1, nomor2 : integer;
Procedure tambah;
var
hasil : integer;
begin
hasil:=nomor1+nomor2;
writeln('hasil adalah',hasil);
end;
begin
writeln('masukkan dua angka bulat dengan spasi'); readln(nomor1,nomor2);
tambah;
e...
Program Pembantu *Prosedur*
Program Procedure_gerak;
uses wincrt;
var
waktu, jarak, kecepatan : real;
Procedure Tampilan_judul;
begin
writeln(' Menghitung jarak tempuh berdasarkan pada');
writeln('dua variabel yaitu: kecepatan dan waktu');
end;
Procedure Masukkan_data;
begin
write('Masukkan kecepatan dalam km/jam : '); readln(kecepatan);
write('Masukkan waktu dalam jam : '); readln(waktu);
end;
Procedure Hitung_jarak;
begin
jarak := kecepatan*waktu;
end;
Procedure Tampilkan_hasil;
begin
writeln('...
Program Pembantu *Prosedur*
Program Bilangan_GenapGanjil;
uses wincrt;
var
i , jml, pil : integer;
jwb,ya,tidak : char;
Procedure Bilangan_genap;
var
i, n, jml : integer;
begin
write(' SILAHKAN MASUKKAN NILAI ANDA -> '); readln(n);
jml:=0;
for i:= 1 to n do
jml:=jml+(2*i);
write('JADI JUMLAH BILANGAN GENAP TERSEBUT ADALAH -> ',jml);
end;
Procedure Bilangan_ganjil;
var
i,n, jml : integer;
begin
write(' SILAHKAN MASUKKAN NILAI ANDA -> ');...
Program Pembantu *Prosedur*
Program prosedure_sederhana;
uses wincrt;
var
i : integer;
Procedure display_menu;
begin
writeln('Pilihan Menu');
writeln(' 1 : Edit file teks');
writeln(' 2 : Buka file teks');
writeln(' 3 : Simpan file teks');
writeln(' 4 : Kopi file teks');
writeln(' 5 : Cetak file teks');
end;
begin
writeln('memanggil prosedur');
display_menu;
writeln('kembali dari prosedure');
e...
Selasa, 11 Oktober 2011
Program Pembantu *Prosedur*
Program ContohProsedur;
uses wincrt;
var
a,b : integer;
Procedure Cetak_bilangan;
begin
writeln(' Hasil Pertama = ',a);
writeln(' Hasil Kedua = ',b);
end;
begin
write(' Masukkan Bilangan Pertama :'); readln(a);
write(' Masukkan Bilangan Kedua :'); readln(b);
Cetak_bilangan;
a:=a+10;
b:=b+5;
writeln(' Hasil Setelah Penjumlahan ;');
cetak_bilangan;
e...
Program Pembantu *Prosedur*
Program Hitung_Jarakbenda;
uses wincrt;
var
v,t, x : integer;
Procedure Tampilan_judul;
begin
writeln(' PROGRAM MENGHITUNG JARAK BENDA');
writeln(' PADA GERAK LURUS BERATURAN ');
writeln(' ========================== ');
end;
Procedure Masukkan_data;
begin
write(' BERAPA KECEPATAN BENDA ?'); readln(v);
write(' WAKTU TEMPUH = '); readln(t);
end;
Procedure Hitung_jarak;
begin
x := v*t;
end;
Procedure Tampilkan_hasil;
begin
writeln(' JADI JARAK...
Program Pembantu *Prosedur* #Rekursi
Program Menghitung_Faktorial;
uses wincrt;
var
N , ul : integer;
fak : real;
begin
repeat
writeln(' masukkan angka -> '); readln(N);
if N<0 then
writeln(' SILAHKAN CARI ANGKA LAIN');
until N>=0;
fak :=1 ;
if N=0 then
fak :=1;
for ul := 1 to n do
begin
fak := ul*fak;
writeln(ul, '':3, fak:6:0);
end;
e...
Program Bilangan_GenapGanjil;
uses wincrt;
var
i , jml, pil : integer;
jwb,ya,tidak : char;
Procedure Bilangan_genap;
var
i, n, jml : integer;
begin
write(' SILAHKAN MASUKKAN NILAI ANDA -> '); readln(n);
jml:=0;
for i:= 1 to n do
jml:=jml+(2*i);
write('JADI JUMLAH BILANGAN GENAP TERSEBUT ADALAH -> ',jml);
end;
Procedure Bilangan_ganjil;
var
i,n, jml : integer;
begin
write(' SILAHKAN MASUKKAN NILAI ANDA -> ');...
Sabtu, 17 September 2011
Kata Bijak yang Harus Ku Terapkan Mulai Hari ini
Laut yang dangkal tidak mungkin menciptakan nelayan yang hebat. Begitu pula kehidupan, kehidupan yang kuat tidak akan ada jika tidak ada masalah didalam kehidupan itu sendiri.
Siapa nama presiden pertama di Indonesia? soekarno. Benar sekalo. Namun siapa nama presiden yang paling hebat kepemimpinannya? Berbagai jawaban akan kita terima. Apa artinya? Menjadi orang yang pertama lebih baik. Lebih baik bagaimana? Yang membawa perubahan yang baik dalam...
Kamis, 25 Agustus 2011
Bermimpi Dengan Dia *sahabatku
Semalam aku mimpi aneh. Dalam mimpi itu aku menjalani kehidupan yang berbeda dengan kehidupanku yang sebenarnya. Sepertinya mimpi itu menjadi jawaban atas permasalahan ku akhir-akhir ini. Namun aku tidak terlalu yakin karena aku pasti tidak akan pernah seperti yang di dalam mimpiku.
Siang itu aku mendapatkan pesan yang berbunyi, “ kak, tolong jangan membuat aku makin nggak berguna. Aku tau aku salah. Aku sedang memperbaiki semuanya. “
Sama persis...
Selasa, 23 Agustus 2011
Galau - Ku Takut Mama ku maraah #sing
Malam itu, aku merasakan sunyi yang teramat dalam. Seakan akan hanya detak jantungku saja yang aku rasakan. Hari ini, untuk kesekian kalinya aku dimarahi mama. Untuk masalah yang rumit ini, aku butuh seseorang untuk menumpahkan segala emosiku. Aku mau marah, menangis, dan teriak sejadi jadinya. Aku ingin ada orang yang memeluk ku dan membisikkan kata kata mutiara yang menenangkan hatiku. Namun itulah yang menjadi masalahnya. Dia lah yang kini...