Mandiri Sejak Muda ala Mas Rifa'i

1. Hitung seluruh kebutuhan selama sebulan : SPP, perlengkapan sekolah/kuliah, bayar kost, uang pulsa, makan, biaya transportasi, dsb.
2. Apa saja hobi, keterampilan, dan keahlianmu yg bisa menghasilkan uang. 
3. Bagi waktu, gimana caranya agar usaha cari duit itu tak mengganggu akademik. 
4. Kepepetkan diri, misalnya dg segera putuskan jatah uang dari ortu.
5. Lakukan segera, ambil peluang apapun, asal halal dan menghasilkan uang, jangan gengsi.

Insyaallah dah, dengan begitu kita nggak kesulitan untuk sekolah dan kuliah dari uang sendiri.

"Lulus sekolah dan kuliah pake uang ortu sah-sah aja. Tapi lulus dg uang sendiri, tentu saja lebih keren." (Ahmad Rifa'i Rif'an)

Pertolongan Pertama Motor Mogok Karena Banjir

Jakarta - Musim hujan telah tiba dan bagi warga Jakarta, siap-siaplah untuk menghadapi banjir yang melanda banyak titik di ibukota. Nah bila Anda para pengguna motor yang harus melewati banjir lalu motornya mogok, ini beberapa tips yang harus dilakukan agar motor kembali ngacir.

Ketika menghadapi banjir, banyak motor yang 'bertumbangan' dan harus menghadapi kenyataan motornya mogok. Ketika itu terjadi, jangan panik. Ada beberapa bagian motor yang harus Anda cek ketika itu terjadi sebagai pertolongan pertama.

Langkah pertama ketika motor mogok setelah menerjang banjir adalah tetap tenang dan cari tempat teduh atau tempat yang memungkinkan Anda leluasa memeriksa tunggangan Anda tersebut. Setelah itu, keluarkan peralatan yang biasanya menjadi bawaan standar motor seperti obeng atau kunci busi.

Lalu periksalah busi motor Anda. Sebab biasanya bagian ini cenderung basah setelah menghadapi banjir. Keringkan busi dan ruang busi yang ada di mesin. Caranya tinggal tempatkan kain ke lubang ruang busi tadi dan gunakan kick starter beberapa kali untuk membiarkan dorongan dari mesin mendorong air keluar.

Periksa pula saringan udara motor Anda. Karena biasanya setelah terendam banjir, komponen ini akan basah yang bila dipaksakan akan membuat motor Anda 'berebet' ketika dinyalakan nanti.

Bila bagian dalam saringan udara yang biasanya berbentuk busa atau saringan terlihat basah, maka untuk sementara copot saja saringan udara tersebut. Baru setelah sampai di rumah saringan udara itu dikeringkan dan dipasang kembali.

Setting ulang pula komposisi settingan bensin dan angin yang ada di karburator. Gunakan obeng untuk melakukannya dan perhatikan bunyi dan reaksi mesin motor Anda untuk menemukan settingan yang tepat.

Coba nyalakan dan kembalilah beraktivitas. Tapi setelah sampai di kantor atau di rumah jangan lupa jemur dan angin-anginkan saringan udara tadi, setelah dirasa kering, pasang lagi seperti semula.

Dan tidak kalah penting, usahakan periksa oli motor Anda. Sebab biasanya ketika banjir terjadi, air bisa merembes ke ruang oli yang akan membuat oli tercampur dengan air. Ketika itu terjadi, warna oli biasanya berubah menjadi putih. Jangan panik. Untuk langkah awal, kuras ruang oli motor Anda. Hal itu bisa Anda lakukan sendiri.

Caranya, siapkan wadah untuk oli yang sudah memutih itu. Keluarkan oli tersebut. Setelah itu, belilah 1 liter bensin dan tuangkan setengahnya ke ruang oli. Lalu gunakan kembali kick starter untuk memompa bensin ke saluran oli yang kemungkinan juga sudah dimasuki air. Hal itu berguna untuk mendorong air keluar dan berkumpul di ruang oli.

Setelah kick starter beberapa kali, keluarkan bensin tersebut dari ruang oli melalui lubang di bawah mesin, tempat oli biasa dikeluarkan ketika ganti oli. Kemudian lakukan hal yang sama dengan berbekal setengah liter bensin yang tadi tersisa. Lalu setelah semua selesai dan bila memiliki kompresor, semprotlah ruang oli itu dengan angin. Setelah itu, masukkan oli baru ke ruang yang baru di bersihkan tadi. Dan motor Anda telah siap sedia.

