masih ingat kah anda tentang nilai factorial yang di pelajari sma, masih ingatkah anda dengan hasil 10!, jawabannya mudah 10!=1*2*3*4*5*6*7*8*9*10=? wah kok isi nya tanda tanya, males ngitung nya kalau males ngitungn bikin aja programnya buat ngitung nilai faktorialnya
pertama tama seperti biasa buka free pascal terus tulis deh program yang di bawah
program nilaifactorial; {nama programnya}
uses crt {unit nya}
var
n,k:integer {n=banyak nya data k=nilai bantu}
jumlah:longint {jumlah nya}
begin
repeat
clrscr; {fungsi membersihkan layar}
write('masukan nilai n: '); readln(n);
jumlah:=1;
k:=1;
while k <= n do begin jumlah:=jumlah*k; k:=k+1; end; writeln('jadi hasilnya ',jumlah); write; write('lihat lagi Y/N: '); readln(lagi); until upcase(lagi)= 'N'; end.
nih hasilnya
noh ketemukan hasilnya 10!=3628800
gampangkan kalau di bikin programnya
>>>>>>>download source codenya<<<<<<<<<
26 Oktober 2008
menghitung nilai factorial
22 Oktober 2008
axis penipu
waktu pertama kali munculnya kartu axis sih saya seneng banget tarifnya itu loh murah banget ditambah gprsnya gratis, tapi lama kelamaan tarifnya itu makin naik naik dan naik, tarif gprsnya naik dari gratis ke 0,1/kb naik lagi ke 0,7/kb. emang sih dibandingkan dengan yang lain sih masih ter murah. lama kelamaan kok cepet banget pulsa tuh abisnya, trus saya penasaran lalu saya mau menghitungnya, saya cek pake opera mini mod kebetulan ada fitur traff memory, traff memory itu fungsinya buat ngasih tau besarnya data yg masuk, setelah di hitung hitung byte yg ada di traff memory di kali sama tarifnya kok ga sesuai sama pulsa yg udah berkurang, perkiraan saya itu tarifnya di atas 1/kb, katanya gsm yg baik tapi kok nipu konsumen, pertama-tamanya aja murah eh kesini nya naik dan naik, kapan sih operator hp berlomba lomba nurunin tarif gprs
19 Oktober 2008
ZIddu, sharing file dapet duit
ziddu adalah sebuah layanan di internet seperti rapidshare atau layanan utuk sharing file lainnya,tak hanya sharing file,di ziddu kita bisa mengupload berbagai file file seperti mp3, video, games, software dan lain lain terserah deh, selain urusan sharing sharingan ternyata ziddu juga memberikan dolar juga loh mereka akan membayar $0,001 tiap kali ada yang download file yang kita sharing itu, memang sih kecil tetapi lumayan lah untuk penyemangat kita ngeblog, kenapa ziddu bisa membayar kita, pasti pada mau tanya ya hehehe, ada apa gerangan,udah kebanyakan duitkah si ziddu itu, ternyata selidik punya selidik si ziddu dapet duitnya dari masangin iklan yang cukup banyak di link download itu, iklannya itu banyak banget dah ampe pusing ngeliatnya, hehehe jadi si ziddu untung kita pun untung,kekurangan dari si ziddu itu selain iklannya banyak kadang kadang download nya juga gagal hehehe, itulah kekurangan paling mendasar tetapi lumayan lah untuk berbagi file dengan orang lain dan mendapat $$$ tentunya
>>>Daftar Disini<<
Pcmav 1.7
tabel periodik unsur.zip
Photo Filter
13 Oktober 2008
Mainin Ps Di Komputer
mau maen ps 1 tapi gak punya biaya buat beli, mendingan pergunain komputer kamu untuk dijadin ps1 sebenarnya ps2 juga ada tapi yang di bahas ps1 dulu aja yang ps2 nyusul,caranya adalah dengan menggunakan sebuah software emulator, emulator itu alat buat mainin consol di pc jenis nya macem macem ada yang buat ps1,ps2,xbox,sega,nintendo dan game consol lainnya. selain emulator yang kamu perluin itu bios, jadi kamu harus ngedownload 2 kali yaitu emulator dan biosnya,spesifikasi minimumnya nih:
P200MMX or compatible
32 MB of RAM
Fast graphic card (like the voodoo 2)
Cdrom x16
Win9x
DirectX 7a
nih di kasih scrrenshotnya
download Epsxe
12 Oktober 2008
Tetris Source Code
{===================================================x
= Program : Tetris 2 Player =======================
= Oleh : Ahmad Priatama =======================
===================================================
Kode sumber dapat dimodifikasi dan dipublikasikan
Dengan bebas, tidak ada larangan dalam bentuk apapun
===================================================}
program tetris_2player;
uses crt;
type _points = array [1..4] of record
x,y : longint;
end;
tetris = record
points : _points;
cshape, nshape, xmodel, xtetris, ymodel, ytetris : longint;
end;
Const template : array [1..8] of _points =
(((x:1; y:1),(x:1; y:2),(x:2; y:1),(x:2; y:2)),
((x:2; y:1),(x:1; y:1),(x:3; y:1),(x:4; y:1)),
((x:1; y:2),(x:1; y:1),(x:1; y:3),(x:2; y:3)),
((x:2; y:2),(x:2; y:1),(x:2; y:3),(x:1; y:3)),
((x:1; y:2),(x:1; y:1),(x:2; y:2),(x:2; y:3)),
((x:1; y:2),(x:2; y:1),(x:2; y:2),(x:1; y:3)),
((x:1; y:2),(x:1; y:1),(x:1; y:3),(x:2; y:2)),
((x:1; y:2),(x:2; y:1),(x:2; y:2),(x:2; y:3)));
var field : array [1..79,1..25] of boolean;
tetris1, tetris2, ttetris : tetris;
quit,gameover : boolean;
answer : char;
procedure init_field;
var i : longint;
begin
clrscr; fillchar(field,sizeof(field),0);
for i := 3 to 22 do
begin
gotoxy(20,i); write(#186); field[20,i] := true;
gotoxy(36,i); write(#186); field[36,i] := true;
gotoxy(60,i); write(#186); field[60,i] := true;
gotoxy(76,i); write(#186); field[76,i] := true;
end;
for i := 1 to 15 do
begin
gotoxy(20+i,23); write(#205); field[20+i,23] := true;
gotoxy(60+i,23); write(#205); field[60+i,23] := true;
end;
gotoxy(20,23); write(#200);
gotoxy(60,23); write(#200);
gotoxy(36,23); write(#188);
gotoxy(76,23); write(#188);
gotoxy(6,4); write('Next:');
gotoxy(46,4); write('Next:');
end;
procedure drawtetris(objek : tetris; mode : Boolean);
var i : longint;
c : char;
begin
if mode then c := #178 else c := #32;
for i := 1 to 4 do
begin
field[objek.points[i].x,objek.points[i].y] := mode;
gotoxy(objek.points[i].x, objek.points[i].y);
write(c);
end;
gotoxy(1,1);
End;
procedure dropnew(var objek : tetris);
var i : longint;
begin
if objek.cshape <> 0 then
begin
for i := 1 to 4 do
begin
ttetris.points[i].x := template[objek.nshape,i].x + objek.xmodel;
ttetris.points[i].y := template[objek.nshape,i].y + objek.ymodel;
end;
drawtetris(ttetris,false);
end;
objek.cshape := objek.nshape;
objek.nshape := random(8) + 1;
for i := 1 to 4 do
begin
objek.points[i].x := template[objek.cshape,i].x + objek.xtetris;
objek.points[i].y := template[objek.cshape,i].y + objek.ytetris;
ttetris.points[i].x := template[objek.nshape,i].x + objek.xmodel;
ttetris.points[i].y := template[objek.nshape,i].y + objek.ymodel;
if field[objek.points[i].x,objek.points[i].y] then
begin
gameover := true;
break;
end;
end;
drawtetris(objek,true);
drawtetris(ttetris,true);
end;
procedure init_tetris(var objek : tetris; id : longint);
begin
objek.nshape := random(8) + 1;
if id = 1 then
begin
objek.xmodel := 7; objek.xtetris := 26;
end else begin
objek.xmodel := 47; objek.xtetris := 66;
end;
objek.ymodel := 5; objek.ytetris := 2;
dropnew(objek);
end;
procedure eliminate(objek : tetris; y : longint);
var i,j,k : longint;
blank : boolean;
begin
for i := y downto 3 do
begin
blank := false;
for j := objek.xmodel + 14 to objek.xmodel + 28 do
if not field[j,i] then
begin
blank := true;
break;
end;
if not blank then
begin
for k := i downto 3 do
begin
gotoxy(objek.xmodel + 14,k);
for j := (objek.xmodel + 14) to (objek.xmodel + 28) do
begin
if field[j,k-1] then write(#178) else write(#32);
field[j,k] := field[j,k-1];
end;
end;
eliminate(objek,i);
break;
end;
end;
end;
procedure slide(var objek : tetris);
var i : longint;
dropped : boolean;
begin
drawtetris(objek,false);
ttetris := objek;
dropped := false;
for i := 1 to 4 do
begin
inc(ttetris.points[i].y);
if field[ttetris.points[i].x,ttetris.points[i].y] then
begin
dropped := true;
break;
end;
end;
if not dropped then objek := ttetris;
drawtetris(objek,true);
if dropped then
begin
eliminate(objek,22);
dropnew(objek);
end;
end;
procedure rotate(var objek : tetris);
var i : longint;
collide : boolean;
begin
drawtetris(objek,false);
ttetris := objek;
collide := false;
for i := 2 to 4 do
begin
ttetris.points[i].y := objek.points[1].y + objek.points[i].x - objek.points[1].x;
ttetris.points[i].x := objek.points[1].x - objek.points[i].y + objek.points[1].y;
if field[ttetris.points[i].x,ttetris.points[i].y] then
begin
collide := true;
break;
end;
end;
if not collide then objek := ttetris;
drawtetris(objek,true);
end;
procedure shift(var objek : tetris; x, y : longint);
var i : longint;
collide : boolean;
begin
drawtetris(objek,false);
ttetris := objek;
collide := false;
for i := 1 to 4 do
begin
ttetris.points[i].x := objek.points[i].x + x;
ttetris.points[i].y := objek.points[i].y + y;
if field[ttetris.points[i].x,ttetris.points[i].y] then
begin
collide := true;
break;
end;
end;
if not collide then objek := ttetris;
drawtetris(objek,true);
if collide then eliminate(objek,22);
end;
procedure userinput;
var i : longint;
c : char;
begin
for i := 1 to 20 do
begin
if keypressed then
begin
c := upcase(readkey);
case c of
'W' : if tetris1.cshape <> 1 then rotate(tetris1);
#72 : if tetris2.cshape <> 1 then rotate(tetris2);
'A' : shift(tetris1,-1,0);
#75 : shift(tetris2,-1,0);
'S' : shift(tetris1,0,1);
#80 : shift(tetris2,0,1);
'D' : shift(tetris1,1,0);
#77 : shift(tetris2,1,0);
#27 : gameover := true;
#32 : repeat delay(10); until keypressed;
end;
end;
delay(10);
end;
end;
begin
randomize;
while not quit do
begin
init_field;
init_tetris(tetris1,1);
init_tetris(tetris2,2);
gameover := false;
while not gameover do
begin
slide(tetris1);
slide(tetris2);
userinput;
end;
gotoxy(1,25); write('Play Again[Y/N]? ');
repeat
answer := upcase(readkey);
until answer in ['Y','N',#27];
if (answer = 'N') or (answer = #27) then break;
end;
end.
10 Oktober 2008
Ngecheck Blog Orang
iseng iseng nih ga ada inspirai buat nulis akhirnya ya udah aja chek chek aja blog teman teman ngeblog saya di http://www.diagnosticoweb.com/ hehe nih hasilnya
http://anggorodewanto.blogspot.com/
| Basic WebSite / Domain Info | |
| Page Loading Time | 0.815798997879 seconds |
| Whois Info | Created : 2000-07-31 Changed : 2005-07-22 Expires : 2010-07-31 |
| Googlebot Last Access | 5 Oct 2008 18:07:19 GMT |
| MSNbot Last Access | N/A |
| Technorati Last Update | N/A |
| WebSite / Domain Ranking | |
| Google PageRank (without www) | 1 (Valid) |
| Google PageRank (with www) | 1 (Valid) |
| Alexa Traffic Rank | 7498584 |
| Technorati (Blog) Rank | 0 (Auth.: 0) |
| Quantcast Rank | N/A |
| Compete Rank | 17 |
| Search Engines Result Position | |
| Keywords | download ebook gratis |
| Google SERP Position | Not in top 100 |
| Yahoo SERP Position | Not in top 100 |
| MSN SERP Position | Not in top 100 |
| Major Internet Directories | |
| Listed in DMOZ Directory? | Not listed |
| Listed in Google Directory? | Not listed |
| Listed in Yahoo Directory? | Not listed |
| Exist in Wikipedia(EN)? | Not listed |
| Archive.org (WayBackMachine)? | 0 |
| Back Links and Outbound Links | |
| Google Backlinks | 0 |
| Yahoo Inlinks | 173 |
| AllTheWeb Links | 123 |
| Altavista Links | 125 |
| Backlinks from .gov site | 0 |
| Backlinks from .edu site | 0 |
| Outbound Links | 101 <-- Click to show/hide the URLs |
| Internal Links | 74 <-- Click to show/hide the URLs |
| Indexed on Major Search Engines | |
| Indexed pages on Google | 38 |
| Indexed pages on Yahoo | 7 |
| Indexed pages on MSN | 0 |
| WebSite / Domain Title - Description - Keywords | |
| Title | Universe of anggorodewanto's mind |
| Description | |
| Keywords | |
http://rhapsodixx.net/
| Basic WebSite / Domain Info | |
| Page Loading Time | 18.9948320389 seconds |
| Whois Info | Created : 2008-10-05 Changed : 2008-10-05 Expires : 2009-10-05 |
| Googlebot Last Access | 6 Oct 2008 16:33:29 GMT |
| MSNbot Last Access | 06 Oct 2008 |
| Technorati Last Update | N/A |
| WebSite / Domain Ranking | |
| Google PageRank (without www) | 0 (Valid) |
| Google PageRank (with www) | 0 (Possibly FAKE -- Google is not caching this domain) |
| Alexa Traffic Rank | 0 |
| Technorati (Blog) Rank | 0 (Auth.: 0) |
| Quantcast Rank | N/A |
| Compete Rank | N/A |
| Search Engines Result Position | |
| Keywords | rhapsodixx.net |
| Google SERP Position | 1 |
| Yahoo SERP Position | Not in top 100 |
| MSN SERP Position | 1 |
| Major Internet Directories | |
| Listed in DMOZ Directory? | Not listed |
| Listed in Google Directory? | Not listed |
| Listed in Yahoo Directory? | Not listed |
| Exist in Wikipedia(EN)? | Not listed |
| Archive.org (WayBackMachine)? | 0 |
| Back Links and Outbound Links | |
| Google Backlinks | 0 |
| Yahoo Inlinks | 0 |
| AllTheWeb Links | 0 |
| Altavista Links | 0 |
| Backlinks from .gov site | 0 |
| Backlinks from .edu site | 0 |
| Outbound Links | 0 <-- Click to show/hide the URLs |
| Internal Links | 1 <-- Click to show/hide the URLs |
| Indexed on Major Search Engines | |
| Indexed pages on Google | 10 |
| Indexed pages on Yahoo | 0 |
| Indexed pages on MSN | 1 |
| WebSite / Domain Title - Description - Keywords | |
| Title | « RhapsodiXX.net » The KuroNeko's virtual lair |
| Description | learn and get so much information, computer/information technology guide&tips, and story from me here :) |
| Keywords | panji gautama, panji, gautama, rhapsodixx, rhapsody, panji gautama personal site, panji gautama website, situs panji gautama |
http://komporat.co.cc/
| Basic WebSite / Domain Info | |
| Page Loading Time | 1.42109417915 seconds |
| Whois Info | Domain is not supported. |
| Googlebot Last Access | 4 Oct 2008 10:37:14 GMT |
| MSNbot Last Access | N/A |
| Technorati Last Update | N/A |
| WebSite / Domain Ranking | |
| Google PageRank (without www) | 0 (Valid) |
| Google PageRank (with www) | 0 (Valid) |
| Alexa Traffic Rank | 413 |
| Technorati (Blog) Rank | 0 (Auth.: 0) |
| Quantcast Rank | N/A |
| Compete Rank | N/A |
| Search Engines Result Position | |
| Keywords | komporat.co.cc |
| Google SERP Position | 1 |
| Yahoo SERP Position | Not in top 100 |
| MSN SERP Position | Not in top 100 |
| Major Internet Directories | |
| Listed in DMOZ Directory? | Not listed |
| Listed in Google Directory? | Not listed |
| Listed in Yahoo Directory? | Not listed |
| Exist in Wikipedia(EN)? | Not listed |
| Archive.org (WayBackMachine)? | 0 |
| Back Links and Outbound Links | |
| Google Backlinks | 0 |
| Yahoo Inlinks | 2 |
| AllTheWeb Links | 0 |
| Altavista Links | 0 |
| Backlinks from .gov site | 0 |
| Backlinks from .edu site | 0 |
| Outbound Links | 0 <-- Click to show/hide the URLs |
| Internal Links | 1 <-- Click to show/hide the URLs |
| Indexed on Major Search Engines | |
| Indexed pages on Google | 45 |
| Indexed pages on Yahoo | 0 |
| Indexed pages on MSN | 0 |
| WebSite / Domain Title - Description - Keywords | |
| Title | KomporaT |
| Description | |
| Keywords | |
09 Oktober 2008
CCleaner Pembersih komputer
semakin lama kita rasakan komputer kita hari semakin lambat hal ini dikarenakan kita sering sekali menginstall berbagai software, apabila anda bosan dengan keadaan itu maka ada solusinya dengan menginstall ccleaner,aplikasi ini seperti tune up utilities namun dengan interface yang sederhana sehinggga memudahkan dalam membersihkan komputer, fitur-fitur yang di punyai software ini adalah registry cleaner,dan uninstall program, aplikasi ini anda perlukan bila performa komputer merupakan hal yang terpenting bagi anda. nih saya kasih liat screenshotnya
download disini
Google sketch up Membuat model 3d menjadi mudah
saya kasih nih screenshotnya
