Archive for May, 2008

Mencari bilangan prima dengan php

May 12, 2008

Catatan ini berawal ketika ada tugas dari dosen yang membimbing mata kuliah pemrograman php, untuk mencari bilangan prima.

Soal:
Tampilkan bilangan prima dari nilai awal (1) s/d nilai akhir (100)

jawaban:

<?php

for($i = 1; $i <= 100; $i++) {
for($k = 1; $k <= $i; $k++) {
if(($i % $k) == 0) $l++;
}
if($l == 2) $j .= $i .” “;
$l = 0;
}

if($j == “”) echo “Tidak memiliki bilangan prima”;
else echo “Bilangan prima dari 1 sampai 100 adalah “. $j;

?>

Sedangakan untuk mencari bilangan prima diatas kita bisa mengunakan
Algoritma Bilangan Prima sbb:

procedure BilPrima(num: Integer);
var i, max: integer;
begin
if num=0 then exit;
max := 2000;
for i:= 2 to max do
begin
if ((i=2) or (i=3) or (i=5) or (i=7)) then
begin
Tambahkan ke penyimpanan
num := num-1;
if num=0 then
exit;
end;
if ((i mod 2<>0) and (i mod 3 <> 0) and(i mod 5<>0) and (i mod 7<>0)) then
begin
Tambahkan ke peyimpanan
num := num-1;
if num=0 then
exit;
end;
end;
end;

Mempercepat browsing network

May 12, 2008

Kadang jika kita membuka “my network place”kita harus menunggu lama sampai isi network ditampilkan, kita bisa mengatasinya dengan merubah beberapa setting di registry.

Buka regedit kemudian tambahkan baris berikut:

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\RemoteComputer\NameSpace]

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\RemoteComputer\NameSpace\{2227A280-3AEA-1069-A2DE-08002B30309D}]

@=”Printers”

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\RemoteComputer\NameSpace\{D6277990-4C6A-11CF-8D87-00AA0060F5BF}]

@=”Scheduled Tasks”

Kemudian restart komputer dan rasakan bedanya.