Percabangan (Branching)

Macam-macam percabangan:
1. Statemen IF
Ø Struktur IF – THEN
BU: If kondisi then pernyataan;
Ø Struktur IF – THEN – ELSE
BU: If kondisi Then
pernyataan1
Else
pernyataan2;

Contoh:
program if_sederhana;
uses crt;
var nilai : real;
ket : string;
begin
clrscr;
write(‘nilai yang didapat : ’);readln(nilai);
if nilai>=60 then
ket :=’lulus’
else
ket :=’tidak lulus’;
writeln(‘keterangan :’,ket);
readln;
end.

if rata>=60 then
begin
grade :=’c’;
ket :=’lulus’;
end
else
begin
grade :=’d’;
ket :=’her’;
end
writeln(‘----------------------------------------------------‘);
writeln(‘ data nilai mahasiswa ’);
writeln(‘----------------------------------------------------‘);
writeln(‘nim :’,nim);
writeln(‘nama :’,nm);
writeln(‘nilai ujian 1 :’,uji1);
writeln(‘nilai ujian 2 :’,uji2);
writeln(‘total :’,total:4:0);
writeln(‘rata-rata :’,rata:2:2);
writeln(‘grade :’,grade);
writeln(‘keterangan :’,ket);
writeln(‘----------------------------------------------------‘);
readln;
end.Contoh:
program if_majemuk;
uses crt;
var nim,nm,grade,ket : string;
uji1,uji2 : integr;
total,rata : real;
begin
clrscr;
writeln(‘ input data mahasiswa ‘);
write(‘nim :’);readln(nim);
write(‘nama :’);readln(nm);
write(‘nilai ujian 1 :’);readln(uji1);
write(‘nilai ujian 2 :’);readln(uji2);
total :=uji1+uji2;
rata :=total/2;
if rata>=80 then
begin
grade :=’a’;
ket :=’lulus’;
end
else
if rata>=70 then
begin
grade :=’b’;
ket :=’lulus’;
end
else
if rata>=60 then
begin
grade :=’c’;
ket :=’lulus’;
end
else
begin
grade :=’d’;
ket :=’her’;
end
writeln(‘----------------------------------------------------‘);
writeln(‘ data nilai mahasiswa ’);
writeln(‘----------------------------------------------------‘);
writeln(‘nim :’,nim);
writeln(‘nama :’,nm);
writeln(‘nilai ujian 1 :’,uji1);
writeln(‘nilai ujian 2 :’,uji2);
writeln(‘total :’,total:4:0);
writeln(‘rata-rata :’,rata:2:2);
writeln(‘grade :’,grade);
writeln(‘keterangan :’,ket);
writeln(‘----------------------------------------------------‘);
readln;
end.

2. Statement CASE
BU : Case Variabel Of
daftar pilihan1 : pernyataan1;
daftar pilihan2 : pernyataan2;
…………........ : ……………;
daftar pilihan n : pernyataan n;
End;
Contoh:
program case_lagi;
uses crt;
var bayar,pot : integer;
begin
clrscr;
write(‘total pembayaran:’);readln(bayar);
case pembyrn of
0..1000 : pot :=0;
1001..10000 : pot :=100;
10001..30000 : pot :=1000;
end;
writeln(‘Jumlah Pembayaran =Rp.’,bayar);
writeln(‘Potongan =Rp.’,pot);
writeln(‘=============================’);
writeln(‘Jumlah Setelah Diskon =Rp.’,bayar-pot);
readln;
end. Selengkapnya....

Type dan Label

Tipe
Suatu nama lain dari sebuah tipe data yang didefinisikan oleh programmer untuk menggantikan tipe data sederhana yang disediakan oleh pascal.
BU: Type nama_tipe = tipe_data;
Contoh:
program c_tipe;
uses crt;
type pecahan = real;
bilbulat = integer;
kata = string[25];
nomor = string[4];
var nip : nomor;
nama : kata;
total, gaji, tunj : pecahan;
jml : bilbulat;
begin
clrscr;
write(‘Input NIP : ‘); readln(nip);
write(‘Input nama pegawai: ‘); readln(nama);
write(‘Input jumlah anak : ‘); readln(jml);
write(‘Input gaji pokok : ‘); readln(gaji);
writeln(‘===========================’);
writeln(‘NIP : ‘,nip);
writeln(‘Nama pegawai : ‘,nama);
writeln(‘Gaji Pokok : ‘,gaji:2:0);
tunj := (0.2*gaji) + (jml*400000);
writeln(‘Tunjangan : ‘,tunj:2:0);
total := gaji+tunj;
writeln(‘Total gaji : ‘,total:2:0);
readln;
end.

