This is default featured slide 1 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.

This is default featured slide 2 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.

This is default featured slide 3 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.

This is default featured slide 4 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.

This is default featured slide 5 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.

Microsoft Tawarkan Bayaran ke Media untuk Tinggalkan Google


Selasa, 24 November 2009 | 18:45 WIB

SEATTLE, KOMPAS.com - Persaingan antara Google dan Microsoft memasuki babak baru memperebutkan konten media online. Raksasa pembuat software itu dikabarkan berencana membayar media manapun yang bersedia menghapus semua kontennya dari hasil pencarian Google. Sebelumnya Microsoft berhasil menggandeng Yahoo untuk memperkuat bisnis mesin pencariannya yang diberi nama Bing.

Menurut sumber yang dilansir AFP, hal tersebut tengah dibicarakan antara Microsoft dengan Rupert Murdoch, pengusaha kawakan yang memiliki jaringan media terkemuka News Corp. Dasar pemikiran yang mendasari tawaran tersebut adalah penyedia search engine tidak boleh seenaknya mengindeks konten-konten media tanpa memberikan bayaran.

Sebelumnya, Murdoch sempat melontarkan rencananya menghapus semua konten medianya dari hasil pencarian Google dalam dua tahun. Apa yang dilakukan Google selama ini menurutnya merugikan media karena tak memberi kompensasi signifikan terhadap hasil yang diperoleh Google. Nilai bisnis yang didapat dari hasil pencarian Google juga tak sebanding dengan nilai yang ditangguk raksasa search engine tersebut.

Murdoch juga berpendapat bahwa konten tidak seharusnya diberikan secara gratis di internet dan tetap dicari orang. Konten dari sejumlah media terkenal seperti Wall Street Journal akan tetap dikenakan bayaran. Hal tersebut menurutnya cara agar media tetap bertahan di dunia online.

source:http://tekno.kompas.com/read/xml/2009/11/24/18455848/microsoft.tawarkan.bayaran.ke.media.untuk.tinggalkan.google

Intel Pengin Tanamkan Cip di Otak Manusia


Selasa, 24 November 2009 | 18:12 WIB

SAN DIEGO, KOMPAS.com � Para insinyur di Intel berambisi menanamkan cip ke dalam otak manusia untuk mengendalikan komputer secara langsung melalui pikiran. Cip semacam itu tengah dikembangkan di laboratorium riset Intel di Pittsburgh, AS.

Dengan cip seperti itu, pengoperasian komputer akan semakin efisien karena tidak lagi membutuhkan perantara seperti keyboard dan mouse. Cip implan juga bisa dimanfaatkan untuk mengendalikan perangkat-perangkat elektronis, seperti ponsel, TV, dan pemutar DVD lewat pikiran.

Seperti dilansir Physorg, Dean Pomerleau selaku salah satu ilmuwan yang terlibat menyatakan bahwa cip seperti itu bakal terwujud dalam waktu dekat meski belum sepenuhnya sempurna. Cara kerjanya berdasarkan teknologi rangsangan otak yang disebut Functional Magnetic Resonance Imaging (FMRI).

Secara teori, setiap orang yang memikirkan suatu kata atau gambar yang sama akan mengaktifkan bagian otak yang sama pula. Pomerleau dan timnya menggunakan teknologi FMRI untuk memindai otak-otak sukarelawan demi menentukan perintah yang universal.

Pomerleau mengatakan bahwa saat ini pihaknya sudah bisa segera mewujudkan headset yang memanfaatkan gelombang otak untuk melakukan perintah ke komputer. Langkah berikutnya adalah mewujudkan cip yang bisa ditanam di otak. Ia memperkirakan, hal tersebut minimal butuh satu dekade atau sepuluh tahun ke depan.


source:http://tekno.kompas.com/read/xml/2009/11/24/18121433/intel.pengin.tanamkan.cip.di.otak.manusia

Sejarah TNI AU Akan Diangkat Jadi Game


Andrian Fauzi - detikinet



