About Robotic

Kata “robot” diambil dari bahasa Ceko (Chech), robota  yang memiliki arti “pekerja” (worker). Robot merupakan suatu perangkat mekanik yang mampu menjalankan tugas-tugas fisik, baik dibawah kendali dan pengawasan manusia, ataupun yang dijalankan dengan serangkaian program yang telah didefinisikan terlebih dahulu atau kecerdasan buatan (artificial intelligence). Jika sebelumnya robot hanya dioperasikan di laboratorium ataupun dimanfaatkan untuk kepentingan industri, di negara-negara maju perkembangan robot mengalami peningkatan yang tajam, saat ini robot telah digunakan sebagai alat untuk membantu pekerjaan manusia. Seiring dengan berkembangnya teknologi, khususnya teknologi elektronik, peran robot menjadi semakin penting tidak saja dibidang sains, tapi juga di berbagai bidang lainnya,...

Read more »

Program Bangun Datar dan Ruang

Lingkaran program luas_lingkaran;uses crt;const  phi = 3.14;var  jari,hasil : real;begin clrscr; write('Input jari = ');readln(jari); hasil :=phi * jari * jari; write('Hasil = ',hasil); readln;end. Persegi program keliling_persegi;uses crt;var  sisi,hasil : integer;begin  clrscr;  write('input nilai sisi = '); readln(sisi);  hasil := sisi*4;  write('Hasil = ',hasil);  readln;end.  Tabung program tabung;uses crt;const  phi = 3.14;var  r,t,c : real;begin  clrscr;  write('Input jari-jari = ');readln(r);  write('Input Tinggi    = ');readln(t);  c := phi * r * r * t;  write('hasil = ',c);  readln;en...

Read more »

Posted in: BAHASA PASCAL

Program Penyewaan

program sewa;var    listHari : array[1..4] of string=('senin','selasa','rabu','kamis','jumat');    hari: string;    jam,harga,kerja:longint;begin    writeln('###########Daftar Harga Sewa###########');    writeln('1. Hari Biasa + Jam Kerja -> Rp.100000);    writeln('2. Hari Biasa + Sore/Malam -> Rp.150000');    writeln('3. Hari Libur -> Rp.200000');    writeln('=======================================');       writeln('Formulir Penyewaan');    write('-> Hari :  ');readln(hari);    write('-> Jam : ');readln(jam);    for i:=1 to 6 do        if hari=listHari[i]...

Read more »

Posted in: BAHASA PASCAL

Menentukan Bilangan Ganjil atau Genap

program ahmadsa; var a:integer; f:text; begin assign(f,'12'); rewrite(f); readln(a); if (a mod 2=0) then writeln(f,'bilangan genap') else writeln(f,'bilangan ganjil'); close(f); end. ...

Read more »

Posted in: BAHASA PASCAL

Mencegah Virus aktif dari autorun.inf dengan USB Firewall

Seperti telah diketahui, penyebaran virus mayoritas berasal dari flashdisk atau media berbasis USB lainnya. Salah satu cara mencegahnya dengan mematikan fasilitas autorun windows (artikel sebelumnya). Tetapi bagi yang menginginkan cara lainnya atau ingin menambah agar lebih aman bisa menggunakan software gratis ini, USB Firewall. Aplikasi buatan Net-Studio ini meskipun sederhana dan tetapi sesuai dengan namanya, mampu mencegah program berjalan tanpa sepengetahuan kita dari media seperti flashdisk.USB FireWall akan mem-blok semua virus dan program lainnya yang mencoba menjalankan diri melalui Flashdisk, ketika kita memasang Flashdisk tersebut di komputer. Aplikasi ini akan berjalan di background (belakang) dan akan...

Read more »

Posted in: DOWNLOAD,SOFTWARE