Modul Pascal
Bab
I
Pengenalan
dan Struktur Dasar bahasa Pascal
Bahasa pascal adalah salah satu bahasa
komputer yang menjembatani pemakai dengan mesin
( Komputer ) Dengan demikian komputer dapat
diperintah melalui suatu bahasa yang dapat dimengerti oleh manusia, yang
disebut dengan istilah bahasa tingkat tinggi Bahasa Pascal berkembang sampai
sekarang yang dulu menggunakan cobol, fortan dan sekarang kita kita menggunakan
Turbo Pascal for Dos Ver.7.0. Dalam Pemograman pada sistem komputer kita akan
selalu berhubungan dengan operasi input output. Pada umumnya system komputer
menggunakan keyboard sebagai alat untuk menerima masukan ( Input devices ).
Struktur Dasar Bahasa Pascal
Program NamaProgram :
Program Pascal:
Type
Type1 =
DeklarasiTipe1;
Type1 =
DeklarasiTipe2;
...
Const1 = Deklarasiconst1;
Const1 = Deklarasiconst2;
var
Var1 : Type;
Var2 : Type;
Procedure
NamaProcedure(Parameter);
Begin
[Instruksi];
..
End;
Function
NamaFungsi( Parameter );type;
Begin
[Instruksi];
..
End;
[Instruksi];
End.
Untuk memahami proses
masukan data ( input ) harus terlebih dahullu diketahui jenis – jenis data,
cara pendeklarasian data, dan format output data tersebut, pada bahasa
pemograman pascal.
Tipe
– Tipe Data Bahasa Pascal
1.
Byte adalah tipe data
numeric terkecil dalam bahasa pascal yang merupakan bilangan bulat. Data ini menempati memori komputer sebesar 1 byte ( merupakan susunan dari
8 bit bilangan biner ) sehingga rentang bilangannya berada antara 0 hingga 255.
2.
Word adalah tipe data
numeric yang menempati memoti computer sebesar 2 byte sehingga rentang
bilangannya antara 0 hingga 65535
3.
Integer adalah tipe data
numeric yang menempati memoti computer sebesar 2 byte sehingga rentang
bilangannya antara -32768 hingga 32767
4.
Real adalah suatu bilangan yang bertanda yang mampu
menampung bilangan desimal antara -29 X 109 hingga 1,7 X 108. Jenis data ini
menempati memori komputer sebesar 6 byte.
5.
Boolean adalah jenis data yang hanya memiliki du keadaan
yaitu true ( benar ) dan false ( salah ) dan digunakan untuk penguji kondisi.
6.
Char adalah jenis data yang terdiri dari satu hurup
dan menempati memori komputer 1 byte.
7.
String adalah kumpulan dari karakter dan menampung 2
milyar huruf
8.
Longint adalah tipe data yang melebihi dari integer.
9.
Single, double
dan extanded adalah tipe data yang melebihi real.
Deklarasi
Variabel Dalam Bahasa Pascal
Untuk dapat menggunakan suatu jenis data tertentu
dalam pascal, harus dilakukan pemesanan atau deklarasi jenis data tersebut
dalam sebuah nama variabel. Ketentuan untuk nama variabel tersebut adalah
sebagai berikut :
Ø
Tidak boleh dimulai dengan angka
Ø
Tidak boleh mengandung simbol operator aritmatika,
dan simbol – simbol lain yang dipergunakan sebagai operator dalam pascal,
seperti : koma # @ ^ ! & titik dll.
Ø
Tidak boleh mengandung spasi atau
blank
Ø
Tidak boleh sama dengan nama
fungsi dan keyword bahasa pascal.
Contoh penggunaan :
Var
BilBulat : Integer;
BilReal :
Real;
W1,W2,W3 :
Word;
A,B :
Byte;
Nama, Alamat :
String
Operator
Aritmatika
1.
Operator pemangkatan yang menggunakan tanda pangkat
( ^ ) atau ( Sqr ).
Contoh : a
:= Sqr(b);
2.
Operator perkalian yang menggunakan tanda bintang (
* );
Contoh : a
:= b * c ;
3.
Operator pembagian yang menggunakan tanda slash ( /
) dan kata div serta mod. Contoh : a := b / c;
a
:= b Div c;
a
:= b Mod c;
4.
Operator Penjumlahan yang menggunakan tanda Plus ( +
).
Contoh : a := b + c;
5.
Operator pengurangan yang mengunakan tanda Min ( -
).
Contoh : a := b - c;
Dalam penggunaan
operator-operator ini terdapat urutan prioritas pengerjaannya yang dinamakan
hirarki operator aritmatika. Hirarki tersebut adalah seperti pada tabel
berikut:
|
Operator |
Arti |
Prioritas |
|
(
…………… ) |
Tanda
Kurung |
1 |
|
^
( Sqr ) |
Pangkat |
2 |
|
* |
Perkalian |
3 |
|
/
( Div atau Mod ) |
Pembagian |
4 |
|
+ |
Penjumlahan |
5 |
|
- |
Pengurangan |
6 |
Format
Data Real ( Bilangan Desimal )
Selain dapat ditentukan
banyaknya kolom penempatan, untuk data real dapat ditentukan bentuk penulisan (
general, desimal ), dan banyaknya angka dibelakang koma, Cara penulisan format
data real adalah sebagai berikut :
[
Variabel Real ] : [ Jumlah Kolom ] : [ Banyak angka dibelakang koma ]
Contoh pemakaian :
Write(R:10:2);
( R adalah real yang isinya 123.456
)
Tampilkan pada layar :
|
|
|
|
|
1 |
2 |
3 |
. |
4 |
6 |
Input
Adalah menerima suatu
masukan data dari keyboard. Perintah bahasa pascal untuk melakukan langkah ini
antara lain :
1.
Readln adalah suatu
perintah untuk memasukan data dengan tipe sesuai dengan data yang dilewatkan
padanya.
Contoh : readln ( X );
(artinya mengambilmasukan dari
keyboard untuk disimpan di variabel X ).
2.
Readkey adalah perintah untuk memasukan data bertipe
karakter. Dan berfungsi sebagai Right Value dari penugasan ( Assigment ) dan
berada pada unit Uses Crt.
Contoh : Ch := Readkey;
( artinya ch bertipe data
karakter )
3.
Keypressed adalah sama dengan readkey tapi data ini
menghasilkan tipe data boolean dan mendeteksi jika terjadi penekanan tuts
keyboard maka akan menghasilkan nilai TRUE
( biasanya dalam penggunaan looping until).
Contoh : Until Keypressed.
Output
Adalah suatu proses
menampilkan data pada layar monitor, perintah bahasa pascal untuk melakukan
langkah ini antara lain :
- Write adalah perintah untuk menuliskan suatu
data yang dilewatkan kepadanya dan setelah penulisan dilakukan posisi
pointer atau kursor berada di sebelah kanan kalimat data yang kita tulis. Dan data yang kita tulis boleh lebih dari satu dengan menggunakan
pemisah tanda koma ( , ) .
Contoh : Write(‘ Selamat Datang
‘);
Write(‘
Nama Siswa : ‘);
Write(‘
Hasil pnjumlahan : ‘,C);
- Writeln adalahperintah
yang sama dengan write perbedaannya terletak pada penempatan pointer
penulisan setelah suatu data dituliskan kelayar dan posisi kursor berada
disebelah kiri pada baris setelahnya.
Contoh : Writeln(‘
-----------------------------------------------------------‘);
Writeln(‘ Perhitungan Total Gaji Karyawan ‘);
Writeln(‘
-----------------------------------------------------------‘);
PROGRAM-PROGRAM
LATIHAN
Program
Tampilan;
Uses
Crt;
Var
A, B, C : Integer;
Begin
Clrscr;
Writeln(‘Program Menampilkan Inpit & Output’);
Writeln;
Writeln(’$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$’);
Writeln(’ Program Penjumlahan’);
Writeln(’$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$’);
Writeln;
Write(‘ Nilai Pertama : ‘);readln(A);
Write(‘ Nilai Kedua : ‘);readln(B);
C:=
A + B;
Writeln(’ Hasil Penjumlahan: ’,C);
Writeln(’$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$’);
Wrieln;
Writeln(’$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$’);
Writeln(’ Program Pengurangan’);
Writeln(’$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$’);
Writeln;
Write(‘ Nilai Pertama : ‘);readln(A);
Write(‘ Nilai Kedua : ‘);readln(B);
C:=
A - B;
Writeln(’ Hasil Pengurangan: ’,C);
Writeln(’$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$’);
Writeln(;
Writeln(’ Program Perkalian’);
Writeln(’$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$’);
Writeln;
Write(‘ Nilai Pertama : ‘);readln(A);
Write(‘ Nilai Kedua : ‘);readln(B);
C:= A * B;
Writeln(’ Hasil Perkalian: ’,C);
Writeln(’$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$’);
Readln;
End;
Program
Data_mahasiswa;
Uses
Crt ;
Var
Nim,Nama,Alamat,Jurusan : String;
Umur :
Integer;
IP :
Real;
Begin
Clrscr;
Writeln(‘-------------------------------------------------‘);
Writeln(‘ Data Mahasiswa Solusindo ‘);
Writeln(‘-------------------------------------------------‘);
Writeln;
Writeln(‘ Nim Mahasiswa : ‘);readln(Nim);
Writeln(‘ Nama Mahasiswa : ‘);readln(Nim);
Writeln(‘ Alamat Mahasiswa :
‘);readln(Nim);
Writeln(‘ Jurusan Mahasiswa : ‘);readln(Nim);
Writeln(‘ Umur Mahasiswa : ‘);readln(Nim);
Writeln(‘ IP Mahasiswa :
‘);readln(Nim);
Writeln;
Writeln(‘-------------------------------------------------‘);
Readln;
End;
Kasus :
Buat program dalam Bahasa
Pascal untuk menginput Penerimaan Siswa Baru Solusindo. Dengan ketentuan Nis,
Nama Siswa, Alamat Siswa, Belajar, Biaya Belajar, Cicilan Pertama, Cicilan
Kedua. Tunggakan adalah Biaya dikurang cicilan pertama ditambah cicilan kedua.
Output :
*****************************************
Penerimaan Siswa Baru
Solusindo
*****************************************
Nis :
0012036
Nama Siswa : Rachmansyah
Alamat Siswa : Jl. Cimindi Cimahi
Belajar : Pemrograman
Pascal
Biaya Belajar : Rp. 150000
Cicilan Pertama : Rp. 100000
Cicilan Kedua : Rp. 50000
Tunggakan : Rp. 0
*****************************************
Bab II
Decision
Dan Selection ( Pengkondisian )
Didalam
pemrograman bahasa pascal dimana ada perintah untuk memilih membandingkan atau
memeriksa program. Dalam sebuah program tidak selalu setiap baris dari program
dilakukan dalam eksekusi. Akan tetapi ada statement tertentu yang dilakukan
hanya jika kondisinya memenuhi. Dan untuk menguji kondisi ini dapat dilakukan
dengan statement berikut ini :
1.
If
.......
Then ..........
Else
............
Dengan
menggunakan statement ini suatu ekspresi logika bila “ Tidak Lulus “ pada
pengujian yang pertama diuji kembali pada kondisi yang berikutnya dan
seterusnya. Penggunaan jenis kondisi
semacam ini berguna sekali dalam menyeleksi statement yang akan
dilakukan sesuai dengan ekspresi kondisi yang diberikan, karena statement
pengujian kondisi ini dapat disusun berantai sehingga didapat multi level
checking. Syntax penulisannya adalah :
If ( Kondisi -1 )
Then ( Statement - 1
)
Else if (Kondisi -2 )
Then ( Statement - 2
)
.
.
If ( Kondisi – n )
Then (statement – n )
Else ( Statement – n
);
Keterangan
: Dalam pengujian
kondisi ini, jika ekspresi kondisi – 1 tidak terpenuhi akan diuji pada ekspresi
kondisi – 2 dan seterusnya hingga kondisi terpenuhi. Jika kondisi tidak
terpenuhi sampai akhir statement pengujian, maka statement yang berada setelah
keyword Else yang terakhirlah yang dieksekusi.
Latihan –Latihan Program
Program Pemilihan_Nilai;
Uses Crt;
(
*********************************************
* Menyeleksi suatu nilai menggunakan if then else *
**********************************************
)
Var
Nilai :
Integer;
Begin
Clrscr;
Writeln(‘&&&&&
Menghitung Tingkatan Nilai &&&&’);
Writeln;
Write(‘Masukan nilai ( 0 .. 10
) : ‘);Readln(Nilai);
Writeln;
If nilai < 9 then
If nilai < 7 then
If nilai < 5 then
If nilai < 3 then
Writeln(‘Waduh
!! Nilainya Kacau !!’)
Else
Writeln(‘Perlu Kerja
Keras Nih !!’)
Else
Writeln(‘Masih Lumayan
.....................’)
Else
Writeln(‘Nilainya cukup baik ‘)
Else
Writeln(‘Nah ini baru nilai
cumlaude ‘);
Write(‘Tekan < Enter >
‘);
Readln;
End.
Program Pemilihan_Warna;
Uses Crt;
Var
Warna : Char;
Begin
Clrscr;
Writeln(‘@@ Menentukan warna dari Huruf Awalnya @@’);
Writeln;
Write (‘ Masukan Hurup Awal Warna : ‘);
Warna := readkey;
Writeln(Warna);
If (
Warna = ‘B’) or ( Warna = ‘b’) then
Writeln(‘Warna yang berawalan
dari hurup B adalah Biru’);
Else If
( Warna = ‘H’) or ( Warna = ‘h’) then
Writeln(‘Warna yang berawalan
dari hurup H adalah Hijau’);
Else If
( Warna = ‘M’) or ( Warna = ‘m’) then
Writeln(‘Warna yang berawalan
dari hurup M adalah Merah’);
Else If
( Warna = ‘K’) or ( Warna = ‘k’) then
Writeln(‘Warna yang berawalan
dari hurup K adalah Kuning’);
Else If
( Warna = ‘C’) or ( Warna = ‘c’) then
Writeln(‘Warna yang berawalan
dari hurup C adalah Coklat’);
Else If
( Warna = ‘V’) or ( Warna = ‘v’) then
Writeln(‘Warna yang berawalan
dari hurup V adalah Violet’);
Else If
( Warna = ‘J’) or ( Warna = ‘j’) then
Writeln(‘Warna yang berawalan
dari hurup J adalah Jingga’);
Else
Writeln(‘Huruf yang diketikan tidak ada dalam pilihan’);
Write(‘Tekan
< enter > ‘);
Readln;
End.
Kasus :
Buatlah program dalam bahasa
pascal untuk menghitung nilai Akhir Mahasiswa dengan mengunakan If Then Else.
Dengan ketentukan sebagai berikut Nim, Nama Mahasiswa, Alamat Mahasiswa,
Jurusan, Umur, Nilai UAS, Nilai UTS, Nilai Quiz dan Nilai Tugas.
Untuk Nilai Akhir adalah 40%
dari Nilai UAS ditambah 30% dari Nilai UTS ditambah 20% dari niali Quiz
ditambah 10% dari Nilai Tugas. Nilai Akhir ditentukan oleh Nilai Grade sebagai
berikut :
Jika Nilai Akhir lebih besar
dari 85 maka nilai Grade adalah A
Jika Nilai Akhir lebih besar
dari 75 maka nilai Grade adalah B
Jika Nilai Akhir lebih besar
dari 65 maka nilai Grade adalah C
Jika Nilai Akhir lebih besar
dari 55 maka nilai Grade adalah D
Jika Nilai Akhir Kurang dari 55
maka Nilai Grade adalah E
Output :
=====================================
Niali akhir Mahasiswa
=====================================
Nim :
Nama Mahasiswa :
Alamat Mahasiswa :
Jurusan :
Umur :
Nilai UAS :
Nilai UTS :
Nilai Quiz :
Nilai Tugas :
Nilai Akhir :
Nilai Grade :
======================================
1.
Case Of
End.
Alternatif
lain yang digunakan untuk mengontrol statement yang akan dieksekusi dalam
program dan hanya dapat menguji kesamaan suatu variabel tertentu denga nilai
yang disajikan, variabel yang diuji hanyalah berupavariabel yang bertipe (
Integer, Boolean, Char, Byte dan Word ).
Sedangkan
tipe – tipe data yang kompleks (Real, Array, Record dll ) tidak dapat digunakan
didata yang disajikan. Syntax penulisannya :
Case ( Nama variabel ) Of
Pilihan
– 1 : Statement – 1;
Pilihan – 2 :
Statement – 2;
.
.
.
Pilihan – n :
Statement – n;
Else :
Statement;
End;
Keterangan : Pilihan dapat berupa barisan yang tiap – tiap
elemennya dipisahkan dengan koma ( , ). Juga dapat memiliki range dengan
menggunakan simbol dua buah titik ( .. ), yang dapat diartikan sebagai hingga.
Case Pilih Of
‘1’ : Write (‘Pilihannya angka 1 ‘);
‘a’,’A’
: Write (Pilihannya a atau A’);
‘b;..’z’
: Write (Pilihannya diantara b hingga z’);
else
: Write (Pilihannya salah’);
end;
Latihan – Latihan
Program
Program
Alternatif_Kondisi;
Uses
Crt;
(**************************************
* Contoh Perintah Case
Of
*
***************************************)
Var
Pilih :
Char;
Begin
Clrscr;
Writeln(‘Menu Pilihan’);
Writeln(‘[A] P ilihan Satu’);
Writeln(‘[B] Pilihan Dua’);
Writeln(‘[C] Pilihan Tiga’);
Writeln(‘[D] Pilihan Empat’);
Writeln(‘[0..9] Pilihan Angka’);
Writeln(‘[Esc] Pilihan Tombol Escape’);
Writeln;
Write(‘Pilihan anda : ‘);Pilih :=readkey;
Case Pilih Of
‘A’,’a’ : Writeln(‘Pilihan Satu dipilih,yaitu
huruf’,Pilih);
‘B’,’b’ : Writeln(‘Pilihan Dua dipilih,yaitu
huruf’,Pilih);
‘C’,’c’ : Writeln(‘Pilihan Tiga dipilih,yaitu
huruf’,Pilih);
‘D’,’d’ : Writeln(‘Pilihan Empat dipilih,yaitu
huruf’,Pilih);
‘0’,’9’ : Writeln(‘Pilihan Satu dipilih,yaitu
angka’,Pilih);
#27 : Writeln(‘Tombol Escape yang
dipilih’);
else Writeln(‘Salah
memilih’);
End;
Writeln(‘Tekan < enter > ‘);
Readln;
End.
Program Garment_Jaket;
Uses Crt;
Var
Ukuran :
Char;
Nama_Jaket :String;
Banyak : Integer;
Harga,Jumlah :Real;
Begin
Clrscr;
Writeln(‘ Program
Pembayaran Jaket ‘);
Write(‘Nama Jaket :
‘);Readln(Nama_jaket);
Write(‘Ukuran
Jaket S/ M /L :
‘);Readln(Ukuran);
Case
Ukuran of
‘S’ : Harga :=25000;
‘M’ : Harga :=35000;
‘L’ : Harga :=50000;
end;
Write(‘Banyak
Jaket :
‘);Readln(Banyak);
Jumlah
:= Harga * Banyak;
Writeln;
Writeln;
Writeln(‘Jumlah
yang harus dibayar = Rp.’Jumlah:8:0);
Readln;
End.
Kasus :
Buatlah program untuk
menghitung Upag karyawan dengan mengunakan perintah case of. Dengan ketentuan
Nik, Nama Karyawan, Alamat Karyawan, Golongan, Jam Kerja.
Jika Gol = 1 uang Harian =
20000 dan Uang Lembur = 10000
Jika Gol = 2 uang Harian =
15000 dan Uang Lembur = 7500
Jika Gol = 3 uang Harian =
10000 dan Uang Lembur = 5000
Uang Lembur dihitung bila jam
kerjanya lebih dari 8 jam.
Lembur adalah jam kerja
dikurangi 8 kali Uang Lembur.
Tunjangan adalah 15% Uang
Harian. Upah cari sendiri.
Output :
===================================
Upah Karyawan
===================================
Nik :
Nama
Karyawan :
Alamat
Karyawan :
Golongan :
Uang
Harian :
Jam
Kerja :
Lembur :
Tunjangan
Upah Total :
====================================
Bab III
Pengulangan atau Looping
Dalam melakukan looping
tentunya kita harus memiliki variabel penghitung ( pencacah ) yang dapat
menentukan berapa kali kiranya pengulangan dilakukan. Variabel pencacah ini
haruslah variabel yang memiliki tipe original. Tugas dari variabel ini yang
diinginkan pengulangan akan terhenti. Biasanya dalam program dituliskan sebagai
:
X := X + 1;
(Pencacah Naik )
X
:= X - 1; (Pencacah Turun)
Dimana X merupakan variabel
bertipe integer, byte atau word ( dalam pemograman biasanya dipilih tipe
integer ) atau dengan cara lain :
Inc(x) dan Dec(X);
Pengulangan dalam pemograman
bahasa pascal terbagi atas 3 macam :
1. For ... to ... do
Begin
....
End;
Adalah
suatu perintah looping yang mengunakan pencacah naik ( Increment ), Artinya
setiap pengulangan dilakukan variabel pencacah akan bertambah. Syntax
penulisannya :
For [ Nama Variabel ] := [ Indeks Awal ] to [ Indeks
Akhir ]
Begin
Statement;
End;
Latihan –Latihan Program
Program Matematika;
Uses Crt;
Var
I :
Byte;
Kuadrat, Akar : Real;
Begin
Clrscr;
Writeln(‘Tabel Kuadrat
dan Akar Kuadrat’);
Writeln(‘&&&&&&&&&&&&&&&&&’);
Writeln(‘ Bilangan Kuadrat Akar Kuadrat’);
Writeln(‘&&&&&&&&&&&&&&&&&’);
Wrteln;
For I := 1 to 10 do
Begin
Kuadrat
:= Sqr(I);
Akar := Sqrt(I);
Writeln(I:6, Kuadrat :10:0, Akar:15:2’);
End;
Writeln(‘&&&&&&&&&&&&&&&&&’);
End;
Program Menggeser_Bintang
Uses Crt;
Var
Bintang : Integer;
Begin
Clrscr;
For Bintang :=
5 to 23 do
Begin
Gotoxy(5,Bintang );
Writeln(‘*’);
Delay (100);
End;
For Bintang := 5 to 75 do
Begin
Gotoxy(Bintang,23 );
Writeln(‘*’);
Delay (100);
End;
For Bintang := 23 downto 5 do
Begin
Gotoxy(75,Bintang );
Writeln(‘*’);
Delay (100);
End;
For Bintang := 75 downto 5 do
Begin
Gotoxy(Bintang,5 );
Writeln(‘*’);
Delay (100);
End;
End.
2.
While
Do
End;
Adalah
suatu langkah looping yang mengunakan eskpresi kondisi logika untuk menjajaki
apakah pengulangan masih dilakukan atau tidak, jika kondisi benar (True) maka
looping akan terus dilakukan dan sebaliknya. Syntax pemakaiannya adalah
Nama variabel := Indeks Awal
While ( Kondisi ) do
Begin
Statement
;
Inc(Nama_variabel);
End;
Latihan – Latihan Program :
Program Pitagoras;
Uses
Crt;
Var
A,B,C : Real;
I :
Integer;
Begin
Clrscr;
I:=0;
While (
I < 3 ) do
Begin
Write(‘Nilai A adalah ‘);Readln(A);
Write(‘Nilai B adalah ‘);Readln(B);
C := sqrt(Sqrt(A) + Sqrt(B));
Writeln;
Writeln(‘Hasil
adalah’,C:8:2);
Inc(I);
End;
Readln;
End.
Program Bilangan_Genap
Uses
Crt;
Var
I :Integer;
Begin
Clrscr;
I:=0;
Writeln(‘Sepuluh bilangan genap
pertama : ’);
While (I < 10 ) do
Writeln(I+2);
Readln;
End.
3. Repeat
Until
Adalah proses looping kebalikan dari
while do. Langkah perintah ini proses pengulangan berlangsung jika kondisinya
salah. Jadi proses looping diulang dulu baru di kondisikan dan tidak perlu
digunakan begin dan end lagi
Syntax
penulisannya :
[ Nama variabel ] := 0;
Repeat
Statement;
Inc(Nama
Variabel);
Until
( Kondisi)
Latihan Latihan Program
Program Validasi_Nilai
Uses
Crt;
Var
Nilai :Integer;
Benar : Boolean;
Begin
Clrscr;
Repeat
Write(‘Masukan
Nilai 0 s/d 100 : ‘);readln(Nilai);
Benar := nilai in [0..100];
If not (benar) then
Writeln(‘%% Nilainya Salah %%’);
writeln;
Until (Benar );
End.
Program Demontrasi_Pengulangan;
Uses
Crt;
Var
I : Integer;
Begin
Clrscr;
I:=0;
While (I <= 100 ) do
Begin
Gotoxy(1,1);
Write(‘posisi
counter : ‘ ,I);
Inc(I);
Delay(100);
End;
Readln;
End.
Kasus
Buat
program looping untuk menghitung 2 data kredit Nasabah Bank , dengan ketentuan
No Nasabah , Nama Nasabah, alamat Nasabah, Besar Pinjaman, Suku Bunga ,Lama
Pinjaman.
Untuk
mencari bunga adalah besar pinjaman dikali lama pinjaman dikali suku bunga,
nilai pengembalian adalah besar pinjaman ditambah bunga
Output
:
####################################
Data
Kredit Nasabah Bank Swasta
####################################
Nomer
Nasabah :
Nama Nasabah :
Alamat
Nasabah :
Besar
Pinjaman :
Lama
pinjaman :
Suku
Bunga :
Bunga :
Nilai
Pengembalian :
Nomer
Nasabah :
Nama
Nasabah :
Alamat
Nasabah :
Besar
Pinjaman :
Lama
pinjaman :
Suku
Bunga :
Bunga :
Nilai
Pengembalian :
####################################
Bab IV
Struktur Data Komplek
Salah satu kelebihan dalam bahasa pascal adalah
tersedianya berbagai struktur data yang bisa dikatakan hanya terbatas pada
imajinasi programer dalam mengaplikasikannya, beberapa struktur data yang
komplek dengan manupulasi yang berbeda dengan manupulasi data original dan data
real. Struktur Data ini lebih efisien jika dideklarasikan dibawah keyword type
sehingga dengan demikian kita mendapat data jenis baru yang sesuai dengan
keinginan kita, dengan mendeklarasikan tipe data tertentu, maka akan didapat
beberapa keuntungan antara lain :
Ø Tidak
memerlukan deklarasi yang berulang – ulang bila diperlukan banyak data yang
bertipe komplek yang sama
Ø Tipe
data yang komplek yang dideklarasikan dapat dipergunakan sebagai parameter
dalam sebuah fungsi
Ø Memungkinkan
membuat tipe data baru yang merupakan kumpulan dari tipe data – tipe data yang
baru pula
Ø Programer
tidak terbatas dengan tipe data yang baku yang disediakan oleh bahasa pascal
Ø Dengan
tipe data ini program lebih dapat dimengerti sehingga seolah-olah programer
menulis bahasa pascal dalam bahasa inggris
Ø Untuk
pelindung atau proteksi bagi keamanan program
Array
Adalah kumpulan dari beberapa nilai semuanya memiliki
tipe data yang sama. Syntax penulisannya :
Var
Nama Variabel : array[indeks
Awal ... Indeks Akhir] of Tipedata;
Begin
Dengan nama variabel adalah nama yang kita berikan untuk
mengidentifikasi data array tersebut, sedangkan indeks awal dan indeks akhir
berturut – turut merupakan indeks array terkecil dan indeks array terbesar,
yang menentukan beberapa banyak elemen array yang kita pesan.
Latihan
– Latihan Program
Program
Pengurutan
Uses Crt;
Var
Data
: Array[1..100] of
integer;
I,J,A,N
:Integer;
Begin
Clrscr;
Write(‘Masukan Data :’);Readln(n);
Writeln(‘Data sebelum
Diurutkan’);
For I :=1 to n do
Begin
Write(‘Masukan
Nilai ke : ‘,I:2);Readln(Data[I]);
End;
For I:=1 to n do
For J:=I + 1 to n do
Begin
If Data[I] < Data[J] then
Begin
A:=Data[I];
Data[I]
:= Data[J];
Data[J]
:= A
End;
End;
End;
Writeln;
Writeln(Data setelah diurut’);
For I:=i to n do
Begin
Write(‘
‘,Data[I]);
Readln;
End.
Program Perkalian_Matrik;
Uses
crt
Type
Larik : Array[1..25,1..25] of real;
Var
I,J,K : Byte;
L,M,N : Byte
A,B,C : Larik;
Begin
Clrscr;
Write(‘Baris
Matrik pertama :
‘);readln(M);
Write(‘Kolom
Matrik Pertama/ Baris Matrik Kedua :
‘);readln(N);
Write(‘Kolom
Matrik Kedua :
‘);readln(L);
Writeln(‘Matrik
yang pertama
: ‘);
For I
:=1 to M do
Begin
For J:=1 to N do
Begin
Write(‘Nilai [‘, I ,’ , ’,J,’ , ’] ?
‘);readln(A[I,J]);
End;writeln;
End;
Writeln;
Writeln(‘Matrik
yang kedua’);
For i:=
1 to n do
Begin
For J:= 1 to L do
Begin
Write(‘Nilai [‘, I ,’ , ’,J,’ , ’] ?
‘);readln(B[I,J]);
End;writeln;
End;
{proses
Perkalian matrik }
For i:=1
to M do
Begin
For j := 1 to N do
Begin
C[I,J] :=0;
For k:=1 to L do
C[I,J]:= C[I,J]
+ (A[I,K] * B[I,K]);
End;
End;
Clrscr;
Writeln(‘Hasil
Dari Perkalian Matrik : ‘);
Writeln;
For
I:=1 to M do
Begin
For J:=1 to L do
Write(C[I,J]:9:2);Writeln;
End;readln;
End.
Program Penjualan_Barang
Uses
Crt;
Var
I :
Integer;
NB :
Array[1..8] of String;
No, SA,BT,Sisa : Array[1..8] of Integer;
Begin
Clrscr;
Writeln(‘@@@@@@@@@@@@@@@@@@@@@@@’);
Writeln(‘ Data Stok Barang di Gudang ‘);
Writeln(‘No. Nama Barang Stok
Awal Terjual Sisa’);
For i:=
i to 8 do
Begin
Gotoxy(2,4+1);Readln(No[I]);
Gotoxy(5,4+1);Readln(NB[I]);
Gotoxy(20,4+1);Readln(SA[I]);
Gotoxy(25,4+1);Readln(BT[I]);
Data[I] := (SA[I] – BT[I]);
Gotoxy(35,4+I);Write(Data[I]);
End;
Readln;
End;
Record
Suatu
jenis struktur data komplek yang memungkinkan untuk mencampur beberapa jenis
data dalam satu struktur. Jika elemen dari struktur data array
haruslah memiliki tipe data yang sama, maka pada struktur record batasan
ini tidak ada. Record dapat memiliki tipe data apa saja, Syntak penulisannya :
Type
Namarecord
= Record
NamaVariabel : Tipedata
NamaVariabel : Tipedata
NamaVariabel : Tipedata
End;
Var
NamaVariabel : Tipe Data Record
Latihan –latihan Program
Program_data_bertipe_komplek;
Uses
crt;
Type
Data_Pegawai = Record
Nip :
Integer;
Nama,Alamat,Jabatan : String;
Gol :
Char;
Gapok,Pajak,Gaber : Real;
End;
Var
Pegawai : Array[1..2] of Data_pegawai;
I :
Integer;
Begin
Clrscr;
Writeln(‘************************************’);
Writeln(‘ Data Pegawai Swasta ‘);
Writeln(‘************************************’);
For i := 1 to 2 do
Begin
Write(‘ Nip :’);readln(pegawai[I].nip);
Write(‘ Nama Pegawai :’);readln(pegawai[I].nama);
Write(‘ Alamat Pegawai :’);readln(pegawai[I].alamat);
Write(‘ Jabatan Pegawai :’);readln(pegawai[I].jabatan);
Write(‘ Golongan :’);readln(pegawai[I].gol);
Write(‘ Gaji Pokok :’);readln(pegawai[I].gapok);
Pegawai[I].Pajak := 0,05
* Pegawai[I].Gapok;
Write(‘ Pajak :’);Readln(Pegawai[I].pajak:10:0);
Pegawai[I].Gaber :=
Pegawai[I].Gapok - Pegawai[I].Pajak;
Write(‘ Gaji Bersih :’);readln(pegawai[I].gaber:10:0);
End;
Readln;
End.
Program Rata_rata_nilai_mahasiswa;
Uses
crt;
Const
Jumlahtes = 4;
SiswaMax = 40;
Type
Data_Siswa = Record
Nim :
Integer;
Nama :
String[20];
Nilai :
array[1..Jumlahtes]of real;
Rata_rata : Real;
End;
ArraySiswa = array[1..SiswaMax] Of
data_siswa;
Var
Jumlah : 1..SiswaMak;
I,J :
Integer;
Total_nilai : real;
Siswa : ArraySiswa;
Temporer : Data_Siswa;
Begin
Clrscr;
Write(‘Jumlah Data :’);Readln(Jumlah);Writeln;
For I:=1 to Jumlah do
Begin
Write(‘Nomer
Induk Mahasiswa :’);readln(Siswa[I].Nim);
Write(‘Nomer
Nama Mahasiswa :’);readln(Siswa[I].Nama);
Write(‘Nilai
Yang di Dapat :’);
For I:=1 to J do
Begin
Write(J:2,’
‘);Readln(Siswa[I].Nilai[J]);
End;Writeln;
End;
For I:=1 to SiswaMak do
Begin
Total_Nilai :=0;
For J:= 1 to
JumlahTes do
begin
Total_Nilai
:= Total_Nilai + Siswa[I].Nilai[J];
Siswa[I].Rata-rata
:=Total_Nilai / Jumlahtes;
End;
End;
For I:=1 to Jumlah – 1 do
For J:= I+1 to
jumlah do
If
siswa[I].Rata_rata < Siswa[J].Rata-rata then
Begin
Temporer
:= siswa[I];
Siswa[I]
:= Siswa[J];
Siswa[J]:=
Temporer;
End;
Writeln;
Writeln(‘^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^’);
Writeln(‘ | Nim Siswa Nama Siswa Nilai
Rata – Rata |‘);
Writeln(‘^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^’);
For I := 1 Jumlah do
Writeln(Siswa[I].Nim:5, Siswa[I].Nama:15,
Siswa[I].Rata-rata:10:2);
Writeln(‘^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^’);
Readln;
End.
Kasus
Buatlah
program untuk mengunakan record untuk menghitung dua data total gaji pegawai, dengan
ketentuan Nip,Nama,Pegawai alamat
Pegawai, Jabatan, Golongan dan jumlah anak
Jika
Gol = 1 gapok = 200000 dan tunjangan Jabatan = 100 % * Gapok
Gol = 2
gapok = 1500000 dan tunjangan Jabatan = 50 % * Gapok
Gol = 3
gapok = 1000000 dan tunjangan Jabatan = 30 % * Gapok
Gol = 4
gapok = 750000 dan tunjangan Jabatan = 20 % * Gapok
Tunjangan
anak dihitung sampai anak ke 3 = 20 % dari gapok
Tunjangan
Suami/Istri = 15 % dari Gapok. Untuk mencari Gator adalah gapok ditambah
tunjangan Jabatan ditambah tunjangan anakditambah tunjangan suami / istri.
Pajak didapat 2 % dari gaji pokok dan untuk gaber kalian cari sendiri.
Output
: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Total
Gaji Pegawai Swasta
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Nim :
Nama
Pegawai :
Alamat
Pegawai :
Jabatan
Golongan :
Jumlah
Anak :
Gaji
Pokok :
Tunjangan
Jabatan :
Tunjangan
Anak :
Tunjangan
Suami / Istri :
Gaji
Kotor :
Pajak :
Gaji
Bersih :
Nim :
Nama
Pegawai :
Alamat
Pegawai :
Jabatan
Golongan :
Jumlah
Anak :
Gaji
Pokok :
Tunjangan
Jabatan :
Tunjangan
Anak :
Tunjangan
Suami / Istri :
Gaji
Kotor :
Pajak :
Gaji
Bersih :
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Bab V
Prosedur dan Fungsi
Prosedur dan afungsi adalah suatu
bagian program ( sub program ) yang memiliki tugas untuk mengerjakan deretan
perintah tertentu. Dengan prosedur memungkinkan untuk melakukan suatu pekerjaan
yang berulang – ulang tanpa harus menuliskan kembali instruksi – intruksi yang
dilakukan. Pekerjaan yang dilakukan berulang –ulang . Prosedur dan fungsi
bedanya kalau prosedur hasilnya tidak ditipedatakan sedangkan fungis hasilnya
harus ditipedatakan. Syntak penulisannya :
Procedure NamaPRogram;
Begin
Statement
End;
Begin
Pemanggilan
Program;
End;
Dan &&&
Function NamaProgram:Tipedata;
Begin
Statement
End;
Begin
PemanggilanProgram;
End;
Latihan – Latihan
Program Menghitung _Berbagai_Luas;
Uses
Crt;
Var
S,SE,PP,LL,LJ :
Real;
P,Alas,Tinggi,Panjang,Lebar,Jari,Sudut,Pil : Integer;
Pilihan :
Char;
Procedure
Matematika;
Begin
Writeln;
Writeln(‘Ketikan angka pilihan
dibawah ini dan tekan < Enter > ‘);
Writeln(‘1.
Luas Segitiga’);
Writeln(‘2.
Luas SegiEmpat’);
Writeln(‘3.
Luas Persegi Panjang’);
Writeln(‘4.
Luas Lingkaran’);
Writeln(‘5.
Luas Juring’);
Writeln(‘6.
Selesai’);
End;
Procedure
Luas_Segitiga;
Begin
Writeln;
Write(‘Alas : ‘);Readln(Alas);
Write(‘Tinggi : ‘);Readln(Tinggi);
S:=alas
* (Tinggi / 2);
Writeln(‘Luas
Segitiga : ‘,S);
End;
Procedure
Luas_SegiEmpat;
Begin
Writeln;
Write(‘Panjang : ‘);Readln(Panjang);
Write(‘Lebar : ‘);Readln(Lebar);
SE:=Panjang
* Lebar
Writeln(‘Luas
SegiEmpat : ‘,SE);
End;
Procedure
Luas_Persegi_Panjang;
Begin
Writeln;
Write(‘Panjang : ‘);Readln(Panjang);
Write(‘Lebar : ‘);Readln(Lebar);
PP:=Panjang
* Lebar
Writeln(‘Luas
Persegi Panjang : ‘,PP);
End;
Procedure
Luas_Lingkaran;
Begin
Writeln;
Write(‘Jari
- Jari : ‘);Readln(Jari);
LL:=Pi
* Sqr(Jari);
Writeln(‘Luas
Lingkaran : ‘,LL);
End;
Procedure
Luas_Juring;
Begin
Writeln;
Write(‘Sudut
Juring :
‘);Readln(Juring);
Write(‘Jari
- Jari : ‘);Readln(JAri);
LJ:=Sudut
/ 360 * Pi * Sqr(Jari);
Writeln(‘Luas
Juring : ‘,LJ);
End;
Procedure
Laksanakan_Matematika;
Begin
P:= Ord(Pilihan) – 48
Case P Of
1 : Luas_Segitiga;
2 : Luas_SegiEmpat;
3 : Luas_Persegi_Panjang;
4 : Luas_Lingkaran;
5 : Luas_Juring;
6 : Begin
Writeln;
Writeln(‘
&&&& Selesai &&&&’);
End;
End;
End;
Begin
Write(‘Pilihan :
);Readln(Pil);
Write p <> 6 Do
Begin
Repeat
Matematika;
Write(‘Pilihan angka yang
dipilih : ‘);read(Pilihan);
Writeln(Pilihan);
Laksanakan_Matematika;
Until (pilihan = 6);
End;
End.
Program Perpustakaan;
Uses
Crt;
Var
Kode_Buku :
Char;
Harga_Sewa, Denda_Hari,
Sewa_Hari, Bayar : Real;
Procedure
Masukan(Var Tr_Kode ; Var Tr_hari:Real);
Begin
Gotoxy(15,12);Write(‘Kode Buku
Pinjaman :’);Readln(Tr_Kode);
Gotoxy(15,13);Write(‘Lama Hari
Pinjam :’);Readln(Tr_Hari);
End;
Funtion
HargaSewa(Tr_Kode2 : Char);Real;
Begin
If Upcase(Tr_Kode2) = ‘A’ Then
HargaSewa := 300
Else If Upcase (Tr_Kode2) = ‘B’ Then
HargaSewa := 250
Else If Upcase (Tr_Kode2) = ‘L’ Then
HargaSewa := 350;
End;
Funtion
Denda(Tr_Kode3 : Char; Tr_Kode2 : Real);Real;
Var
A :
Real;
Begin
If Upcase(Tr_Kode3) = ‘A’ Then
A:= 50
Else If Upcase
(Tr_Kode3) = ‘B’ Then
A := 25
Else
If Upcase (Tr_Kode3) = ‘L’ Then
A:=
100;
If Tr_Hari2 > 7 Then
Denda := (Tr_Hari2 – 7) * A
Else Denda := 0;
End;
Procedure
Cetak(Tr_Sewa, Tr_Denda, Tr_Total : real);
Begin
Gotoxy(15,15);Write(‘Harga Sewa 7
Hari : Rp.’,Tr_Sewa:5:0);
Gotoxy(15,16);Write(‘Denda Harus
Bayar : Rp.’,Tr_Denda:5:0);
Gotoxy(15,17);Write(‘================================);
Gotoxy(15,18);Write(‘Total
Pembayaran : Rp.’,Tr_Total:5:0);
End;
Clrscr; { Membersihkan Layar }
Masukan(Kode_Buku, Sewa_Hari);
Harga_Sewa := HargaSewa(Kode_Buku);
Denda_Hari :=
Denda(Kode_Buku,Sewa_Hari);
Bayar := Harga_Sewa + Denda_Hari;
Cetak(Harga_sewa, Denda_Hari,Bayar);
End.
Bab VI
Grafik
Layar monitor komputer memiliki dua
modus pemakaiannya, modus text dan modus grafik. Pada modus text yang dapat
ditampilkan layar monitor adalah berupa karakter – karakter. Banyaknya karakter
yang ditampung dalam satu layar penuh adalah 4000 karakter ( untuk mode layar
yang biasa dipakai ) yaitu 80 karakter mengisi lebar layar dan 25 karakter
mengisi tiinggi layar.
Lainnya dengan modus grafik, layar
monitor dapat menampilkan objek hanya berupa titik – titik yang dapat menampung
pada suatu layar penuh bervariasi sesuai dengan mode grafik yang kita
pergunakan. Dalam pemograman grafik menggunakan bahasa pascal kita akan
memerlukan file – file sebagai berikut :
Ø File
driver grafik, yaitu file – file yang berakhiran BGI ( Boolean Grafik
Interface) Untuk dipergunakan sesuai dengan monitor yang dipergunakan
Ø File
Graph. TPU adalah fil eyang berisi definisi dari fungsi – fungsi grafik yang
dipergunakan
Ø File
Hurup adalah file – file yang memiliki akhiran CHR yang bersifat optimal jika
tidak terdapat file – file ini setiap karakter dicetak menggunakan Jenis huruf default .
Untuk
dapat menggunakan fasilitas layar grafik terlebih dahulu harus melakukan
inialisasi yaitu memberikan kode pada komputer untuk memperlakukan layar
monitor sebagai layar grafik. Setelah dilakukan inisialisasi ini cara penulisan
ke layar berbeda dengan cara penulisan yang dilakukan pada bab – bab
sebelumnya. Dalam Pemograman grafik dipergunakan InitGraph. Syntax penulisannya
:
InitGraph(GrDriver,
GrMode, DrivePath);
GraphDriver
Parameter
ini berupa parameter variabel bertipe integer yang menyatakan driver layar yang
akan dipergunakan, yang tidak lain menyatakan jenis layar monitor apa yang
dipergunakan. Dengan menugaskan DETECT pada variabel ini maka complier akan
mendeteksi monitor apa yang terpasang pada komputer yang kita pergunakan. File
– file Driver berikut ini :
|
Nama File |
Perangkat (Keras) |
|
CGA,BGI |
IBM
CGA,MCGA |
|
EGAVGA,CGI |
IBM
EGA, VGA |
|
HERC,BGI |
Hercules
Monokrom |
|
ATT,BGI |
AT
& T |
|
PC3270,BGI |
IBM
3270 PC |
|
IBM8514,BGI |
IBM -
8514 |
|
Nama Konstanta |
Nilai |
|
CurretDriver |
-128 |
|
DETECT |
0 |
|
CGA |
1 |
|
MCGA |
2 |
|
EGA |
3 |
|
EGA84 |
4 |
|
EGAMono |
5 |
|
IBM8514 |
6 |
|
Hercules
Monokrom |
7 |
|
ATT40 |
8 |
|
VGA |
9 |
|
PC3270 |
10 |
GraphMode
Parameter
ini berupa variabel bertipe integer yang menyatakan modes grafik yang akan kita
pergunakan. Bila variabel ini dipergunakan tidak diinialisasikan (=), maka
complier akan mencari resolusi tertinggi yang mampu ditampilkan oleh driver
layar. Mode – mode grafik dalam bahasa pascal sebagai berikut :
|
Nama File |
|
Ukuran |
Warna |
|
|
CGACO |
0 |
320 X
200 |
Palet
0 : LightGreen, LightRed, Yellow |
1 |
|
CGAC1 |
1 |
320 X
200 |
Palet
1 : LightCyan, LightMagenta, White |
1 |
|
CGAC2 |
2 |
320 X
200 |
Palet
2 : Green, Red, Brown |
1 |
|
CGAC3 |
3 |
320 X
200 |
Palet
3 : Cyan, Magenta, LightGray |
1 |
|
CGAH1 |
4 |
640 x
200 |
|
|
|
MCGACO |
0 |
320 X
200 |
Palet
0 : LightGreen, LightRed, Yellow |
1 |
|
MCGAC1 |
1 |
320 X
200 |
Palet
1 : LightCyan, LightMagenta, White |
1 |
|
MCGAC2 |
2 |
320 X
200 |
Palet
2 : Green, Red, Brown |
1 |
|
MCGAC3 |
3 |
320 X
200 |
Palet
3 : Cyan, Magenta, LightGray |
1 |
|
MCGACMed |
4 |
640 x
200 |
|
1 |
|
MCGACHi |
5 |
640 x
480 |
|
1 |
|
EGALO |
0 |
640 x
200 |
16
Warna |
4 |
|
EGAHi |
1 |
640 x
350 |
16
Warna |
2 |
|
EGAL64LO |
0 |
640 x
200 |
16
Warna |
1 |
|
EGAL64Hi |
1 |
640 x
350 |
4
Warna |
1 |
|
EgaMonoHi |
3 |
640 x
350 |
|
|
|
HerMonoHi |
0 |
720 x
350 |
|
2 |
|
ATT400C0 |
0 |
320 X
200 |
Palet
0 : LightGreen, LightRed, Yellow |
1 |
|
ATT400C1 |
1 |
320 X
200 |
Palet
1 : LightCyan, LightMagenta, White |
1 |
|
ATT400C2 |
2 |
320 X
200 |
Palet
2 : Green, Red, Brown |
1 |
|
ATT400C3 |
3 |
320 X
200 |
Palet
3 : Cyan, Magenta, LightGray |
1 |
|
ATT400Med |
4 |
640 x
200 |
|
1 |
|
ATT400Hi |
5 |
640 x
200 |
|
1 |
|
VGALO |
0 |
640 x
200 |
16
Warna |
4 |
|
VGAMed |
1 |
640 x
350 |
16
Warna |
2 |
|
VGAHi |
2 |
640 x
480 |
16
Warna |
1 |
|
PC3270Hi |
0 |
720 X
350 |
|
1 |
|
IBM8514LO |
0 |
640 X
480 |
256
Warna |
|
|
IBM8514Hi |
1 |
1024
X 768 |
2561
Warna |
|
Drive Path
Parameter string yang menyatakan letak
direktorin dari file driver ( program tersebut di simpan dimana drive c atau d
(c:/tp/bgi ). Setelah selesai menggunakan. Modus layar harus dikembalikan lagi
ke modus text, Hal ini dilakukan dengan menggunakan perintah :
CloseGraph;
Perintah – Perintah Grafik
Ø GetMaxX dan GetMaxY adalah
untuk mendapatkan nilai maxsimum dari koordinat X dan koordinat Y adalah titk
paling bawah layar. Koordinat layar pada monitor komputer adalah seperti :
X
Y
Ø PutPixel adalah perintah untuk mencetak
titik pada suatu koordinat tertentu seperti dibawah ini :
PutPixel(X,Y,Warna);
X dan
Y koordinat titik, dan warna adalah warna titik
Ø Line adalah perintah untuk
menggambar garis pada layar seperti dibawah ini :
Line( X1, Y1, X2, Y2 );
X1 dan Y1
adalah koordinat awal garis dan X2 dan Y2 adalah koordinat akhir garis
Ø Line To adalah perintah untuk
menggambar garis dari posisi aktif ke koordinat tertentu seperti di bawah ini :
LineTo(
X, Y );
X dan
Y adalah koordinat ujung garis.
Ø MoveTo adalah perintah untuk memindahkan posis aktif
ke posisi tertentu seperti dibawah ini :
MoveTo
( X, Y);
X dan
Y adalah posisi aktif baru.
Ø Rectangle adalah perintah untuk
menggambar sebuah kotak pada layar seperti di bawah ini :
Rectangle(
X1, X2, Y1, Y2);
Ø Circle adalah perintah untuk mengambar
lingkaran pada layar seperti dibawah ini :
Circle
( X, Y, Radius ); Radius adalah jari – jari lingkaran.
Ø Ellipse adalah perintah untuk mengambar
Ellips pada layar seperti di bawah ini :
Ellipse(
X, Y, Sudut awal, Sudut Akhir, RadiusX, RadiusY );
Sudut
awal dan sudut akhir adalah bilangan antara 0 – 360 Derajat.
Latihan –Latihan Program
Program Perintah_menggambar;
Uses
Crt, Graph;
Type
GrDrv,GrMode : Integer;
Begin
GrDrv := DETECT;
InitGraph(GrDrv, GrMode,’’);
If GraphResult <> GrOk Then
Init := false;
Else init := true;
End;
Procedure
Tulis( X,Y: integer; ST:S30);
Begin
OuttextXY(X,Y,’ < - -‘+ ST);
End;
Procedure
Gambar;
Var
I :
Integer;
Begin
{Menggambar Garis}
LineTo(GetMaxX, GetMaxY);
Tulis( 20,10,’ LineTo’);
Line(100,100,300,150);
Tulis( 250,120,’ Line’);
{Menggambar Kotak}
Rectangle(200,200,300,300);
Tulis( 205,250,’Rectangle’);
Bar(60,250,80,300);
Tulis( 85,275,’Bar’);
Bar3D(60,350,80,380,10,True);
Tulis( 85,365,’Bar3D’);
{Menggambar Lingkaran}
Circle(GetMaxX div 2, GetMaxY div
2,50);
Tulis(380, GetMaxX div div
2,’Circle’);
Ellipse(400,100,0,360,10,20);
Tulis( 420,100,’Ellips’);
{Menggambar Titik}
For I:=1 to 10 do
Begin
PutPixel(5*I,400,
LIGHTRED);
Tulis(55,400,’PuPixel’);
Readln;
CloseGraph;
End
If
Init Then Gambar;
End.
Program Animasi_Bunga;
Uses
Crt; Graph;
Var
GD,GM,I : Integer;
Begin
Repeat
GD:=VGA;
GM:=VGHi;
InitGraph( GD,GM,’’);
For I:=1 to 30 do
Begin
Setcolor( I );
Settextstyle(4, Horizdir,4);
OuttextXY(300,40,’Bunga’);
Circle(310,240,5+I);
Circle(300,170,5+I);
Circle(270,310,5+I);
Circle(350,310,5+I);
Circle(230,240,5+I);
Circle(400,260,5+I);
Circle(370,190,5+I);
Sound(200);
Delay ( 10 );
noSound;
End;
Until KeyPressed;
CloseGraph; Readln;
End.
Program Gelombang_Sinus;
Uses
Graph;
Type
Data = Array[0..360] Of PointType
Var
DataSinus :Data;
Frek, Amp :Integer;
Function
Init : Boolean;
Var
GrDrv,GrMode :Integer;
Begin
GrDrv := DETECT;
InitGraph(GrDrv, GrMode,’’);
If GraphResult <> GrOk Then
Init := false;
Else init := true;
End;
Procedure Sumbu;
Begin
Line( 0, GetMaxY div 2, GetMaxX, GetMaxY div 2);
Line( GetMaxX div 2, 0 , GetMaxX div 2, GetMaxY);
End;
Procedure Sinus( Frek, Amp :
integer; Var SinBuffer : Data);
Var
I :
Integer;
Begin
For I:= 0 to 360 do
Begin
SinBuffer[I].X := Round(I/360 * GetMaxX);
SinBuffer[I].Y := (GetMaxY div 2 ) – Round(Amp * Sin
(Frek * Pi * I / 180));
End;
End;
Begin
Writeln(‘%%%%% Menggambar Gelombang Sinus %%%%%’);
Write(‘ Frekuensi = ‘);Readln(Frek);
Write(‘ Amplitudo = ‘);Readln(Amp);
If Init then
Begin
Sumbu;
Sinus(Frek,amp,DataSinus);
DrawPoly( 360, DataSinus);
Readln;CloseGraph;
End
Else Write(‘ Grafik Error
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!’);
End.
Posting Komentar