About Me

Foto saya
"Pengen pintar,makanya belajar" "Pengan sukses,makanya usaha" "Jangan lupa Do'a..........."

10 Januari 2009

-=-Contoh Program Pascal-=-

Contoh program dalam pascal, Menampilkan upah karyawan per hari berdasarkan golongan masing-masing dan mendapatkan upah lembur jika jam kerja diatas dari 8 jam.

Program Upah_Karyawan;
uses crt;
var
NPegawai: string;
UP_Harian, UP_Lembur: longint;
JKerja, G_Hari: longint;
Golongan: char;

Begin
clrscr;
write ('Masukkan nama pegawai = ');
readln (NPegawai);
write ('Masukkan golongan pegawai = ');
readln (Golongan);
write ('Masukkan jam kerja pegawai = ');
readln (JKerja);

case Golongan of
'1': begin
UP_Harian := 30000;
UP_Lembur := 3000;
end;

'2': begin
UP_Harian := 40000;
UP_Lembur := 4000;
end;
end;

if JKerja > 8 then
G_Hari := UP_Harian + (JKerja - 8) * UP_Lembur;
writeln ('Upah harian yang diterima ',G_Hari);
readkey;
End.

-=-Struktur Program Pascal-=-

Pascal terdiri dari 2 bagian utama, yaitu pendeklarasian variable dan programnya.
Program Karya_Pertamaku; (Judul program)
uses crt; (unit atau library)
var nama: string; (Pendeklarasian variable)
Begin
write (‘Masukkan nama anda: ‘);
readln (nama);
write (‘Hi ‘, nama, ‘apakabar?’);
End.

Perhatikan tulisan pada bagian Begin hingga End. itu yang dinamakan isi program.
Dalam penulisan program, setiap baris selalu diakhiri dengan titk koma “;” (kecuali pada begin dan End.), karena itu merupakan tanda awal dan akhir program. Penulisan program harus dimulai dengan “begin” dan “End.”, intinya jika ada begin pasti ada End.

TIPE DATA DALAM PASCAL
Char : hanya menampung satu karakter
String : menampung lebih dari satu karakter
Boolean : hanya mempunyai dua nilai True atau False
Intger : tidak memiliki bilangan decimal (-32.768 s/d 32.767)
Longint : tidak bisa bilangan decimal (-2.147.483.648 s/d -2.147.483.648)
Read : untuk menampung bilangan idesimal (2,9 x 10 – 39 s/d 1,7 x 1038)

PENULISAN KOMENTAR DALAM PASCAL
Komentar adalah bagian yang tidak akan diproses oleh Turbo Pascal. Dalam Pascal, komentar dituliskan diantara kurung kurawal ataupun kurung buka/tutup diikuti dengan tanda bintang. Komentar dapat ditempatkan dimana saja pada ruang yang dipisah dengan spasi kosong, perhatikan contoh..!!!
{ini adalah komentar}
(* ini adalah komentar yang lain *)

MENDEFINISIKAN VARIABLE DALAM PASCAL
- Pendefinisian variable dimulai dengan kata VAR
- Setiap variabel mempunyai 3 atribut, yaitu nama, tipe, dan nilai.
- Dalam penulisan suatu variable harus diperhatikan cara penulisannya yaitu :
nama_var1,nama_var2,nama_var3,…: tipe_variabel;
- Nama variable tidak boleh mengandung sapasi dan tanda aritmatik, serta tidak boleh dimulai dengan bilangan.
- Nama_variabel tidak boleh sama dengan nama perintah, directive ataupun operaror yang telah ditentukan oleh turbo pascal.
Contoh definisi variable yang benar :
A: Integer;
B,C,D: Real;
Str: Strring;
Contoh definisi variable yang salah :
A B: Integer;
Str: String;
A+B: Real;

MENDEFINISIKAN KONSTANTA DALAM PASCAL
- Sebelum mendefinisikan konstanta, kita harus memberikan kata Const yang menyatkan awal dalam tata penulisan.
- Konstanta ditulis dalam tata penulisan : konstanta = suatu besaran;
- Konstanta tidak hanya berlaku untuk bilangan tetapi bisa juga berupa string.
-Dalam konstanta boleh terdapat operasi aritmatik seperti perkalian, pembagin, penambahan, pengurangan, dll.
- Nama konstanta tidak boleh mengandung spasi dan tanda aritmatik, serta tidak boleh dimulia dengan bilangan.
Contoh definisi konstanta :
Nilai = 90;
NilaiString = ’Sembilan Puluh’;
Hasil = 90 * 30;
Banyak = 90 * 20 *(20+15);

MENDEFINISIKAN EKSPRESI DALAM PASCAL
Ekspresi adalah gabungan dari beberapa variable dan konstanta yang dapat mengahasilkan sebuah nilai dengan menggunakan operator. Dalam penulisan ekspresi harus diperhatikan operator yang digunakan.
Ada 2 (dua) jenis ekspresi dalam bahasa Pascal, yaitu :
1. Ekspresi numerik / aritmatika, yaitu suatu ekspresi yang menghasilkan nilai numerik / aritmatika.
2. Ekspresi Boolean atau ekspresi logika, yaitu suatu ekspresi yang menghasilkan nilai boolean / logika (true/false).
Contoh :
1. x + 5 atau 2*8 adalah sebuah ekspresi aritmetik, dimana x adalah sebuah variable, 5, 2, dan 8 adalah konstanta, + dan * adalah operator. Variabel atau konstanta yang dikenai operator (x, 5, 2, dan 8) disebut dengan operan (operand).

MENDEFINISIKAN INPUT DAN OUTPUT DALAM PASCAL
Statemen input/output dalam Pascal menggunakan prosedur standar read/readln dan write/writeln. Untuk pencetakan (output) data yang dicetak dapat berupa konstanta, variabel, atau nilai yang dikembalikan fungsi. Sedangkan jenis data yang dapat dicetak adalah bilangan, karakter (ASCII) dan Boolean.
Dalam pascal, untuk menampilkan sebuah nilai dilayar digunakan perintah write atau writeln dan untuk membaca masukan dari keyboard digunakan read dan readln. Perintah writeln dan readln dapat tanpa parameter. Perintah writeln tanpa parameter menyebabkan ganti baris, dan perintah readln tanpa parameter digunanakan untuk menahan layer.

Ok cukup sekian & semoga bermanfaat bagi yang membutuhkan.. :D