Aritmatika

Matematika mengajarkan pemuda indonesia menjadi lebih cerdas.

Proklamasi Kemerdekaan RI

Pertahankan proklamasi indonesia !!!

Prosesor

Cara berpikir kita harus mampu menampung berbagai ilmu.

Bersatu

Kunci utama kemenangan.

Musyawarah

Musyawarah harusnya selalu kita utamakan.

Sms Online Gratis

Selasa, 29 November 2011

Aritmatika Sederhana DI Pascal

Sekarang jam 19:23 , mau share apa ya...
Pikir punya pikir akhirnya share ilmu tentang pemrograman bahasa pascal aja dech.
Bahasa pascal tidaklah sesulit yang sebelumnya saya bayangkan , karena dengan kecermatan dan pemahaman yang sedikit demi sedikit lama lama menjadi bukit,,,waaaaa, jadi ngaco begini kata-katanya.
Angkap semua bahasa pemrograman itu mudah untuk dipelajari dan dipahami, seperti bahasa pemrograman yang satu ini 'pascal'
User: Langsung aja contohnya kelamaan ?wek..
Admin: yaudah nieh ...
Sintak untuk pembuatan Aritmatika kalkulator sederhana :

PROGRAM ARITMATIKA_SEDERHANA;
USES CRT;

FUNCTION JUMLAH(I:INTEGER;C:INTEGER):INTEGER;
BEGIN
JUMLAH:=I+C;
GOTOXY(11,8);WRITE('=',JUMLAH);
DELAY(1500);
END;

FUNCTION KURANG(I:INTEGER;C:INTEGER):INTEGER;
BEGIN
KURANG:=I-C;
GOTOXY(11,8);WRITE('=',KURANG);
DELAY(1500);
END;

FUNCTION KALI(I:INTEGER;C:INTEGER):INTEGER;
BEGIN
KALI:=I*C;
GOTOXY(11,8);WRITE('=',KALI);
DELAY(1500);
END;

FUNCTION BAGI(I:INTEGER;C:INTEGER):DOUBLE;
BEGIN
BAGI:=I/C;
GOTOXY(11,8);WRITE('=',BAGI:0:2);
DELAY(1500);
END;

FUNCTION KUADRAT(I:INTEGER):INTEGER;
BEGIN
KUADRAT:=I*I;
GOTOXY(9,6);WRITE('=',KUADRAT);
DELAY(1500);
END;

PROCEDURE MAIN;
VAR PIL:BYTE;
NILAI1,NILAI2:INTEGER;
BEGIN
REPEAT
CLRSCR;
GOTOXY(3,2);WRITE('CALCULATOR MANUAL');
GOTOXY(3,4);WRITE('1. PENAMBAHAN [+]');
GOTOXY(3,6);WRITE('2. PENGURANGAN [-]');
GOTOXY(3,8);WRITE('3. PERKALIAN [x]');
GOTOXY(3,10);WRITE('4. PEMBAGIAN [/]');
GOTOXY(3,12);WRITE('5. PENGKUADRATAN [^]');
GOTOXY(3,14);WRITE('PILIHAN ANDA : ');
GOTOXY(18,14);READ(PIL);
IF PIL=1 THEN
BEGIN
CLRSCR;
GOTOXY(3,2);WRITE('PENAMBAHAN');
GOTOXY(3,4);WRITE('NILAI 1 =');READ(NILAI1);
GOTOXY(3,6);WRITE('NILAI 2 =');READ(NILAI2);
JUMLAH(NILAI1,NILAI2);
END;
IF PIL=2 THEN
BEGIN
CLRSCR;
GOTOXY(3,2);WRITE('PENGURANGAN');
REPEAT
GOTOXY(3,4);WRITE('NILAI 1 =');READ(NILAI1);
GOTOXY(3,6);WRITE('NILAI 2 =');READ(NILAI2);
UNTIL (NILAI1 >= NILAI2);
KURANG(NILAI1,NILAI2);
END;
IF PIL=3 THEN
BEGIN
CLRSCR;
GOTOXY(3,2);WRITE('PERKALIAN');
GOTOXY(3,4);WRITE('NILAI 1 =');READ(NILAI1);
GOTOXY(3,6);WRITE('NILAI 2 =');READ(NILAI2);
KALI(NILAI1,NILAI2);
END;
IF PIL=4 THEN
BEGIN
CLRSCR;
GOTOXY(3,2);WRITE('PEMBAGIAN');
REPEAT
GOTOXY(3,4);WRITE('NILAI 1 =');READ(NILAI1);
GOTOXY(3,6);WRITE('NILAI 2 =');READ(NILAI2);
UNTIL (NILAI1>=NILAI2);
BAGI(NILAI1,NILAI2);
END;
IF PIL=5 THEN
BEGIN
CLRSCR;
GOTOXY(3,2);WRITE('PENGKUADRATAN');
GOTOXY(3,4);WRITE('NILAI =');READ(NILAI1);
KUADRAT(NILAI1);
END;
UNTIL (PIL <= 5);
END;

BEGIN
MAIN;
DELAY(1500);
END.

Itu coding yang saya buat, mungkin bisa juga dipersingkat lagi..
Sekian ,semoga bermanfaat bagi diri pribadi maupun anda semua..
Thanks...

