Contoh program entri via pointer pada Pascal

Berikut listing progam entri data mengunakan pointer pada pascal:

program entriviapointer;
uses crt;
type psiswa=^tsiswa; {deklarasi pointer bertipe tsiswa}
     tsiswa=record
     nim:string[4];
     nama:string[15];
     umur:integer;
     alamat:string[20];
     kota:string[20];
end;
procedure tampilkanmenu(var pilihan:integer);
begin
 clrscr;
 writeln('pilih salah satu menu berikut.');
 writeln('[1] tambah data');
 writeln('[2] lihat data');
 writeln('[3] keluar program');
 writeln;
 write('masukkan pilihan anda:');readln(pilihan);
end;
label awal;
var
 a:array[1..100] of tsiswa; {variabel array bertipe tsiswa}
 p:psiswa;
 i,n,pilih:integer;
begin
 awal:
 tampilkanmenu(pilih);
 clrscr;
 case pilih of
  1:begin
   write('masukkan banyak data: ');readln(n);
   for i:=1 to n do begin
    p:=@a[i];      {mendapatkan alamat memori pada variabel a[i]}
    writeln ('data ke-',i);
    with P^ do begin   {mengisikan nilai ke variabel yg ditunjuk pointer}
    write('nim      : ');readln(nim);
    write('nama     : ');readln(nama);
    write('umur     : ');readln(umur);
    write('alamat   : ');readln(alamat);
    write('kota     : ');readln(kota);
    end;
   end;
  end;
  2:begin
   if n<>0 then begin
    write('nim':4, ' ':2,'nama':15, ' ':2,'umur':2);
    writeln('alamat':20,' ':2,'kota':12);
    for i:=1 to n do begin
     p:=@a[i];  {mendapatkan alamat variabel}
     with p^ do begin {membaca isi dari variabel yg ditunjuk pointer}
     writeln(nim:4,' ':2,nama:15, ' ':2,umur:2,alamat:20,' ':2,kota:12);
     end;
    end;
   end;
  end;
  3:halt(0);
  end;
 writeln;
 write('press anykey for back '+'to menu...');
 readln;
 goto awal;
end.

Read More

Penjualan Online

Kini metode penjualan tidak hanya mengunakan metode face to face (dimana pembeli dan penjual saling bertemu untuk meperjualbelikan suatu barang/jasa), melainkan juga mengunakan metode yang lebih mudah dan cepat yaitu melalui jalur online. Dimana si penjual hanya mengambarkan, memaparkan cuplikan-cuplikan/gambar-gambar atau keterangan lain yang di butuh kedalam sebuah page website tertentu, dan mempersilahkan pengunjung web (pembeli) untuk memilih barang mana yang ingin ia beli. Namun metode ini selain memiliki sisi positif tentu juga memiliki sisi negatif, yaitu: baik pembeli atau pun penjual harus lebih hati-hati dalam melakukan suatu transaksi jual beli. Sebagai salah satu contoh kasus penyalahgunaan jual beli online (penipuan):

18 April 2013-Tergiur iklan penjualan BlackBerry di jejaring sosial Facebook, mahasiswi di Yogyakarta tertipu. Pelakunya mengaku bernama Irfan, karyawan 'Counter Discount Cellular'. Korban, Dita (21), warga Banjarnegara, Jawa Tengah, terlanjur mentranfer uang sebesar Rp4 juta kepada pelaku. Namun, barang yang dijanjikan tak kunjung datang.

Humas Polresta Yogyakarta, Iptu Haryanto, mengatakan, modus yang dilakukan pelaku dengan mengirim pesan di Facebook. Isi pesan itu memberitahukan bahwa ada dikson untuk pembelian peralatan elektronik disertai foto barang.

Untuk lebih lengkapnya silahkan kunjungi link ini

http://www.blopress.com/2013/04/kasus-penipuan-jual-beli-online-di-iklan-facebook.html

Analisis kasus:

Dari kasus diatas jelas suatu penipuan karena ketidak hati-hatian pembeli (Dita) dalam melakukan transaksi jual beli online. Ketidakhati-hatian tersebut dapat terjadi karena tergiur dengan harga yang sangat miring, tergesa-gesa ingin membeli teknologi keluaran terbaru(bahkan mungkin yang sebenarnya belum keluar), dan lain-lain.