Bandung - Sejarah TNI Angkatan Udara (TNI AU) akan diangkat menjadi sebuah game. Game ini akan dikembangkan oleh Regional IT Centre of Excellence (RICE), PT INTI.

RICE saat ini tengah mencari investor untuk proyek pembuatan game yang menceritakan cikal bakal Angkatan Udara RI tersebut. Dana sebesar Rp 200 juta dibutuhkan untuk membuat game yang rencananya akan ada 2 skenario dengan beberapa level.

Proyek yang diberi nama Cureng 47 ini sengaja mengambil nama yang memang menjadi sejarah bagi TNI AU. Pesawat Cureng adalah pesawat peninggalan Jepang yang dipergunakan untuk melakukan pengemboman daerah-daerah yang dikuasai oleh Belanda. Peristiwa ini kemudian dijadikan sebagai cikal bakal TNI AU.

"Ini kenapa game tersebut diberi nama Cureng 47. Cureng sendiri dari jenis pesawat dan 47 dari tahun kejadiannya 1947. Game ini mengambil cerita cikal bakal TNI AU RI," tutur Manager Regional IT Centre of Excellence (RICE) PT INTI, Gerhard Simanjuntak, saat ngobrol santai dengan detikINET, Jumat (20/11/2009) malam.

Game yang rencananya akan dibuat secara bertahap ini, ada 2 skenario. Pemain akan diberikan pilihan untuk menyelesaikan game melalui skenario yang sesuai dengan cerita sejarah.

"Ini semuanya berdasarkan riset yang dilakukan oleh anak-anak(game development binaan RICE - red)," katanya.

Ditambahkan pula Gerhard, proyek ini membutuhkan dana yang tidak sedikit. Dalam proposalnya, dibutuhkan kurang lebih Rp 200 juta untuk lama waktu pengerjaan selama 3 bulan.

"Detilnya mereka (game development binaan RICE - red) yang tahu. Tapi yang jelas mereka butuh biaya untuk riset dan biaya sehari-hari mereka selama proses pengerjaan," kata pria berkacamata ini.

( afz / wsh )

source:http://www.detikinet.com/read/2009/11/22/082039/1246231/654/sejarah-tni-au-akan-diangkat-jadi-game

World Cyber Games 2009 : Indonesia Tak Raih Gelar Juara Dunia Game


Wicak Hidayat - detikinet


Jakarta - Gelaran World Cyber Games (WCG) 2009 telah usai. Kontingen Indonesia sayangnya gagal merebut gelar di kompetisi itu.

Acara Grand Final WCG digelar di New International Convention & Exposition Center Century City, Chengdu, China pada 11-15 November 2009 lalu.

Dalam turnamen video game itu, Indonesia mengirimkan dua tim Counter Strike dan satu orang peserta Mobile Competition.

Seperti dikutip dari keterangan pers yang diterima detikINET, Rabu (25/11/2009), kontingen Indonesia tak meraih medali apapun di kompetisi tersebut.

Ajang yang disponsori oleh Samsung Electronics ini menghadirkan 600 peserta dari 65
negara. Selain untuk nge-game, ajang itu diharapkan bisa menjadi sarana untuk saling
mengenal peserta yang berasal dari berbagai negara.

WCG 2009 di Chengdu, China, mempertandingkan empat kategori games, yakni :

1. PC Games

* StarCraft: Brood War
* WarCraft III: The Frozen Throne
* Counter-Strike
* FIFA Soccer 09
* TrackMania Nations Forever
* Red Stone
* Carom3D

2. Xbox 360 Games

* Guitar Hero World Tour
* Virtua Fighter Online 5

3. Mobile Games

* Asphalt 4: Elite Racing
* Wise Star 2

4. Promotional Game

* Dungeon & Fighter
* CrossFire
* City of Heroes.

Ranking pertama dunia untuk turnamen WCG 2009 kali ini diraih oleh Korea Selatan.
Disusul kemudian oleh Swedia dan Jerman.


( wsh / rou )

source:http://www.detikinet.com/read/2009/11/25/091714/1248283/654/indonesia-tak-raih-gelar-juara-dunia-game