Label
Suatu nama yang dibutuhkan apabila ingin meloncat ke suatu bagian tertentu dalam program dengan menggunakan perintah “goto”.
BU: Label nama_label;
Contoh:
program c_label;
uses crt;
Label cetak1, cetak2, selesai;
begin
writeln(‘ Cetak Angka Pilihan’);
goto cetak1;
writeln(‘Angka 1’);
cetak1:
writeln(‘Angka 2’);
goto cetak2;
writeln(‘Angka 3’);
cetak2:
writeln(‘Angka 4’);
goto selesai;
selesai:
readln;
end.

Selengkapnya....

Input/ Output, Konstanta, dan Variabel

Perintah Input : read/readln

Perintah Output : write/writeln

Konstanta

Merupakan suatu nilai yang bersifat tetap

Bentuk Umum: const nama_konstanta = nilai_konstanta;

Contoh:

uses crt;

const nim = '11080636';

nama = ' Dita ';

begin

clrscr;

writeln('Nim saya adalah ',nim);

writeln('Nama saya adalah ', nama);

readln;

end.

Variabel

Adalah suatu nilai yang selalu berubah selama proses program

Bentuk umum : var nama_variabel : tipe_data;

Contoh:

uses crt;

var nim : string[8];

nama : string[20];

begin

clrscr;

write('Masukkan nim : '); readln(nim);

write('Masukkan nama : '); readln(nama);

writeln('=======================');

writeln('Nim saya adalah ',nim);

writeln('Nama saya adalah ',nama);

readln;

end.

Selengkapnya....

Menyimpan File dalam Pascal

Sebelum menyimpan file, sebaiknya membuat folder atau directory terlebih dahulu. Pembuatan directory dalam pascal biasanya menggunakan DOS.

Cara membuat directory:

• Pilih menu File DOS Shell, maka akan tampil jendela command prompt
• Masuk ke dalam drive C:\, ketik cd \ kemudian enter
• Buat directory sebagai tempat penyimpanan, misal directory pascal maka ketik md pascal, kemudian enter
• Untuk keluar dari command prompt, ketik exit, kemudian enter

Setelah membuat directory, maka directory harus diaktifkan dengan cara:

• Pilih menu File Change DIR
• Pilih directory yang dibuat, C:\Pascal
• Kenudian pilih OK

Untuk menyimpan file, maka tekan tombol F2 pada keyboard. Ketik nama file yang diinginkan. Penulisan nama file mempunyai ketentuan sebagai berikut:

• Tidak boleh menggunakan spasi
• Panjang nama file maksimal 8 digit

Selengkapnya....

Struktur Program Pascal

Pemrograman Pascal merupakan salah satu bahasa pemrograman tingkat tinggi (high level language) dan pemrogramannya bersifat terstruktur.

Struktur program pascal:
1. Judul program
- diawali dengan kata program
- penulisan nama program tidak boleh diawali dengan angka/karakter khusus/operator aritmatika
- tidak boleh menggunakan spasi (bisa menggunakan tanda underscore)
- tidak boleh menggunakan reserved word ( kata-kata yang sudah dibakukan oleh pascal, seperti begin, end, if, for, write, readln )
- diakhiri dengan tanda titik koma
- judul bersifat optional (boleh digunakan/tidak digunakan)
2. Badan program (Body Program)
- Bagian deklarasi : deklarasi unit, konstanta, variabel, label, tipe
- Bagian pernyataan/statement
* diawali kata Begin dan diakhiri End.
* setiap akhir pernyataan menggunakan tanda titik koma

Dalam pemrograman pascal, penulisan dalam huruf kapital atau huruf kecil tidak berpengaruh karena tidak bersifat case sensitive

Selengkapnya....