Hal-hal tadi bisa dilakukan sendiri dan untuk pertolongan pertama setelah banjir. Setelah 2-3 hari, periksa kembali oli motor Anda, apakah memutih, bila iya, berarti masih ada air yang tersisa. Ganti kembali oli tadi. Dan yang pasti, setelah semua itu, datanglah ke bengkel resmi untuk pendapat perawatan lebih lanjut. (syu/ddn)

Sumber : http://oto.detik.com/read/2011/12/14/145114/1791145/1214/pertolongan-pertama-motor-mogok-karena-banjir

Program Pascal Penghitung Mean, Varians, dan Standar Deviasi

PROGRAM statistik;
USES WINCRT;
VAR
 x:array[1..100] of real;
 rata,va: real;
 n,i: integer;
BEGIN
write ('masukkan banyaknya percobaan, n = ');
readln (n);
for i :=1 to n do
begin          
write ('n ke' ,i,' = ');
readln (x [i]);
end;
rata:=0;
for i:=1 to n do
rata:=rata + x [i]  ;
writeln('mean = ',rata/n:2:2);
va := 0 ;
for i:= 1 to n do
va := ( va + (sqr((x [i]) -( rata/n)))) / (n-1) ;
 writeln ('varians = ',va:2:2)    ;
writeln ( 'standar deviasi = ', sqrt (va):2:2)
end.

Contoh output program Pascal penghitung statistik deskriptif

Program Bilangan Prima

Program ini untuk menentukan apakah suatu bilangan yang diinputkan dapat dikatakan prima atau bukan, menggunakan bahasa Pascal. Cekidot!

Program bilangan_prima;
Uses wincrt;
Var
x:integer;
y:string;

Begin
write ('input bilangan : ');
readln(x);
if ((x mod 2=0) and (x<>2)) or (x=1) then
y:='bukan bilangan prima'
else if (x mod 3=0) and (x<>3) then
y:='bukan bilangan prima'
else if (x mod 5=0) and (x<>5) then
y:='bukan bilangan prima'
else if (x mod 7=0) and (x<>7) then
y:='bukan bilangan prima'
else y:='bilangan prima';
writeln(x,' adalah ',y);
end.

Daaaann . . . inilah hasilnya! Semoga bermanfaat, selamat mencoba! :)

Program Konversi Nilai Angka ke Nilai Huruf

Program ini untuk mengkonversikan nilai angka menjadi nilai huruf. Batas-batas nilai yang digunakan ini biasanya diterapkan di perguruan tinggi.

program menghitung_nilai;
uses wincrt;
var
a:integer;
begin
writeln('masukkan nilai!');
write('nilai angka = ');
readln(a);
case a of 81..100 : writeln ('nilai huruf = ','A');
 76..80 : writeln ('AB');
 71..75 : writeln ('B');
 61..70 : writeln ('BC');
 51..60 : writeln ('C');
 41..50 : writeln ('D');
 0..40 : writeln ('E');
else writeln ('input nilai salah');
end;
end.

Program Penghitung Rata-rata (Mean)

Mean (rata-rata) adalah hasil bagi dari jumlah data dengan banyaknya percobaan.
Berikut ini program Pascal untuk menghitung rata-rata sejumlah data tunggal.

program rata2;
uses wincrt;
var
i,n :integer ;
x,sum,mean : real;
begin
write ('banyaknya data, n = ')  ;
readln (n) ; sum:=0; i:=0;
repeat
      i:= i+1    ;
      write ('data ke ',i,' = ');
           readln (x);
           sum:= sum+x;
           until i=n;
           mean:= sum/n ;
           writeln ('rata-rata = ',mean:9:4);
           end.

Output program pascal penghitung mean

Program Permutasi dan Kombinasi

program permutasi_kombinasi;
uses wincrt;
var
a,b,a_k,kombinasi,permutasi:real;
i,n,k:longint;
begin
writeln('MENGHITUNG PERMUTASI (P) DAN KOMBINASI (C):'); writeln;
write('banyaknya percobaan, n = '); readln(n);
write('banyaknya kejadian yang diharapkan muncul, k = '); readln (k);
a:=1;
b:=1;
a_k:=1;
for i:=2 to n do
a := a*i;
for i:=2 to k do
b :=b*i;
for i :=2 to (n-k) do
a_k := a_k * i;
kombinasi := a/(b*a_k);
permutasi :=a/ (a_k);
writeln;
writeln ('permutasi ',k,' dari ',n,' = ',n,' P ',k,' = ', permutasi :0:0);
writeln ('kombinasi ',k,' dari ',n,' = ',n,' C ',k,' = ', kombinasi:0:0);
end.

Output program permutasi & kombinasi dalam Pascal