Tuntutan Game Online Seret Winona Ryder



Wicak Hidayat - detikinet


Jakarta - Sebuah tuntutan terhadap pembuat game online populer World of Warcraft ikut menyeret-nyeret nama Winona Ryder. Apa hubungan aktris cantik itu dengan game online?

Seorang pria bernama Erik Estavillo mengajukan tuntutan pada Activision Blizzard, pembuat game online World of Warcraft (WoW). Menurut Estavillo, perusahaan itu melakukan praktek bisnis yang merugikan dalam WoW.

Anehnya, pria yang mengaku mengidap berbagai penyakit itu juga menyeret-nyeret nama aktris Winona Ryder dalam tuntutannya. Seperti dikutip detikINET dari GamePolitics, Rabu (25/11/2009), Winona dan Depeche Mode diminta untuk memberi keterangan di pengadilan.

Menurut Estavillo, Winona bisa memberikan kesaksian soal efek keterasingan dalam dunia nyata dan game seperti WoW. Kenapa ia bisa beranggapan begitu? Rupanya Ryder memiliki buku favorit sama dengan Estavillo, yaitu 'The Catcher in the Rye' karya J.D. Salinger.

Estavillo mengharapkan ganti rugi USD 1 juta dan agar WoW melakukan perubahan terhadap praktek bisnisnya. Menurut Estavillo, saat ini WoW merugikan konsumen antara lain karena di dalam game itu butuh waktu terlalu lama untuk berjalan atau berlari.

Sebelumnya, Estavillo pernah mengajukan tuntutan pada Sony Computer (setelah account miliknya dilarang mengakses PlayStation Network), Microsoft (karena Xbox 360 mengalami masalah hardware) dan Nintendo (karena update Nintendo Wii mematikan channel Homebrew yang digunakannya).


( wsh / wsh )

source: http://www.detikinet.com/read/2009/11/25/121719/1248494/455/tuntutan-game-online-seret-winona-ryder

Gadis Misterius Bakal Segera Menghantui Nintendo Wii


Trisno Heriyanto - detikinet


Jakarta - Nintendo Wii bakal kedatangan salah satu game horor yang sangat menegangkan, game bertajuk Calling itu akan menampilkan sosok misterius gadis cilik yang berpenampilan cukup menakutkan.

Calling merupakan game yang memang dirancang khusus untuk dapat mengundang rasa takut para pemainnya. Coba bayangkan, dalam game ini gamer tidak akan dibekali senjata apapun, satu-satunya alat yang dapat digunakan oleh pemain untuk mengusir hantu adalah dengan menggoyangkan Wiimote.

Selain menyajikan adegan horor, game ini juga akan sedikit disisipi beberapa misi berbentuk teka-teki yang akan saling terhubung dengan alur cerita yang dimainkan.

Seperti dilansir detikINET dari Destructoid, Rabu, (25/11/2009), Game yang terinspirasi dari film horor gaya Jepang ini, rencananya bakal dirilis pada kuartal kedua tahun 2010.

Hudson Soft sebagai pengembang game ini, sebelumnya telah dikenal dengan beberapa game besutan mereka yang cenderung kasual dan mudah dimainkan. Dengan hadirnya Calling nanti, citra pengembang game yang bermarkas di Tokyo ini bisa jadi akan bergeser . ( eno / wsh )

source : http://www.detikinet.com/read/2009/11/25/113450/1248455/654/gadis-misterius-bakal-segera-menghantui-nintendo-wii

Pemenang Academy Award Nge-tweet dari Penjara?


Santi Dwi Jayanti - detikinet

California - Seorang tahanan jelas tak diizinkan memiliki akses ponsel apalagi komputer. Namun ketika status Twitter milik seorang tahanan kondang rajin di-update, apalagi isinya persis menceritakan kondisi yang ia alami saat mendekam di penjara, tak pelak kecurigaan pun timbul.

