Tipe Data pada Turbo Pascal

Turbo Pascal memiliki beberapa jenis tipe data, yaitu :

1. Tipe Sederhana :

• Tipe Ordinal

• Tipe Integer
• Tipe Shortint
• Tipe Longint
• Tipe Boolean
• Tipe Char
• Tipe Byte
• Tipe Word
• Tipe Terbilang
• Tipe Subjangkauan
• Tipe Real
• Tipe String
• Tipe Terstruktur
• Tipe Larik (array)
• Tipe Rekaman (record)
• Tipe Himpunan (set of)
• Tipe Berkas (file of)
• Tipe Pointer

Namun kali ini saya hanya akan membahas tipe data integer, shortint, longint, boolean, char, byte, word, real, dan string.
Bentuk umum pendeklarasian tipe adalah :

type pengenal = tipe;

dimana,
pengenal : nama pengenal yang menyatakan tipe data, misalnya 'angka', 'nama', 'jawaban'
tipe : tipe data yang berlaku dalam turbo pascal.
Namun, untuk menggunakan tipe data tersebut secara langsung, kita tidak perlu lagi untuk mendeklarasikannya.

1. Tipe Integer

Tipe integer adalah tipe data yang nilainya tidak mempunyai desimal (koma).
5 tipe data yang termasuk kelompok ini :

• byte      : 0..255 (1 byte)
• shortint :-128..127 (1 byte)
• integer  :-32768..32767 (2 byte)
• word     :0..65535 (2 byte)
• longint  :-2147483648..2147483647 (4 byte)

Operator - operator pada tipe integer :

+          : penjumlahan

-          : pengurangan

*          : perkalian

div       : pembagian dengan pembulatan (misal : 20 div 3 = 6 karena 6*3=18)

mod      : sisa pembagian (misal : 20 mod 3 = 2 karena 6*3=8 sisa 2)

2. Tipe Boolean

Tipe boolean hanya mempunyai 2 nilai : benar(true) dan salah(false). Tipe boolean dapat dikombinasikan dengan ekspresi not, or, xor, dan and.
And :
contoh: if buku and seragam and tas and bekal then sekolah
Statement di atas akan bernilai true jika keempat kondisinya(buku,seragam,tas,dan bekal) bernilai true. Apabila salah satunya ada yang bernilai false, maka nilainya akan menjadi false.
Or :
contoh: if senin or rabu then kursus
Statement di atas akan bernilai true jika salah satu atau kedua kondisinya bernilai true.
Xor :
Statement akan berniali true jika hanya satu kondisi yang bernilai true.
Not:
Negasi dari suatu kondisi.

3. Tipe Char

Data tipe char hanya terdiri dari 1 karakter, misal:'a', '5', '.'

4. Tipe Real

Tipe data real adalah tipe data yang menggunakan minimal 1 angka di belakang koma, misal:18,6 atau 19,0, dsb.
Tipe data real mempunyai batasan nilai 2.9x10E-39 .. 1.7x10E38 (6 byte)

Operator-operator tipe real :

+ : penjumlahan

- : pengurangan

* : perkalian

/ : pembagian

Parameter R:N:M dapat digunakan untuk mempersingkat bilangan desimal di belakang koma.
Contoh :
type angka = real;
var desimal : angka;
bil:=123.45;
write('Bilangan real 9 digit dgn 3 angka di belakang koma = ',bil:9:3);

output :
'   123.450' := (123.450) ada 9 digit dan 3 angka di belakang koma.

5. Tipe String

Tipe data string merupakan kumpulan karakter-karakter, misal:'saya pergi ke toko buku'.
Modifikasi string mungkin akan dibahas di posting selanjutnya.

Diskusi, Membaca Cepat, Tajuk Rencana, Rangkuman dan Ikhtisar

Diskusi 

Unsur-unsur diskusi :

• Moderator
• Penyaji
• Notulen
• Peserta
• Objek -> Makalah
• Fasilitas -> Tempat, waktu,...

Format penulisan notulen :
1.    Judul
2.    Identitas -> petugas, waktu, kapan, dimana, tema, anggota, ….
3.    Isi
4.    Kesimpulan
5.    Tanda tangan

Membaca Cepat