Selasa, 15 November 2011

Mencegah Penipuan Via Elektronik

Salam kenal for all.
Akhir-akhir ini kebayakan orang terlanjur tertipu oleh pihak tidak bertanggung jawab melalui media elektronik. Diantaranya pengiriman pulsa, transfer atm dst, baik melalui iklan, sms, telepon dan lain sebagainya.
Maka pencegahan yang dapat kita lakukan ,diantaranya :
1. Jangan langsung percaya artinya buktikan dengan pengecekan terlebih dahulu.
2. Jika permintaan transfer atm bersamaan dengan waktu telepon sudah jelas itu PENIPU.
artinya proses transfer dengan menerima telepon dari penelpon.
3. Usahakan pikirkan dulu baik-baik dengan mencari sebab-akibatnya.
4. Jangan informasikan perihal yang sangat privacy dari diri anda.
5. Waspada.
Mungkin cukup sharing dari saya ini, inti dari semuanya kita harus selalu waspada, pengecekan, hubungkan dengan sebab-akibat dan jaga kerahasiaan informasi anda.
Terima Kasih.

Mencegah Kehilangan Data

Salam kenal for all, terkadang sebagai pengguna komputer kita sering mengabaikan pencegahan terhadap adanya kerusakan operating system. Alasan dari pengguna tersebut "ga mungkin operating system guwe error / rusak".Akibat yang ditimbulkan ketika operating system yang ia miliki rusak ,otomatis ia ga mampu lagi masuk ke OSnya untuk pembackupan data karena partisi system mengalami kerusakan. Disini saya ingin sharing pengalaman tentang hal-hal tersebut dan pencegahannya.
Pertama, buat folder di drive non system dengan nama "MyDocuments" > Shotcut ke Desktop.
Kedua, klik kanan "My Documents" yang ada di drive system > lalu move/pindahkan target ke "MyDocuments" yang telah dibuat di drive non system tadi.
Ketiga, Cek selalu setiap selesai menyimpan pekerjaan anda [letak drive penyimpannya]
Mungkin ini yang dapat saya sharing, semoga bermanfaat.
Terima Kasih!!.

Minggu, 13 November 2011

Virus Runouce

Bermula bermain-main dengan komputer saja, kemudian connecting to internet. Lama kelamaan bosan juga akhirnya daripada terbuang sia-sia,coba lihat-lihat data di flashdisk ah. Dengan, kaget plus kesel semua data yang ada di flashdisk berextention .html atau .htm terinfeksi virus dengan menambahkan di setiap baris atas dengan tulisan yang dibuat virus. Terpikir juga data yang ada dikomputer, cek ah...Wahhh ternyata kena juga,hemmm...
Akhirnya cek Task Manager, runouce.exe sedang running tapi sepertinya bukan dari file system komputer. Akhirnya terpikir untuk browsing mencari tau tentang runouce.exe .Double Klik Mozilla Firefox dan ...bla-bla-bla. Pesan Kerusakan dari Mozilla muncul....
Akhirnya restart komputer , dan masuk ke ubuntu 10.10.
Browsing dulu tentang runouce.exe, dan ternyata virus tersebut menginfeksi semua extention file berupa .html / .html dan file.exe lainnya. Akhirnya browsing tentang solusinya, Ketemu dah...Find diregistry dan hapus,find readme.eml dan hapus. kemudian restart komputer. Namun hal itu tidak begitu effect dengan virus runouce.exe. Dia sudah bersarang di mana-mana sekaligus infeksi restore jika lama kelamaan dibiarkan.Ah..Kesel Install ulang aja dech!!!
Dengan berat hati terpaksa install ulang windows plus ubuntunya juga coz belum nemuin cara buat ngembaliin grub-loader he he,maklum newbie.
Setelah selesai installasi , cek lagi runouce.exe.....Beres udah hilang.
Next, Install drivernya....
Setelah install driver, tueh virus balik lagi....KESEL!!!!!
Browsing lagi cari obatnya....
Ketemu!!!
Install Panda cloud antivirus...
Setelah installasi ,memang benar virus runouce.exe ga bisa ngapa-ngapain tapi hebatnya dia masih tetep maksain infeksi.
Akibatnya Komputer gwa jadi Lambat Sekarang.....hehhhh....

Rabu, 09 November 2011

Rilis Blog

Waktu : sekitar pukul 22:00 WIB
Hari : Rabu, 09 Oktober 2011
Sebenarnya blog ini merupakan blog ke-4 yang telah saya design, Blog Pertama yang saya buat waktu masih sekolah di SMK Negeri Gudo Jombang Jatim udah lupa, kemudian saya buat blog ke-2 dengan url rudisc.blogspot.com. Kemudian menyusul ingin memberi nama yang unik pada blog akhirnya saya buat blog ke-3 dengan url watercalms.blogspot.com. Sehubungan dengan ingin menggunakan nama di url blog saya merilis rudipoint.blogspot.com, dan akhirnya keputusan untuk membuat blog dari sekumpulan ilmu yang saya miliki terwujud dengan url wujudilmuku.blogspot.com. Inilah sekilas cerita tentang pembuatan blog yang sederhana ini.