Beberapa tahap melakukan jual beli online:

1.       Penjual memasang iklan di suatu situs jual online, contoh: tokobagus.com ( untuk mendapat kepercayaan pembeli yang mengunjungi situs tersebut alahkah baiknya jika penjual menjadi member situs tersebut). 

2.       Penjual melengkapi keterangan-keterangan yang di butuhkan baik mengenai iklan yang ia buat maupun tentang cp di penjual sendiri untuk bertransaksi dengan penjual.

3.       Penjual memeriksa kembali data-data yang ia isikan, dan menampilkan iklan tersebut.

4.       Penjual menunggu pembeli menghubunginya untuk melakukan negosiasi dan perjanjian transaksi.

5.       Jika perjanjian telah di sepakati. Uang biasanya akan dikirim melalui rekening dan barang pun akan dikirim melalui pengiriman kilat atau semacamnya.

Keamanan jual beli online:

Jika ditanya tentang keamanan tentu semua itu kembali kepada aktor jual beli suatu jual beli tersebut, baik pembeli dan penjual harus berhati-hati dalam melakukan transaksi. Berikut beberapa tips yang di sarankan oleh salah satu situs terkenal penjualan online yaitu tokobagus.com yang tentunya dalam melakukan penjualan online disitus tersebut :

Tips Bagi Pembeli

·         Anda harus menjadi member untuk dapat menghubungi pemasang iklan baik melalui email maupun telepon. Tokobagus menjamin sepenuhnya privasi anda.

·         Mintalah informasi yang jelas mengenai produk atau barang yang dijual, seperti kondisi barang, harga, cara pembayaran dan cara pengiriman barang.

·         Khusus untuk penjual yang berada diluar kota, sebaiknya anda memverifikasi identitas penjual (KTP dan SIM). Kenapa harus SIM dan KTP? Hal ini dimaksudkan untuk menguji bahwa kedua ID itu cocok (bisa juga di cocokkan dengan no rek si penjual). Apabila si penjual adalah perusahaan, kami menyarankan anda untuk meminta konfirmasi data perusahaan terutama SIUP dan NPWP.

·         Khusus untuk barang second hand yang dijual oleh perorangan, kami menyarankan anda untuk meminta bantuan rekan anda yang berdomisili di kota penjual untuk memverifikkasi barang tersebut cocok seperti apa yang ditawarkan kepada anda.

·         Anda harus meminta kepada si penjual untuk mendemokan barangnya kepada orang yang anda tunjuk sebagai representasi anda di kota tersebut. Jadi jangan melakukan transaksi apapun sebelum ada konfirmasi dari representasi anda bahwa barang tersebut memang cocok menurut kriteria anda.

·         Jika si penjual meminta sejumlah uang muka agar di transfer melalui rekening banknya, sebelum mengirim uang mohon terlebih dahulu untuk meminta foto copy KTP, SIM dan No rekening si penjual dan lakukan verifikasi ke tiga dokumen tersebut apakah asli satu dengan yang lainnya.

·         Apabila semuanya sudah OK, baru anda bisa melakukan transfer uang kepada si penjual melalui bank ternama atau melalui orang yang anda percayai di kota tersebut.

·         Extra hati-hati, jika iklan si penjual mengandung janji-janji yang terlalu muluk atau berlebihan (jangan mudah terpancing !). Jika ada, mintalah garansi atau bukti pembelian secara tertulis dari penjual.

·         Jika memungkinkan hindari metode transaksi dengan cara melakukan transfer uang melalui bank dan memilih metode konvensional Ada Barang Ada Uang.

·         Pastikan anda bertransaksi di lokasi yang aman.

Tips Bagi Penjual          

·         Anda bisa menjadi "Verified Member".

·         Pastikan iklan barang atau jasa yang anda pasang memberikan informasi yang lengkap sehingga tidak terjadi kesalahpahaman dengan pembeli.

·         Untuk pembayaran tidak tunai, pastikan uangnya telah cair atau masuk ke rekening anda sebelum anda memberikan barang kepada si pembeli.

·         Jika memungkinkan peragakan pemakaian barang yang anda jual dan pastikan pembeli telah memeriksa kondisi barang tersebut agar tidak terjadi komplain setelahnya.