Scriptwriter kondang pemenang Academy Award bernama Roger Avary-lah yang dicurigai melakukan aktivitas nge-tweet dari tempat terlarang itu, yakni penjara. Avary yang kondang atas film Pulp Fiction, dicurigai sering pasang status di akun Twitter-nya.

Padahal, ia kini sedang mendekam di penjara Ventura County, California, Amerika Serikat, karena kasus kecelakaan yang menyebabkan nyawa orang lain melayang.

Akun yang beralamatkan di @avary ini memang belum diverifikasi, alias belum diketahui apakah akun itu asli apa tidak. Namun, melihat konten statusnya yang menceritakan kondisi di dalam penjara, sejumlah pihak pun dibuat bertanya-tanya dan curiga.

"Penyakit menyebar ke semua fasilitas seperti semburan api, dan #34 tidak mampu menghindari infeksi ini" begitu tweet terakhir yang ditulis Avary di profilnya.

detikINET kutip dari LATimes, Rabu (25/11/2009), beberapa orang mempercayai Avary punya akses ke komputer. Hal ini dilihat dari sebagian besar tweet-nya yang dikirimkan via web browser.

Namun hal ini juga belum pasti karena beberapa tweet ada yang ditulis lewat Twitterrific, sebuah aplikasi untuk Mac dan iPhone.

Lah, kok bisa?

( sha / rou )

source : http://www.detikinet.com/read/2009/11/25/080923/1248243/398/pemenang-academy-award-nge-tweet-dari-penjara?topnews

Serangan Wanita Berbikini Serbu Facebook


Fino Yurio Kristo - detikinet


Jakarta - Celah keamanan di Facebook dimanfaatkan pihak tertentu untuk menebar link gambar wanita mesum. Menurut vendor anti virus AVG, gambar tak senonoh itu adalah worm CSRF (Cross-Site Request Forgery), yang menyebar melalui wall para user Facebook.

Dikutip detikINET dari Forbes, Rabu (25/11/2009), worm ini berwujud seperti sebuah iklan dengan gambar wanita berbikini. 'Ingin sesuatu yang hot? Klik tombol ini, Sayang," demikian tulisan bernada menggoda yang tertera dalam iklan tersebut.

Namun jika tergoda mengkliknya, gambar bersangkutan bakal turut nampang di wall Facebook user. Untuk menghentikan masalah ini, pihak AVG menyatakan hanya Facebook yang bisa melakukannya.

Beruntung dalam waktu singkat, pihak Facebook berhasil menghentikan peredaran gambar yang mengganggu itu. Sejauh ini, belum ada efek buruk lain yang dilaporkan selain nampangnya foto itu di wall pengguna Facebook.

Menanggapi masalah ini, pihak Facebook membantah gambar itu adalah worm melainkan sebuah bentuk clickjacking. Menurut juru bicara Facebook, Simon Axten, tak banyak pengguna Facebook yang tertimpa masalah ini.

"Secara keseluruhan, persentase user yang terkena efeknya sangatlah sedikit," klaim Axten.
( fyk / faw )

source : http://www.detikinet.com/read/2009/11/25/102332/1248375/323/serangan-wanita-berbikini-serbu-facebook

Dasar-Dasar Pascal 2

Konstanta

Konstanta ini seperti variabel, hanya saja nilainya sudah didefinisikan sebelumnya dan selalu tetap dan tidak bisa diubah dalam program.
Contoh:

Const
Myconst = 1234;
Var
i:word;
Begin
i:=40;
writeln(i*myconst);
End.

Sudah jelas to maksud program di atas? Ingat! Nilai konstanta tidak dapat diubah. Jika dalam program dicoba untuk diubah, maka akan error.


Percabangan

Salah satu dari tiga konstruksi fundamental adalah percabangan/branching. Dalam pascal, percabagan menggunakan syntax if then else dan case of.

Syntax:

IF kondisi THEN
BEGIN
...
END;

Dengan ELSE:

IF kondisi [and] kondisi [or] kondisi THEN
BEGIN
...
END {memang tanpa titik koma di sini; sebelum ELSE tidak perlu titik koma!!!}
ELSE
BEGIN
...
END;

