http://bizinformation.org/

tinggal inputkan nama website yang mau di hargain..
klik nilai
maka akan muncul gambar kya di atas...
selamat mencoba

Walaupun molor, tapi alhamdulillah masih bisa berjalan sesuai keinginan. Berikut ringkasannya :

Ane (laksonoadi) datang lebih awal, jam 5 sore untuk siap2 di tekape dan kebetulan temen-temen panitia yang kebanyakan tergabung di Ubuntu Jogja, masih sibuk dengan kegiatan mereka di JNM (Jogja Nasional Museum). Jadi ane pun melangkah sendiri ke tekape (AngkringQ). Jam setengah 6 ane ada janji ketemuan ma wartawan Antara, mba Amanda. Sekitar setengah jam wawancara berlangsung dan akhirnya jadi tulisan di sini :

http://www.antaranews.com/berita/1279984572/situs-jejaring-sosial-plurk-makin-diminati-mahasiswa

dan juga di kutip sana sini termasuk di liputan6.com

http://gayahidup.liputan6.com/berita/201007/287855/Mahasiswa.Makin.Keranjingan.quotPlurkquot

Kemudian, ane lanjut persiapan yang lain. kontak pihak AngkringQ untuk siap2 tempat, snack dan soft drink nya dan sedikit demi sedikit panitia dan peserta pun hadir.

Sekitar pukul setengah 8 malam acara pun kita mulai, di buka oleh sodara @adzymaniac yang kemudian di susul dengan kehadiran mba @ariaeco yang kemudian mereka menjadi duet mc pada acara gath pada malam itu.

Dimulai dengan perkenalan, beberapa user mulai mengenalkan diri satu persatu, walau nggak semua, begitu juga dari panitia... kemudian sambutan panitia, kebetulan ane yang wakilin. Terus baru dilanjut ngobrol masalah tentang plurk. yang di bawakan sama mas @prazze.. bercerita tentang sejarah, fakta, dan masalah yang sering terjadi di plurk itu sendiri. dilanjut dengan obrolan2 tentang plurk..

Menjelang akhir dari acara, diadakan komunikasi (musyawarah) untuk ke depannya nasib dari Komunitas Plurker Jogja. dari segi ke eksisan (ngumpul2) sampe kontribusi plurker bagi plurk.com. juga pemberitahuan molornya kaos plurker jogja,, karena ada salah teknis di tukang jahit nya..

Ending dari acara, kita foto2 bersama yang dilakukan sama tukang foto kita @rajapulau. yang kemudian di upload sama @utekubuntu

bisa di liat disini

http://www.facebook.com/album.php?aid=2051921&id=1080474337

dari rentetan semua acara ini,, mas @radithtux di http://radithtux.blogspot.com/

Tak lupa kami ucapkan terima kasih kepada panitia gathering plurker jogja

@DaRm4n3x untuk kepemimpinannya, @adzymaniac untuk konfirmasi nya di angkringQ cafe, @sachty untuk bank BRI nya, @radithtux untuk desain, stiker, promo dsb, @rajapulau untuk desain, dan jadi tukang fotonya, @danthe untuk kondirmasi ke percetakan Kaos, @nobodie yang kontribusinya promosi, @prazze promosi dan informasi, serta plurker2 jogja yang lain yang tidak bisa disebut satu2...

Mari kita jadikan jogja never ending plurking

Ini sedikit foto gathering

materi, source pascal tentang segitiga pascal..
pas banget ma materi looping yang di pelajari di praktikum


uses crt;
var bil : array[0..100,0..100] of integer;
i,j,k,n : integer;
begin
write('Tingkatannya = ');readln(n);
for i:=0 to (n-1) do
begin
bil[i,0]:=1;
bil[i,i]:=1;
for j:=1 to (i-1) do bil[i,j]:=bil[i-1,j-1]+bil[i-1,j];
for k:=0 to i do write(bil[i,k]);
writeln;
end;
end.


NB :
compiler menggunakan FPC/Turbo Pascal 7.0 (under windows)
FPC (under linux)

definisinya
bilangan prima adalah bilangan yang memiliki 2 faktor,,
yaitu bilangan 1 dan bilangan itu sendiri..

berikut dapat anda coba di FPC/Turbo Pascal 7.0


uses crt;
var n,p :longint;
prima : boolean;

Begin
clrscr;
readln(n);
if (n=2) or (n=3) then prima:=true
else if (n<2) or (n mod 2=0) then prima:=false
else begin
p:=3;prima:=true;
repeeat
if n mod p=0 then
prima:=false else p:=P+2;
until (not(prima)) and (p>SQRT(n+1));
end;
writeln('prima');
readln;
end.


semoga membantu

yaitu menentukan faktor2 dari dua bilangan yang merupakan perseketuan dan nilainya terbesar..


uses crt;
var A,B,P :longint;
Begin
clrscr;
readln(A,B);
if A repeeat
P:=P-1;
until (A mod P=0) and (B mod P=0);
writeln('FPB = ',P);
readln;
end.