·         Jika anda memberikan garansi, pastikan bahwa pembeli telah mengerti syarat-syaratnya dan ruang lingkup garansi tersebut agar tidak terjadi salah pengertian.

·         Khusus untuk anda yang menitipkan barang di courier sesuai kesepakatan dengan pembeli, yakinkan bahwa barang yang akan anda titipkan berstatus aman. Masa penitipan barang sebaiknya tidak lebih dari 12 jam kerja pada jasa courier tersebut.

·         Pastikan anda bertranskasi di lokasi yang aman.

Sumber:

http://www.tokobagus.com/halaman/content/78/content.asp

Read More

Program Perkalian pada Pascal

Berikut adalah contoh program perkalian tanpa mengunakan operator "*" pada pascal:


program kali;
uses crt;
var  x,y,i,hasil: integer;
begin
clrscr;
write('masukkan bilangan ke-1: ');readln(x);
write('masukkan bilangan ke-2: ');readln(y);
if (x<0) and (y<0) then begin
 x:=-x;
 y:=-y;
 i:=1;
 while i<=x do
  begin
  hasil:=hasil+y;
  inc(i);
  end;
end else if (x<0) then
 begin
 x:=-x;
 if (y<0) then
  y:=-y;
  i:=1 ;
  while (i<=x) do
   begin
   hasil :=hasil+y;
   inc(i);
   end;
 if y>0 then
   hasil:=-hasil;
end else begin
 i:=1;
 while (i<=x)do
  begin
  hasil:= hasil+y;
  inc(i);
  end;
 end;
writeln('hasil perkaliannya: ',hasil);
readln;
end.

nb: program diatas hanya dapat mengoperasikan perkalian integer ^^

Read More

FACEBOOK

A. Sejarah

    Mark Zuckerberg menciptakan Facemash, pendahulu Facebook, tanggal 28 Oktober 2003 ketika berada di Harvard sebagai mahasiswa tahun kedua. Menurut The Harvard Crimson, situs ini mirip dengan Hot or Not, dan menggunakan "foto yang diperoleh dari Facebook (buku wajah) daring di sembilan asrama, menempatkan dua foto berdampingan pada satu waktu dan meminta pengguna memilih yang mana yang paling seksi". Mark Zuckerberg membantu menciptakan Facebook di kamar asramanya di Harvard.

      Untuk menyelesaikannya, Zuckerberg meretas ke bagian jaringan komputer Harvard yang dilindungi dan menyalin gambar-gambar ID pribadi asrama. Harvard pada waktu itu tidak memiliki "buku wajah" (direktori berisi foto dan informasi dasar) mahasiswa. Facemash menarik 450 pengunjung dan 22.000 tampilan foto pada empat jam pertama mengudara.

    Situs ini langsung diteruskan ke beberapa server grup kampus, namun dimatikan beberapa hari kemudian oleh administrasi Harvard. Zuckerberg dihukum karena menembus keamanan kampus, melanggar hak cipta, dan melanggar privasi individu, dan terancam dikeluarkan. Namun, hukuman tersebut dibatalkan. Zuckerberg memperluas proyek awalnya ini pada semester tersebut dengan membuat peralatan studi sosial untuk menghadapi ujian final sejarah seni, dengan mengunggah 500 lukisan Augusta ke situs webnya, dengan satu gambar per halaman disertai kotak komentar. Ia membuka situs tersebut kepada teman sekelasnya, dan mereka mulai saling berbagi catatan.

      Pada semester berikutnya, Zuckerberg mulai menulis kode untuk situs web baru pada Januari 2004. Ia terinspirasi, katanya, oleh editorial The Harvard Crimson tentang insiden Facemash. Pada 4 Februari 2004, Zuckerberg meluncurkan "The Facebook" yang awalnya berada di situs web TheFacebook.com.

