Archive for May, 2008

Mencari bilangan prima dengan php

12/05/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;

Advertisements

Mempercepat browsing network

12/05/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.