Apabila kondisi terpenuhi, maka program akan menjalankan b\perintah yang ada setelah THEN. Tapi jika kondisi tidaki terpenuhi, maka program akan menjalankan program setelah ELSE.

Contoh penggunaan:

Var i: integer;
Begin
Write('Masukkan bilangan antara 1-100: '); readln(i);
If i<=50 then Write('bilangan kecil') Else Write('bilangan besar'); End. Penggunaan CASE � OF: Penggunaan Case OF ini lkebih berguna jika kondisi yang dibandingkan berupa range. Lihat contoh berikut: CASE nilai OF 80..100 : grade:='A'; 70..79 : grade:='B'; 55..69 : grade:='C'; 45-54 : grade:='D'; ELSE grade:='E'; END; Looping Selain percabangan, konstruksi fundamental pemrograman yang lainnya adalah looping atau perulangan. DI Pascal ada 3 macam looping. Kita akan pelajari satu per satu: 1. For � to � do Syntax: FOR variable := nilai_awal TO nilai_akhir DO BEGIN �apa_yang_diulang�. END; Contoh penggunaan: FOR i:=1 TO 5 DO BEGIN Writeln(i); END; Program di atas akan menuliskan angka 1 sampai 5 ke bawah di layar. Jika ingin melakukan perhitungan mundur dari 5 ke 1, gunakan perintah DOWNTO sebagai pengganti TO (FOR i:=5 DOWNTO 1 DO). BONUS!!! Untuk variabel yang bertipe char, bisa juga menggunakan FOR dengan cara berikut: FOR c:='A' TO 'Z' DO write(c,' '); Atau boleh juga menulisnya dengan FOR c:='Z' DOWNTO 'a' DO write(c,' '); Atau untuk tipe boolean, bisa juga seperti ini: FOR b:=false TO true DO writeln(b); Bagaimana? Keren kan? 2. While � do Syntax: WHILE kondisi DO BEGIN �apa_yang_dilakukan� END; Bedanya dengan FOR ... DO, adalah pada WHILE ... DO, sebelum memulai masuk ke blok begin end, ada kondisi yang harus dicek. Jika terpenuhi baru masuk ke blok BEGIN END dan terus-menerus diulang hingga kondisi tidak tercapai. Jadi bisa saja yang di dalam blok BEGIN END tidak dijalankan sama sekali. Contoh penggunaan: i:=1; WHILE i<6>5;


Nah, itu semua adalah dasar dari pemrograman Pascal. Untuk lebih lanjut akan dibahas pada waktu berikutnya (semoga saya sempat membuat tutorial berikutnya). Berikut ini saya berikan bonus program BINTANG BERGERAK MEMANTUL-MANTUL DI LAYAR.





PROGRAM BintangMantulMantulSampaiDitekanEscape;
USES crt;
CONST
lebar=80;
tinggi=25;
xawal=1;
yawal=1;
VAR
x,y : byte;
dx,dy : shortint;
c : char;
BEGIN
{inisialisasi awal}
x:=xawal;
y:=yawal;
dx:=1;
dy:=1;
c:=#0;
REPEAT
clrscr; {bersihkan layar}
gotoxy(x,y);
write('*'); {mencetak bintang pada posisi X,Y}
x:=x+dx; {ubah koordinat x}
y:=y+dy; {ubah koordinat y}
{cek, jika sudah sampai di batas layar,
maka ubah dx & dy untukk ganti arah}
IF (X>=lebar) OR (X<=1) THEN dx:=-dx; IF (Y>=tinggi) OR (Y<=1) THEN dy:=-dy;
{jika ada penekanan tombol, maka tombol tersebut dideteksi}
IF keypressed THEN c:=readkey;
delay(100); {menunda selama 100ms}
UNTIL c=#27;
END.


sumber : http://www.a-rang.info/index.php?option=com_content&view=article&id=100:dasar-dasar-pascal-2&catid=42:pemrograman-turbo-pascal&Itemid=57

Dasar-dasar Pascal 1

Struktur Program Pascal

