yang unik unik, aneh , absurd, tips, trik, apajadah insya alloh ada di mari :D

Saturday, December 26, 2009

sejarah facebook


facebook adalah website jaringan sosial dimana para pengguna dapat bergabung dalam komunitas seperti kota, kerja, sekolah, dan daerah untuk melakukan koneksi dan berinteraksi dengan orang lain. Orang juga dapat menambahkan teman-teman mereka, mengirim pesan, dan memperbarui profil pribadi agar orang lain dapat melihat tentang dirinya.

Facebook didirikan oleh Mark Zuckerberg, seorang lulusan Harvard dan mantan murid Ardsley High School diluncurankan pertama kali pada 4 februari dan awalnya hanya untuk siswa Harvard College. Dalam dua bulan selanjutnya, keanggotaannya diperluas ke sekolah lain di wilayah Boston (Boston College, Boston University, MIT, Tufts), Rochester, Stanford, NYU, Northwestern, dan semua sekolah yang termasuk dalam Ivy League.

Banyak perguruan tinggi lain yang selanjutnya ditambahkan berturut-turut dalam kurun waktu satu tahun setelah peluncurannya. Akhirnya, orang-orang yang memiliki alamat email universitas (seperti .edu, .ac.uk, dll) dari seluruh dunia dapat juga bergabung dengan situs ini.

Selanjutnya Facebook dikembangkan pula jaringan untuk sekolah-sekolah tingkat atas dan beberapa perusahaan besar. Sejak 11 September 2006, orang dengan dengan alamat email apa pun dapat mendaftar di Facebook. Pengguna dapat memilih untuk bergabung dengan satu atau lebih jaringan yang tersedia, seperti berdasarkan sekolah tingkat atas, tempat kerja, atau wilayah geografis.

Facebook menemui masalah dalam beberapa tahun terakhir seperti pemblokiran pada negara Suriah, Iran dan beberapa tempat kerja agar para pekerja tidak menyalahgunakan waktu kerjanya untuk membuka Facebook. Dan masalah tentang tuduhan bahwa Zuckerber mencuri kode program dari teman-temanya untuk membuat Facebook.

Facebook juga pernah ditawar oleh yahoo senilai $ 1 miliar dan kemudian oleh seorang anggota dewan Facebook, menunjukkan bahwa Facebook internal valuation adalah sekitar $ 8 miliar berdasarkan proyeksi pendapatan sebesar $ 1 miliar pada tahun 2015.

Peringkat Facebook saat saya tulis artikel ini menempati urutan ke 6 situs yang paling banyak di akses di indonesia dan urutan ke 5 untuk seluruh dunia.


Berikut data mengenai facebook:

Founded : Cambridge, Massachusetts(February 4, 2004)

Headquarters : Palo Alto, CaliforniaDublin, Ireland (international headquarters for Europe, Africa, Middle East)

Key people : Mark Zuckerberg (Founder and CEO), Dustin Moskovitz (Co-founder), Sheryl Sandberg (COO), Matt Cohler (VP of Product Management), ChrisHughes (Co-founder)

Revenue : 300 million USD (2008 est.)

Net income : 47.4 million USD (2007 est.)

Employees : 700 (November 2008)

Website : facebook.com

Type of site : Social network service

Advertising : Banner ads, Referral marketing

Registration : Required

Available in : Bulgarian, Catalan, Chinese (simplified), Chinese (Hong Kong), Chinese (Taiwan), Croatian, Czech, Danish, Dutch, English (American),English (British), English (Pirate), Filipino, Finnish, French, German, Greek, Hungarian, Indonesian, Irish, Italian, Japanese, Korean, Malay, Norwegian, (bokmål), Polish, Portuguese (Brazilian), Portuguese (European), Romanian, Russian, Serbian, Slovene, Spanish (Castilian), Swedish, Thai, Turkish,Vietnamese, Welsh

Launched : February 2004


sumber : http://www.tips-fb.com/2009/01/tentang-facebook.html
0

kode smiley facebook

Sering chating dengan teman di facebook? pasti ada yang terasa kurang dibandingkan bila kita chating menggunakan yahoo messenger yang mempunyai banyak smiley (emoticon). Sebenarnya facebook juga mempunyai smiley yang cukup banyak hanya saja pengguna facebook banyak yang tidak tahu kode untuk menampilkan smiley tersebut. Mau tambah asyik ngobrol dengan teman di facebook silakan tambahkan kode-kode smiley facebook berikut :

:) :( :P :D :O ;) 8) 8| >:( :\



:'( 3:)



O:) :-* <3 ^_^ -_- O.o >:o :v :3 :|]


:putnam:
0

Friday, December 25, 2009

menghitung luas dan keliling bangunan

