Program Menghitung Rata Rata Lima Bilangan

program ratarata; var total,a,b,c,d,e:integer; rata_rata:real; begin writeln('program menghitung rata rata lima bilangan'); write('masukkan bilangan pertama = ');readln(a); write('masukkan bilangan kedua   = ');readln(b); write('masukkan bilangan ketiga  = ');readln(c); write('masukkan bilangan keempat = ');readln(d); write('masukkan bilangan kelima  = ');readln(e); total:=a+b+c+d+e; writeln('maka totalnya adalah = ',total); rata_rata:=total/5; writeln('maka rata-rata adalah =',rata_rata:4:2); end....

Read more »

Posted in: BAHASA PASCAL

Program Menghitung Grade Nilai dengan Bahasa Pascal

program menghitungnilaigrade; var nilai:integer; grade:string; begin writeln('menghitung nilai dan nilai grade'); writeln('--------------------------------'); write('masukan nilai');readln(nilai); if (nilai>100) then grade:='salah' else if (nilai>80) then grade:='A' else if (nilai>70) then grade:='B' else if (nilai>50) then grade:='C' else if (nilai>30) then grade:='D' else if (nilai>0) then grade:='E' else if (nilai<0) then grade:='salah'; writeln('maka nilai anda adalah',grade); end....

Read more »

Posted in: BAHASA PASCAL

Antivirus gratis khusus Flashdisk dan Media berbasis USB

Seperti telah diketahui, bahwa flashdisk merupakan media yang paling sering digunakan sebagai penyebar virus, trojan, worm dan lainnya. Termasuk juga MP3, MP4 player, Memory Card dan media berbasis USB lainnya. Salah satu metode untuk mencegah aplikasi otomatis berjalan dari media tersebut adalah mematikan fasilitas autorun windows, baca artikel Disini Selain itu, antivirus biasanya juga otomatis mendeteksi Autorun yang ada di flashdiks, dan akan mengecek apakah ada virus atau tidak. Tetapi jika ingin cara lain dan lebih mudah untuk melindungi dari virus yang otomatis bisa berjalan dari flashdisk,Mp3/Mp4 player, ipod, MemoryCard (SD, MicroSD, MMC, Memori M2 dan sejenisnya) bisa mencoba freeware Mx One AntivirusMx...

Read more »

Posted in: SOFTWARE

Cara Repair Windows XP Tanpa Instal Ulang

Belajar Bersama memperbaiki Windows tanpa Instalansi ulang…Berikut tahapan2 sesuai dengan jenis kesalahan. 1. Memperbaiki Instalasi (Repair Install) Jika Windows XP Anda rusak (corrupted) dimana Anda tidak mempunyai sistem operasi lain untuk booting, Anda dapat melakukan perbaikan instalasi (Repair Install) yang bekerja sebagaimana setting (pengaturan) yang awal. - Pastikan Anda mempunyai kunci (key) Windows XP yang valid. - Keseluruhan proses akan memakan waktu kurang lebih 1/2 atau 1 jam, tergantung spek komputer Anda. - Jika Anda dimintai password administrator, sebaiknya Anda memilih opsi perbaikan (repair) yang kedua, bukan yang pertama. - Masukkan CD Windows XP Anda dan lakukan booting dari CD tersebut. - Ketika...

Read more »

Posted in: SISTEM OPERASI,SOFTWARE,WINDOWS

Sekilas Dasar Tentang C

Setelah kita memahami tentang apa itu C di postingan "Sekilas tentang C" maka selanjutnya kita akan mengenal Tipe Data Dasar dari Bahasa C , Variabel , konstanta , berbagai jenis operator dan instruksi I/O.1. TIPE DATA DASARData merupakan suatu nilai yang bisa dinyatakan dalam bentuk konstanta atau variabel. Konstanta menyatakan nilai yang tetap, sedangkan variabel menyatakan nilai yang dapat di ubah-ubah selama eksekusi berlangsung.Data berdasarkan jenisnya dapat dibagi menjadi lima kelompok, yang dinamakan sebagai tipe data dasar. Kelima tipe data dasar adalah:* Bilangan Bulat ( Integer )* Bilangan Real presisi - tunggal* Bilangan Real presisi - ganda* Karakter* Tak bertipe ( void )Kata kunci yang berkaitan dengan tipe data dasar secara...

Read more »

Posted in: BAHASA C

Program Perkenalan Nama dan Umur dengan Bahasa Pascal