Struktur dari suatu program Pascal terdiri dari sebuah judul program (program heading) dan suatu blok program (program block) atau badan program (body program). Blok program dibagi menjadi dua bagian, yaitu bagian deklarasi (declaration part) dan bagian pernyataan (statement part). Bagian Deklarasi dapat terdiri dari deklarasi label (labels declaration), deklarasi konstanta (constants declaration), deklarasi tipe (type declaration), deklarasi variabel (variables declaration), deklarasi prosedur (procedures declaration) dan deklarasi fungsi (function declaration). Secara ringkas, struktur suatu program Pascal dapat terdiri dari:

1. Judul Program

2. Blok Program

a. Bagian Deklarasi

Deklarasi label

Deklarasi konstanta

Deklarasi tipe

Deklarasi variabel

Deklarasi prosedur

Deklarasi fungsi

b. Bagian Pernyataan

Program Pascal Yang Paling Sederhana

Suatu program Pascal yang paling sederhana adalah program yang hanya terdiri dari sebuah bagian pernyataan saja. Bagian pernyataan (statement part) merupakan bagian yang terakhir dari suatu blok. Bagian ini diawali dengan reserved word Begin dan diakhiri dengan reserved word End. Jadi suatu program Pascal yang paling sederhana dapat berbentuk :

Begin
End.

Blok statement harus diawali oleh kata Begin dan diakhiri dengan kata End yang ada titik dibelakangnya (End.). Jangan lupa ya! Sedangkan format umum untuk suatu program biasanya adalah:

Program �
Uses �

Var
� �
Begin
�statement�
End.

Kata program boleh ada, boleh tidak (optional). Gunanya untuk memberi nama program saja. Lalu cobalah untuk mengetikkan statement berikut lalu jalankan (Ctrl+F9):

Begin
writeln('Halo Dunia!');
End.

Dalam kasus ini kita tidak menggunakan uses dan var. Seharusnya program di atas menghasilkan tulisan �Halo� di layar. Jika terlalu cepat, tekan tombol alt+F5. Kemudian tekan sembarang tombol untuk kembali ke editor Pascal.


Uses

Untuk apakah uses itu? Uses adalah sejenis istilah yang berarti kita menggunakan suatu library (pustaka) tertentu. Lalu sekarang, apakah library itu? Untuk lebih mudah, anggap saja library itu sejenis kotak yang di dalamnya ada perintah-perintah yang kita butuhkan untuk program kita nantinya, seperti clrscr, readkey, keypressed, readln, dsb.
Pertanyaan lagi, mengapa program di atas tidak pakai uses? Karena statement writeln adalah memakai library standar milik TP (unit system), yang tidak perlu ditulis lagi.

Oh, ya. Bahasa Pascal bersifat incase-sensitive yang artinya tidak mempedulikan huruf besar atau kecil. Jadi terserah mau menulis kata Begin dengan begin atau BEGIN atau bahkan BeGiN. Tidak masalah koq. Dan jangan lupa, pada umumnya di akhir suatu perintah selalu diakhiri dengan tanda titik koma (;).


Penggunaan Write dan Writeln

Syntax write: write('');
Syntax writeln: writeln('');
Untuk lebih jelasnya, ketikkan perintah-perintah berikut ke editor Pascal anda lalu jalankan (Ctrl+F9).

Uses crt;
begin
clrscr;
writeln('ini baris pertama');
writeln('ini baris kedua');
write('ini baris ketiga');
write(' ini muncul disampingnya ');
writeln;
write('ini baris keempat');
end.

Sudah tahukah apa kegunaannya dan apa bedanya? Yang pasti, perintah write hanya menulis saja sedangkan perintah writeln menulis kemudian memindahkan kursor ke baris berikutnya.


Variabel

Variabel bisa diibaratkan sebagai sebuah kantong yang bisa menyimpan sesuatu. Dalam program yang meminta inputan ke user, maka inputannya harus ditampung ke dalam kantong yang bernama variabel ini. Dan kantong ini juga bisa diakses oleh statement program lainnya. Berikut ini adalah berbagai macam tipe variabel.