Enam hari setelah situs ini diluncurkan, tiga senior Harvard, Cameron Winklevoss, Tyler Winklevoss, dan Divya Narendra, menuduh Zuckerberg sengaja mengalihkan mereka agar mereka percaya ia membantu mereka membuat jejaring sosial bernama HarvardConnection.com, sementara ia menggunakan ide mereka untuk membuat sebuah produk saingan. Ketiganya mengeluh kepada Harvard Crimson, dan surat kabar ini memulai sebuah investigasi. Tiga senior tersebut mengajukan tuntutan hukum terhadap Zuckerberg yang akhirnya diselesaikan.

      Keanggotaan awalnya dibatasi kepada mahasiswa Harvard College saja, dan pada bulan pertama, lebih dari setengah mahasiswa sarjana di Harvard terdaftar di situs ini. Eduardo Saverin (pebisnis), Dustin Moskovitz (programer), Andrew McCollum (seniman grafis), dan Chris Hughes segera bergabung dengan Zuckerberg untuk membantu mempromosikan situs web ini. Bulan Maret 2004, Facebook memperluas diri ke Stanford, Columbia, dan Yale. Situs ini kemudian dibuka ke sekolah Ivy League lain, Universitas Boston, Universitas New York, MIT, dan secara perlahan beberapa universitas di Kanada dan Amerika Serikat.

      Facebook diinkorporasikan pada musim panas 2004, dan pengusaha Sean Parker, yang sering memberi saran kepada Zuckerberg, diangkat sebagai presiden perusahaan. Bulan Juni 2004, Facebook memindahkan pusat operasinya ke Palo Alto, California. Perusahaan ini menerima investasi pertamanya pada bulan itu dari pendiri pendamping PayPal, Peter Thiel. Perusahaan ini menghapus The dari namanya setelah membeli nama ranah facebook.com pada tahun 2005 dengan nilai $200.000.

     Facebook meluncurkan versi sekolah menengah atas pada September 2005 yang dianggap Zuckerberg sebagai tahap logis selanjutnya.Pada waktu itu, jaringan sekolah menengah membutuhkan undangan untuk bergabung. Facebook kemudian memperluas persyaratan keanggotaannya kepada karyawan dari sejumlah perusahaan, termasuk Apple Inc. dan Microsoft. Facebook kemudian dibuka tanggal 26 September 2006 kepada setiap orang yang berusia 13 tahun dan ke atas dengan alamat surel yang sah.

      Pada 24 Oktober 2007, Microsoft mengumumkan bahwa mereka telah membeli 1,6% saham Facebook senilai $240 juta, sehingga memberikan Facebook nilai sebesar $15 milyar. Pembelian oleh Microsoft ini meliputi hak mereka untuk menempatkan iklan internasional di Facebook. Bulan Oktober 2008, Facebook mengumumkan bahwa mereka akan membuka kantor pusat internasional di Dublin, Irlandia. Bulan September 2009, Facebook mengatakan bahwa mereka mengalami arus kas positif untuk pertama kalinya. Bulan November 2010, menurut SecondMarket Inc., sebuah bursa saham perusahaan swasta, nilai Facebook mencapai $41 milyar (mengalahkan eBay secara tipis) dan menjadi perusahaan web terbesar ketiga di AS setelah Google dan Amazon. Facebook telah diincar sebagai kandidat berpotensi untuk penawaran umum perdana pada 2013. Lalu lintas ke Facebook meningkat stabil setelah 2009. Jumlah pengunjung Facebook mengalahkan Google pada 13 Maret 2010.

        Pada bulan Maret 2011, dilaporkan bahwa Facebook menghapus sekitar 20.000 profil dari situs ini setiap hari atas berbagai macam alasan, termasuk spam, konten tidak pantas dan pemakaian di bawah umur, sebagai bagian dari upayanya mendorong keamanan siber.

     Pada awal 2011, Facebook mengumumkan rencananya untuk pindah ke kantor barunya, bekas kampur Sun Microsystems di Menlo Park, California.

       Statistik DoubleClick memperlihatkan bahwa Facebook meraih satu triliun tampilan halaman pada bulan Juni 2011 dan menjadikannya situs web yang paling banyak dikunjungi di dunia. Namun perlu diketahui bahwa Google dan sejumlah situs web tertentu tidak dihitung dalam peringkat DoubleClick. Menurut studi Nielsen Media Research yang dirilis bulan Desember 2011, Facebook adalah situs web yang paling banyak diakses kedua di Amerika Serikat.

      Pada bulan Maret 2012, Facebook meluncurkan App Center, sebuah toko bergerak daring yang menjual aplikasi yang terhubung dengan Facebook. Toko ini tersedia untuk pengguna web bergerak iPhone, Android. Pada bulan April, Facebook membeli aplikasi Instagram dengan nilai US$1 ($1 tahun 2013) miliar.

       Pada awal Mei 2012, Facebook mengakuisisi perusahaan muda Glancee yang beroperasi di bidang penjelajahan sosial.

     Facebook, Inc. mengadakan penawaran umum perdana pada tanggal 17 Mei 2012 dengan harga saham awal $38 per lembar, sehingga nilai perusahaan mencapai $104 miliar, nilai perusahaan umum baru terbesar sepanjang sejarah. Setelah IPO, Zuckerberg akan memperoleh 22% saham Facebook dan 57% hak suara. IPO ini berhasil menggalang $16 miliar dan menjadikan IPO ini yang terbesar ketiga dalam sejarah Amerika Serikat. Saham mulai diperdagangkan pada 18 Mei, dan meski saham berusaha tetap berada di atas harga IPO sepanjang hari itu, jumlahnya mencetak rekor baru dalam hal volume perdagangan IPO. Beberapa hari setelah IPO, regulator dari U.S. Securities and Exchange Commission mulai menyelidiki pelaksanaan IPO, setelah klaim bahwa perkiraan pertumbuhan Facebook yang semakin lemah tidak diungkapkan kepada seluruh pemegang saham.