Faktor pendukung :
•    Pensil -> sebagai pengacu dan penanda
•    Jangkauan mata
•    Skimming
•    Scanning
•    Baca dari belakang

Tajuk Rencana

Tajuk Rencana --> Tulisan pendek ttg pendapat2 yg aktual yg dibuat oleh redaksi
Berisi :
a.    Pesan
b.    Sikap editor
c.    Ulasan politik
d.    Sambutan terhadap suatu hal yg istimewa

Pola penulisan :
•    Paragraf pembuka
•    Paragraf uraian
•    Paragraf isi

Bahasa tajuk rencana :
•    Lugas dan cendekia
•    Hemat kata atau efektif
•    Merupakan penalaran

Rangkuman dan Ikhtisar

Beda rangkuman/ringkasan dgn ikhtisar :
Ikhtisar : Rangkuman yg lebih pendek dengan urutan yg tidak tentu
Rangkuman : Ringkasan dari suatu wacana yg ditulis secara sistematis

Tangga bahasa :
1.    Wacana
2.    Paragraf
3.    Kalimat
4.    Klausa
5.    Frasa --> dua kata atau lebih yg menduduki satu fungsi
6.    Kata
7.    Huruf
8.    Bunyi

MathWay.com - Solusi Menjawab Soal Matematika

Pernah merasa bingung mengerjakan soal-soal matematika dari sekolah? Nggak dapet-dapet jawabannya? Mentok? Nah, MathWay.com salah satu solusinya. Di website tersebut, Anda bisa menuliskan pertanyaannya, kemudian nanti langsung dijawab secara otomatis. Mendaftarnya pun gratis dan sangat mudah.
Contoh :

image 1.1 masukkan soal

image 1.2 jawaban

Namun sayangnya, situs tersebut mengharuskan kita untuk mendaftar sebagai premium member agar bisa melihat langkah-langkah (steps) pembahasan soalnya. Silakan login dulu di Mathway dan lihat biayanya. Untuk semua subject matematika nya ada yang sekitar Rp600.000,-/tahun. Yah, lumayan sih walaupun nggak dapat pembahasannya tapi kita bisa dapat jawabannya secara cuma-cuma. Jadi, misalnya ada pr kita bisa mencocokkan jawaban kita dengan web tersebut. Oke kan? ;)
Semoga berguna :D

Membuat Program Menghitung Kombinasi dengan Procedure - Turbo Pascal 7.1

Setelah lama vakum dari blogosphere dan bahasan pascal, akhirnya saya posting lagi. Kali ini saya akan memberikan kode pascal untuk menghitung jumlah kombinasi. Bagi yang belum tahu apa itu kombinasi, bisa baca-baca di wikipedia:kombinasi tanpa pengulangan.

Ketika urutan tidak diperhatikan akan tetapi setiap objek yang ada hanya bisa dipilih sekali maka jumlah kombinasi yang ada adalah:

Di mana n adalah jumlah objek yang bisa dipilih dan r adalah jumlah yang harus dipilih.

Sebagai contoh, kamu mempunyai 5 pensil warna dengan warna yang berbeda yaitu; merah, kuning, hijau, biru dan ungu. Kamu ingin membawanya ke sekolah. Tapi kamu hanya boleh membawa dua pensil warna. Ada berapa banyak cara untuk mengkombinasikan pensil warna yang ada? Dengan menggunakan rumus di atas maka ada 5!/(5-2)!(2)! = 10 kombinasi.

Nah, sekarang saatnya kita buat programnya. Kita dapat membuat program untuk menghitung kombinasi baik dengan prosedur mau pun function. Nah, kali ini saya coba pakai procedure. Sebelumnya, saya pernah posting artikel membuat program menghitung faktorial dengan function (di posting berikutnya akan saya coba menggunakan function untuk menghitung kombinasi yang tentunya akan lebih mudah membuatnya).

program combination;
uses crt; {atau uses wincrt;}
var m,z,n,i,b:longint;
procedure faktorial(var a:longint);
var
x:longint;
begin
x:=1;
for i := a downto 1 do
x:=x*i;
a:=x;
end;
procedure kombinasi(var l:longint);
begin
faktorial(z);
b:=n*z;
l:=m div b;
writeln('Kombinasi = ',l);
end;
begin
clrscr;
write('Berapa n? '); readln(m);
b:=m;
faktorial(m);
write('Berapa r? '); readln(n);
z:=b-n;
faktorial(n);
kombinasi(n);
readkey;
end.