Yup… pada postingan yang ter dahulu saya hanya kasih rumus untuk mencari luas segitiga saja sekarang kita buat program menghitung luas dan keliling bangunan. Bangunan yang dijadikan contoh adalah segitiga. Perhatikan contoh di bawah ini:
1: Program Menghitung_Luas_dan_Keliling;
2: var alas, tinggi, sisimiring, luas, keliling: real;
3: Begin
4: writeln('MENGHITUNG LUAS DAN KELILING SEGITIGA');
5: writeln('-------------------------------------');
6: write('Masukkan alas : ');readln(alas);
7: write('Masukkan tinggi : ');readln(tinggi);
8: luas:= 0.5*alas*tinggi;
9: sisimiring:=sqrt(sqr(alas)+sqr(tinggi));
10: keliling:= alas+tinggi+sisimiring;
11: writeln;
12: writeln('luas segitiga : ', luas:0:2);
13: writeln('keliling segitiga : ', keliling:0:2);
14: readln;
15: end.
Pada baris 6 dan 7 adalah tempat memasukkan alas dan tinggi segitiga yang akan diproses di baris 8 sampai 10. Ingat rumus menghitung sisi miring segitiga? Yaitu akar dari jumlah kuadrat sisi-sisinya. Fungsi "sqrt" adalah untuk mengakarkan dan sqr untuk mengkuadratkan.
Sekarang kebaris 12 dan 13. Apa yang beda? Betul.. setelah variabel luas dan keliling dicetak ke layar ada tambahan ":0:2". Itu artinya : banyaknya alokasi angka: jumlah desimal.
Gampangkan? iya dong, kan tinggal main logika...
0

ngitung pake rumus matematika

Luas Lingkaran, akar kuadrat, pangkat dua, wuuahh… gak aneh lagi tuh.., pasti rumus matematika. Kali ini kita coba yuk ngitung rumus matematika pake program PASCAL. Tapi sebelumnya baca dulu deh penjelasan berikut :

PI adalah suatu fungsi yang disediakan Turbo Pascal untuk mendapatkan nilai phi yaitu 3.14159…..

SQR adalah fungsi untuk menghitung nilai kuadrat dari suatu bilangan. Contoh: SQR(4), maka hasilnya adalah 4.

SQRT adalah fungsi untuk menghitung nilai akar kuadrat dari suatu bilangan. Contoh: SQRT(36), maka hasilnya adalah 6.

Jelaskan skarang kita akan bahas penggunaan sintak PI, SQR, dan SQRT. Langsung aja … tanpa basa basi, coba deh cotoh – contoh program di bawah ini !

Contoh01

1.Program Lingkaran;

2.Uses Crt;

3.Var r,L,K : Real;

4.Begin

5. Clrscr;

6. Write(’Masukan jari-jari lingkaran (cm) : ‘); Readln(r);

7. L := pi * r * r;

8. K := 2 * pi * r;

9. Writeln;

10. Writeln(’Luas lingkaran : ‘,L:10:2,’ cm2′);

11. Writeln(’Keliling lingkaran : ‘,K:10:2,’ cm ‘);

12.End.

Contoh02

1. Program Lingkaran;

2. Uses Crt;

3. Var a,b,d : Real;

4. c : Integer;

5. Begin

6. Clrscr;

7. a := 5.3;

8. b := sqr(a);

9. c := 25;

10. d := sqrt(c);

11. Writeln;

12. Writeln(’kuadrat a : ‘, b:6:0);

13. Writeln(’akar kuadrat c : ‘, d:6:0);

14.End.

Untuk latihan coba kamu buat program untuk menghitung panjang sis miring segitiga siku – siku ! Rumus segitiga siku – siku : c2 = a2 + b2.

Kriteria input dan outpunya sebagai berikut:

Input : a dan b

Output : Panjang sisi miring

Petunjuk: Pakailah fungsi SQR dan SQRT.

sumber : http://dzulcyber.blogspot.com
0

rumus menghitung luas segitiga lewat turbo pascal

HALLO semua.....
kita kan pernah tuh ngitung ribet banget nyari luas segitiga...
dari pada susah susah mending langsung aja pake turbo pascal, gax lama kok..
nih ku kasih tau rumusnya :


Program Luas_Segitiga;

Uses CRT;

Var

Alas,Tinggi:Integer;

Luas:Real;


SL:Char;


BEGIN

ClrScr;

WriteLn('Program Mencari Luas Segitiga');

WriteLn;


Write('Masukkan Alas ? ');ReadLn(Alas);

Write('Masukkan Tinggi ? ');ReadLn(Tinggi);


Luas:=(Alas*Tinggi)/2;


WriteLn;


WriteLn('Luasnya Adalah ',Luas:15:2);


SL:=ReadKey;

END.
0