program perkenalan; var nama:string; umur:integer; begin writeln('program kenalan'); writeln('akan menanyakan nama dan umur anda'); write('ketiklah nama anda : ');readln(nama); write('berapa umur anda :');readln(umur); writeln('nama =',nama); writeln('umur (hari)=',umur*365); readln; end....

Read more »

Posted in: BAHASA PASCAL

CARA MENJEBOL PASSWORD WINDOWS 7

forshareguys.blogspot.com - Tetapi pada versi windows 7 akun administrator secara default di hidden oleh system sehingga pengguna tidak tahu password tidak dapat memasuki.Oleh karena itu, saya akan kasih tips nih untuk memasuki password windows 7 di komputer orang lain,penasaran ingin mencobannya langsung saja baca petunjuknya di bawah ini :   Sebelum windows 7 boot tekan F8   pilih Repair your computer   Setelah sudah tampil interface dari Jendela Repair Your Computer, klik Open Command Prompt,   Lalu tulis ” net user administrator /active:yes”   Setelah ada pesan the command active successfully   tulis ” net user administrator password anda ” ganti kata password anda sesuai   ...

Read more »

Rekayasa Perangkat Lunak

Istilah Rekayasa Perangkat Lunak (RPL) secara umum disepakati sebagai terjemahan dari istilahSoftware Engineering. Istilah Software Engineering mulai dipopulerkan tahun 1968 pada Software Engineering Conference yang diselenggarakan oleh NATO. Sebagian orang mengartikan RPL hanya sebatas pada bagaimana membuat program komputer. Padahal ada perbedaan yang mendasar antara perangkat lunak (software) dan program komputer. Perangkat lunak adalah seluruh perintah yang digunakan untuk memproses informasi. Perangkat lunak dapat berupa program atau prosedur. Program adalah kumpulan perintah yang dimengerti oleh komputer sedangkan prosedur adalah perintah yang dibutuhkan oleh pengguna dalam memproses informasi (O’Brien, 1999). Pengertian RPL sendiri...

Read more »

Posted in: REKAYASA PERANGKAT LUNAK

Cara Memburning Lewat Windows Explorer

BLOG akan berbagi tips untuk memburning CD tanpa software.tips ini sangat ampuh dan cukup banyak dipakai orang karena sangat simple,untuk menggandakan file ke CD.berbagai contoh software untuk memburning yang sering kita kenal yaitu Nero dan Ashampo mungkin sobat sudah pernah mencoba,dan kali ini saya akan memberi tips memburning cd lewat windows explorer. berikut cara memburning lewat windows explorer : * Pilih file yang akan di burning/copy ke CD/DVD * Klik kanan pada folder pilih drive CDRW * Copy paste file data yang akan sobat burning nanti. * klik kanan Drive CDRW Anda, Pilih “Write these files to CD”   * Pilih ke jendela CD Writing Wizard isi nama cd yang akan dijadikan nama untuk CD anda. Lalu klik Next Tunggu...

Read more »

Program Matrik dengan Bahasa Pascal

program matrik; var k,x:integer; A:array[1..10] of integer; Begin for k:=1 to 5 do x:=x+A[k]; writeln('hasil= ',x); end. program matrik; var x,y: integer; p: array [1..3, 1..3] of integer; q: array [1..3, 1..3] of integer; begin writeln ('program menhitung matrik'); writeln ('========================'); for x:= 1 to 3 do for y:= 1 to 3 do begin write ('masukkan nilai matrik p [',x,',',y,']= '); readln (p[x,y]); end; for x:= 1 to 3 do begin write ('|'); for y:= 1 to 3 do write (p[x,y]:8); write ('|'); writeln; end; for y:= 1 to 3 do for x:= 1 to 3 do begin write ('masukkan nilai matrik q [',y,',',x,']= '); readln (q[y,x]); end; for y:= 1 to 3 do begin write ('|'); for x:= 1 to 3 do write (q[y,x]:8); write ('|'); writeln; end; writeln ('maka hasil matrik= '); write ('|'); write ((p[1,1]...

Read more »

Posted in: BAHASA PASCAL

Program Konversi Nilai Angka Menjadi Huruf dengan Bahasa Pascal

program konversi; var angka:integer; huruf:string; begin writeln('mengkonversi nilai angka menjadi huruf'); write('masukan nilai anda = ');readln(angka); if (angka>=0) and (angka<=20) then huruf:='e' else if ((angka>20) and (angka<=40)) then huruf:='d' else if ((angka>40) and (angka<=60)) then huruf:='c' else if ((angka>60) and (angka<=80)) then huruf:='b' else huruf:='a'; writeln('nilai anda adalah huruf=',huruf); end....

Read more »

Posted in: BAHASA PASCAL