Inspirasiku ...

Penuh dengan inspirasi yang tak terhingga, menjadi seni modifikasi yang membuat hati tenang

Gawat, 09 Juli 2012 INTERNET SEDUNIA MATI TOTAL !!

WARNINGS - Di bulan April lalu, terdapat kabar bahwa internet dunia akan mati pada tanggal 9 Juli mendatang. Hari ini adalah tanggal 30 Juni dan merupakan 9 hari terakhir sebelum 'hari kiamat internet' terjadi. 9 hari dari sekarang, semua komputer yang terinfeksi dan terhubung dengan internet tidak dapat mengakses email, Facebook, Twitter, YouTube atau segala alamat di internet.

Menurut Msn.com, FBI menyatakan bahwa mereka bertanggung jawab atas penonaktifan internet pada tanggal 9 Juli mendatang. FBI menyebut hari tersebut dengan sebutan Internet Doomsday atau hari kiamat internet. Mengapa FBI ingin mematikan internet pada tanggal 9 Juli? Hal tersebut dikarenakan laporan sebuah serangan trojan yang akan menyapu bersih semua jaringan internet dunia seperti tsunami.

Trojan yang bernama DNSCharger Trojan tersebut merupakan ciptaan dari cybercriminal dari Estonia. Trojan ini akan menginfeksi semua PC berbasis Windows dan Mac serta merusak router yang terhubung dengan internet. Sekarang ini menurut catatan Internetidentity.com, terdapat 4 juta komputer dan router yang terhubung dengan internet.

DNSCharger Trojan juga pernah melumpuhkan kurang lebih 500 ribu PC dan Mac di tahun 2007 silam. Oleh karenanya, FBI menyarankan agar pengguna internet untuk melakukan tiga langkah antisipasi sebelum tanggal 9 Juli mendatang.

Memeriksa semua pengaturan di dalam komputer
Menggunakan atau mengaktifkan antivirus terbaik di dalam perangkat komputer
Memeriksa sistem dalam komputer yang terhubung dengan internet

Tiga langkah di atas memang bukan satu-satunya cara untuk menyelamatkan perangkat komputer kita dari serangan DNSCharger Trojan, namun apa salahnya apabila mencoba langkah-langkah tersebut. Lebih baik menjaga daripada mengobati, bukan?
doomsday internet ini berlangsung selama 10hari.

Yaps, semoga info ini bermanfaat bagi sobat semua dan meningkatkan kewaspadaan tentunya.

contoh fungsi luas segitiga

program aritha_pascal;
uses wincrt;

function luassegitiga(alas: integer; tinggi:integer) : real;
var luas:real;
begin
luas:= alas*tinggi/2;
luassegitiga:= luas;
end;


var a,t:integer;
luas : real;

begin
writeln('-======Program Fungsi Luas segitiga======-');
writeln;
write('masukkan nilai alas : '); readln(a);
write('masukkan nilai tinggi : '); readln(t);

write('luas segitiga adalah : ', luassegitiga(a,t):0:2);

end.

contoh prosedur luas segitiga

program aritha_pascal;
uses wincrt;

procedure inputan(alas: integer; tinggi:integer; var luas:real);
begin
write('masukkan nilai alas : '); readln(alas);
write('masukkan nilai tinggi : '); readln(tinggi);
luas:= alas*tinggi/2;
end;

var a,t:integer;
luas : real;
begin
writeln('-======Program Procedure Luas segitiga======-');
writeln;
inputan(a,t,luas);
write('luas segitiga adalah : ', luas:0:2);
end.

contoh program pascal prosedur nama

program aritha_pascal;

uses wincrt;

procedure nama;
var nm: string;

begin
write('masukkan nama anda ');
readln(nm);
write('haloo ', nm);
end;

begin
writeln('-======Program Procedure Input Nama======-');
nama;
end.

semut ku iki