Nama Tipe

Range

Type

Shortint

-128 s/d 127

Integer

Byte

0 s/d 255

Integer

Integer

-32768 s/d 32767

Integer

Word

0 s/d 65535

Integer

Longint

-2146473648 s/d 2146473647

Integer

Real

2.9 e-39 s/d 1.7 e37

Pecahan

String

s/d 255 huruf

Non numeric

Char

1 huruf saja

Non numeric




Tipe variabel di atas adalah tipe variabel yang paling sering digunakan. Untuk tipe pecahan, masih ada tipe seperti single, double, extended, dsb. Silahkan pelajari sendiri di help yang tersedia (Ctrl+F1). Berikutnya adalah cara pendeklarasian variabel. Variabel di deklarasikan di blok var. Contoh:

Var
umur : byte;
nama : string;

Untuk memberikan suatu nilai pada variabel, pada statement masukan perintah:

:= ;

Contoh program:

Var
umur : byte;
sekolah : string;
begin
umur := 20;
sekolah := 'iSTTS';
writeln('Umurku ',umur,' tahun');
writeln('Aku bersekolah di ',sekolah);
end.

Jalankan dan lihat hasilnya! Lalu bagaimana jika kita ingin meminta inputan dari user. Gunakan perintah read atau readln. Contoh programnya:

Var
umur : byte;
sekolah : string;
begin
write('Umur saya berapa? '); readln(umur);
write('Sekolah saya di mana?'); readln(sekolah);
writeln('Umurku ',umur,' tahun');
writeln('Aku bersekolah di ',sekolah');
readln;
end.

Jalankan! Jika masukkan inputan lalu tekan enter. Lalu karena pada statement paling akhir program meminta readln. Itu artinya kita harus menekan tombol enter untuk kembali ke editor.


Uses Crt

Crt merupakan suatu unit yang mempunyai beberapa perintah yang dapat kita gunakan dalam hal pengolahan program berbasis teks. Beberapa perintah atau syntax yang memakai library ini adalah:

1. Clrscr : untuk membersihkan layar.

2. Textcolor : memberi warna pada tulisan.

3. TextBackground : memberi warna pada latar belakang tulisan tersebut.

4. GotoXY : memindahkan kursor ke posisi X,Y.

5. Sound, NoSound : membunyikan speaker dan menghentikannya.

6. Delay : menunda pemrosesan program beberapa waktu.

7. Textmode : mengubah besar karakter.

Contoh program :

Uses crt;
Begin
Clrscr;
Textcolor(14);
Textbackground(1);
Gotoxy(10,20);
Writeln('Tulisan kunig di atas biru!')
{penggunaan Sound dan NoSound}
Sound(440); delay(1000); nosound;
End.

Daftar warna:
1: hitam
2: biru
3: cyan
4: merah
5: magenta
6: coklat
7: abu-abu terang
8: abu-abu gelap
9: biru muda
10: hijau muda
11: cyan muda
12: merah muda
13: magenta muda
14: kuning
15: putih


Perhitungan matematika

Suatu statement pada blok program bisa digunakan untuk menghitung perhitungan matematika. Perhatikan program berikut:


Var
a,b,c : integer;
Begin
a:=1;
b:=5;
{penjumlahan}
c:=a+b;
writeln(c);
{pengurangan}
c:=b-a;
writeln(c);
{perkalian}
c:=a*b;
writeln(c);
{pembagian}
c:=b/a;
writeln(c);
End.


Div
Adalah pembagian yang selalu menghasilkan bilangan bulat (integer).
Contoh: c:=a div b;

Mod
adalah sisa dari pembagian modulo atau remainder yang selalu menghasilkan integer.
Contoh: c:=a mod b;

Trunc
Pembulatan angka ke bawah. Misalnya angka 5.7 dibulatkan menjadi 5.
Contoh: trunc(c);

Round
Pembulatan ke nilai integer terdekat, misal 5.6 dibulatkan ke enam. 7.1 dibulatkan menjadi tujuh.
Contoh: round(c);