B. Konsep

     Konsep dasar facebook adalah sebuah sosial media yang mana penguna dapat berbagi informasi (baik tentang diri si penguna sendiri atau pun hal lain) yang disebut dengan istilah update status. Pada facebook penguna juga dapet membuat profil dirinya sendiri yang berisi berbagai infomasi tentang diri si pengguna baik yang sifatnya pribadi maupun yang sifatnya umum. Yang tentunya untuk informasi yang bersifat pribadi memiliki pengamanan tersendiri (protected) yang mana hanya bisa dilihat oleh akun si pengguna yang bersangkutan.

       Selain itu, pengguna juga dapat menambahkan/mengundang pengguna lainnya sebagai teman dalam friends list yang dapat mempermudah pengguna untuk mengunakan fitur lain secara bersama-sama seperti chating sesama teman dan lain-lain. Tidak hanya friends list, dalam facebook pengguna juga dapet membuat/ikut dalam berbagai grup, yang semakin mempermudah pengguna untuk berkomunikasi dengan pengguna lain.

C. Teknologi

      Facebook menggunakan berbagai layanan, peralatan, dan bahasa pemrograman untuk membuat infrastruktur inti. Pada ujung depan, server mereka menjalankan LAMP (Linux, Apache, MySQL, dan PHP) stack dengan Memcache.

- Linux & Apache

        Bagian ini cukup jelas. Linux adalah Unix seperti kernel sistem operasi komputer. Ini open source, mudah disesuaikan, dan baik untuk keamanan. Facebook menjalankan sistem operasi Linux di Apache HTTP Server. Apache juga open source gratis dan merupakan web server yang paling populer di gunakan.

- MySQL

     Untuk database, Facebook menggunakan MySQL karena kecepatan dan kehandalan. MySQL digunakan terutama sebagai penyimpan nilai kunci sebagai data secara acak didistribusikan diantara set besar kasus logis. Contoh-contoh logis tersebar di seluruh node fisik dan load balancing yang dilakukan di tingkat simpul fisik.

          Sejauh kustomisasi yang bersangkutan, Facebook telah mengembangkan skema partisi kustom di mana ID global ditugaskan untuk semua data. Mereka juga memiliki skema pengarsipan kustom yang didasarkan pada bagaimana data yang sering dan aktual pada basis per-user. Data yang paling aktual didistribusikan secara acak.

         VP Teknologi Facebook, Jeff Rothschild memberikan beberapa rincian pada konferensi pengguna MySQL terakhir. Rothschild mengatakan Facebook sekarang berjalan 10.000 server, termasuk 1.800 server MySQL yang diawasi oleh hanya dua database administrator.

PHP

     Facebook menggunakan PHP karena itu adalah bahasa pemrograman web yang baik dengan dukungan luas dan komunitas pengembang yang aktif dan hal ini baik untuk iterasi yang cepat. PHP adalah bahasa pemrograman script yang dinamis.