Silakan dipelajari.
Happy coding ;)

N.b: Program ini sebenarnya tugas dari guru saya, baru saja selesai saya buat segera saya posting di sini :p

Tolak Private Number dan Nomor Tak Diinginkan dengan Aplikasi Best Blacklist

Pernahkah Anda mengalami hal seperti yang sedang mengganggu saya akhir-akhir ini? Ditelepon oleh orang yang menggunakan Private Number atau nomor yang tidak Anda inginkan/benci? Mengganggu sekali, kan? Apalagi kalau pelakunya menelfon pada jam-jam yang tidak wajar, misalnya pada malam hari, atau menelpon secara berkali-kali meskipun selalu kita abaikan. Huh.. bikin kesal banget, nggak ada kerjaan lain apa selain gangguin orang?
Kalau Anda mengalami hal tersebut juga, mungkin Best Blacklist dapat membantu Anda. Best Blacklist adalah aplikasi khusus khusus ponsel ber-OS Symbian untuk me-reject nomor - nomor yang sudah Anda tentukan agar mereka kapok mengisengi Anda.

Kelebihan aplikasi ini, yaitu :

• Mudah dikonfigurasi
• Ada log-nya, sehingga kita bisa tahu kapan nomor tersebut menelpon
• Me-reject panggilan langsung sebelum ponsel berdering
• Mengirim SMS ke nomor tersebut mengenai alasan kita menolak panggilannya
• Bisa dibuat jada
• Bekerja di background

Download aplikasinya sesuai dengan OS Symbian Anda dari SmartPhoneWare :

• S60 1st and 2nd ed
• S60 3rd edition
• S60 5th edition
• S80 ed
• S90 ed

SMADAV PRO Gratis Untuk Blogger Indonesia !

SMADAV merupakan salah satu antivirus lokal Indonesia yang memfokuskan proteksi dan pembersihan tuntas pada virus-virus yang menyebar luas di Indonesia sehingga menjadi lebih baik dari Antivirus Impor. Smadav yang mengusung slogan "Antivirus Kebanggaan Indonesia" ini memang termasuk antivirus lokal yang dapat dibanggakan. Sampai sekarang, sudah ada sebanyak 3796 virus yang dapat ditangani oleh antivirus yang satu ini. Untuk informasi dan download Smadav silakan ke website resmi Smadav.

Smadav mempunyai 2 versi dalam 1 software, yaitu SmadavFree dan SmadavPro. Khusus untuk Blogger Indonesia yang blognya memenuhi syarat, dapat meminta Registration Key SmadavPro (max 3 @1 komputer).


Syarat-syaratnya :

• Anda harus mempunyai blog/situs.
• Pasang Banner pada Blog/situs Anda *
• Banner harus diletakkan di tempat strategis di blog tersebut
• Banner harus terus dipasang sampai akhir tahun 2010
• Blog mempunyai trafik pengunjung cukup besar. Silakan cek PageRank dan AlexaRank blog/situs Anda : wagub.com
  
  • PageRank minimal 2, atau
  • Jika PageRank 1 maka AlexaRank < 1.000.000, atau
  • Jika PageRank 0 maka AlexaRank < 400.000
  
  
• Tidak ada toleransi untuk syarat ini, hanya blog yang memenuhi syarat diatas yang akan diberi key Smadav Pro
• Kirim konfirmasi ke smadav@gmail.com untuk meminta (max 3) Registration Key dan sertakan alamat blog Anda.

Silakan cek apakah blog Anda memenuhi syarat disini.

Maju terus Smadav! Semoga dapat bersaing dengan antivirus impor dan bangsa kita dapat bangkit di bidang software lokal khususnya antivirus untuk menjadi tuan rumah di negeri sendiri.

Kode banner :

<a href="http://www.smadav.net" title="antivirus" target="_blank"><img alt="smadav antivirus indonesia" src="http://www.smadav.net/smadav125.gif"></a>

Preview seperti yang ada di sidebar kanan blog ini.