- Memcache

       Memcache adalah sistem caching memori yang digunakan untuk mempercepat database website dinamis (seperti Facebook). Dengan caching data dan objek dalam RAM untuk mengurangi waktu membaca. Memcache adalah media cache utama Facebook membantu meringankan beban database.

         Memiliki sistem caching memungkinkan Facebook untuk bisa sangat cepat memanggil data Anda. Karena tidak harus pergi ke database, memcache hanya akan mengambil data Anda dari cache berdasarkan ID pengguna Anda.

D. Kelebihan

-          Mudah berbagi file, foto, dan lain-lain

-          Memiliki fitur video call dan pastinya chating

-          Sangat mudah dijadikan tempat promosi ke sesama  teman

-          Interface tidak rumit, mempermudah pengguna untuk mengunakannya

-          Ada berbagai fitur game sebagai hiburan si pengguna

-          Dan masih banyak kelebihan dari sosial media facebook

E. Kekurangan

-          Mudah terjadi penipuan jika si pengguna tidak berhati-hati dalam berteman

-          Tidak ada option untuk merubah templete atau background

-          Banyaknya profil palsu

F.Keamanan

Menurut penulis keamanan facebook kini sudah baik. Namun bukan berarti keamanan facebook sudah cukup dan tidak ditingkatkan lagi. Karena masih banyak beberapa kasus terjadi perentasan akun facebook, walaupun pihak facebook berpendapat bahwa tidak ada data-data yang hilang/diambil.

Dan  facebook pun berniat untuk meningkatkan keamanan penggunanya dengan memperkenalkan 2 fitur keluaran barunya.

1. Trusted Friends

membantu pengguna Facebook jika suatu saat ada masalah akun terkunci atau tidak bisa diakses. Dengan trusted friends, maka pengguna bisa memilih 3 sampai 5 orang teman yang dipercaya untuk membantunya mengakses kembali akun Facebook yang terkunci. Facebook akan mengirimkan kode ke para teman dipercaya yang dipilih pemilik akun untuk membuka kunci akun pemilik. Fitur ini secara teoritis akan meningkatkan keamanan akun Facebook pengguna namun harus digunakan secara hati-hati agar para teman yang dipercaya tersebut tidak menyalahgunakan kepercayaan ini untuk mengutak-atik akun pemilik sebenarnya, baik untuk tujuan jahil ataupun tujuan lain.

2. App password

Fitur ini dimaksudkan untuk meningkatkan keamanan akun Facebook dengan menyediakan pemilik akun sebuah password unik yang digunakan dalam sebuah aplikasi. Pengguna akan membuat password khusus untuk aplikasi dan mengganti password biasa yang digunakan aplikasi pihak ketiga seperti Spotufy atau Skype. Pengguna juga bisa menolak sebuah aplikasi tertenut untuk mengakses akun Facebook dengan cukup menghapus password yang sudah dibuat sebelumnya.

G.Pemanfaatan dan pengembangan dimasa depan

Pemanfaatan facebook selain sebagai media komunikasi melalui antar pesan atau chating, facebook juga memiliki beberapa fitur yang sangat bermanfaat untuk mempermudah komunikasi antar sesama, yaitu:
- facebook share : fitur yang memungkinkan pengguna untuk berbagi file-file, tulisan, foto, link, dan lain-lain
- facebook app : fitur yang menyediakan berbagai aplikasi/game yang dapat menjadi hiburan tambahan bagi pengguna
- facebook sebagai media branding
- dan masih banyak lagi pemanfaatan facebook lainnya

Kedepannya facebook mungkin dapat dikembangkan sebagai:

- Sarana pengiklanan berbagai perusahaan (yang tentunya memiliki tempat/tab-nya sendiri tidak serta merta ada iklan dimana-mana)

- Sarana forum

- Sarana pembelajaran bersama seperti google doc dan lain-lain

Sumber:

http://id.wikipedia.org/wiki/Facebook    (1 mei 2013)

http://www.brainwares.com/2011/06/bckf/

http://smittywerbenjaggermanjensen.blogspot.com/2013/04/facebook.html

http://gaptek-newbie1.blogspot.com/2013/04/kelebihan-kekurangan-dan-keamanan.html
http://gaptek-newbie1.blogspot.com/2013/04/pemanfaatan-dan-perkembangan-facebook.html

Read More