MODUL I
MEMULAI
PROGRAM PASCAL
A. TUJUAN
1.
Mengenal bahasa pemrograman Pascal
2.
Memahami struktur program Pascal
3.
Mampu membuat program Pascal sederhana
B. DASAR TEORI
1. Struktur Program Pascal
|
PROGRAM nama_program;
USES
unit1, unit2, unit3;
CONST
|
Deklarasi
konstanta;
TYPE
Deklarasi type data;
VAR
Deklarasi
variabel;
BEGIN
|
Instruksi
program Pascal
pernyataan/statement
END.
2. Menjalankan Turbo Pascal
a.
Dari menu Start > All Programs
> Accessories > Command Prompt
b.
Kemudian masuklah ke direktori yang tepat. Tanyakan pada dosen/instruktur,
direktori mana yang memuat aplikasi Turbo Pascal (misalnya : C:\TP\BIN) cd; masuk ke direktori cd.. ; keluar dari
direktori
c.
Setelah masuk ke direktori yang sesuai, tulis TURBO, lalu tekan tombol <ENTER>.
Contoh : C:\TP\BIN\TURBO.
3. Cara Memilih Menu
Ketika anda sudah masuk ke aplikasi
Pascal, maka yang anda lihat sesungguhnya adalah editor Pascal, yaitu suatu
tempat bagi anda untuk menulis baris-baris pernyataan program. Pada editor
tersebut, perhatikan baris paling atas yang memuat tulisan File, Search, Run, Compile, Tool, Option, Debug, Window, dan Help yang merupakan Menu Utama di dalam aplikasi Pascal dan
masing-masing menu memiliki sub menu. Menu yang wajib dipahami adalah File, Edit, Run, dan Compile.
a.
Cara Pertama
1. Gunakan mouse untuk menggerakkan pointer di layar monitor ke arah menu-menu
yang tersedia
2. Left Click untuk memilih menu
yang diinginkan.
b.
Cara Kedua
1. Menekan tombol <ALT> dan huruf pertama dari menu
yang diinginkan secara bersamaan. Misalnya ingin memilih menu File, maka yang perlu dilakukan adalah
menekan tombol <ALT> dan
tombol <F> secara bersamaan.
2. Gunakan tombol <ENTER> untuk memilih sub menu
yang ada.
4. Mengedit
Perintah-perintah mengedit seperti
menghapus, menggerakkan kursor (pointer), menggulung layar, dan lain-lain
banyak yang sama dengan perintah pada MS WORD.
a.
Menggerakkan Kursor
Untuk menggerakkan kursor, dapat menggunakan
tombol panah, <home>, <Page Up>, <Page Down>, atau <End>.
b.
Operasi Blok
1)
Arahkan kursor pada awal blok. Kemudian tekan tombol <SHIFT>, lanjutkan dengan menekan tombol panah tapi tombol <SHIFT> jangan dilepas dulu.
Arahkan tombol panah sampai posisi yang diinginkan.
2)
Untuk menghapus arsiran blok, tekan tombol <CTRL><K><H> secara bersamaan.
c.
Menghapus (cut atau clear)
1)
<CTRL><T> : untuk menghapus 1 kata yang berada di kanan
kursor
2)
<CTRL><Y> : untuk menghapus 1 baris pada kursor
3)
<CTRL><K><Y> atau <SHIFT><DEL>
atau <CTRL><DEL> : untuk
menghapus 1 blok.
d.
Menyalin (copy)
1)
Blok tulisan yang akan disalin (copy)
2)
Tekan tombol <CTRL><INSERT>
atau <CTRL><K><C>.
3)
Untuk memindahkan (paste) tulisan
yang telah disalin, tekan tombol <SHIFT><INSERT>.
5. Mengubah Direktori Kerja
Direktori kerja merupakan direktori
yang digunakan untuk menyimpan file-file program yang telah dibuat. Secara default, direktori kerja sama dengan
direktori sistem aplikasi. Untuk mengubah direktori kerja, buka menu File, lalu pilih sub menu Change Dir. Setelah muncul kotak dialog
Change Directory, ketiklah alamat
lengkap direktori yang diinginkan pada Directory
name, kemudian pilih tombol OK.
Tanyalah pada dosen/instruktur dimana letak direktori kerja anda.
6. Memulai Mengetik Teks Program (New)
Ketika aplikasi Pascal dijalankan,
secara default akan menyediakan
lembar kerja baru. Sehingga dapat digunakan langsung untuk mengetikkan kode
program. Untuk membuat lembar kerja baru, buka menu File, kemudian pilih sub menu New.
7. Menyimpan Program (Save atau Save As)
Untuk menyimpan program yang telah
dibuat, tekan tombol <F2> atau
buka menu File, kemudian pilih sub
menu Save. Jika ingin menyimpan
degan nama dan/atau pada direktori lain, gunakan sub menu Save As. File program Pascal disimpan dengan ekstensi .PAS.
8. Membuka Program (Open)
Untuk membuka program yang sudah
pernah dibuat, buka menu File,
kemudian pilih sub menu Open atau
langsung tekan tombol <F3>,
kemudian cari file program yang ingin dibuka kembali.
9. Kompilasi (Compile)
Program dapat dijalankan apabila
telah di-compile terlebih dahulu.
Cara melakukan compile adalah dengan
menekan tombol <ALT><F9>
secara bersamaan atau dengan cara membuka menu Compile, kemudian pilih sub menu Compile.
10. Menjalankan Program (Running Program)
Setelah di-compile, program dijalankan dengan menekan tombol <CTRL><F9> atau dengan
membuka menu Run, dan pilih sub menu
Run.
11. Membuat Executable Program
Executable program adalah program
yang dapat dijalankan langsung tanpa harus menggunakan compiler (dalam hal ini adalah Pascal). Cirinya adalah file
berekstensi .EXE. Cara mengubah
program Pascal menjadi executable program adalah :
a.
Buka menu Compile, kemudian
pilih sub menu Destination Memory.
Maka Destination Memory secara
otomatis berubah menjadi Destination
Disk.
b.
Kemudian lakukan kompilasi, maka secara otomatis akan tercipta satu buah
file yang berekstensi .EXE sesuai
dengan nama file.
12. Aturan Pemberian Nama Program
Nama program terdiri dari maksimal 8
huruf dengan ekstensi .PAS. Dalam
praktikum ini, praktikan diwajibkan memberi nama program sesuai dengan aturan
yang telah ditentukan untuk tujuan kemudahan dalam penilaian. Praktikan yang
memberi nama program tidak sesuai dengan ketentuan ini akan menyulitkan
praktikan sendiri!!! Pada kasus tertentu, pekerjaan tidak akan dinilai!!!
Berikut ini adalah ketentuan dalam
pemberian nama file dari program yang akan disimpan :
a.
Tentukan angkatan anda. Ambil 2 digit terakhir. Jika angkatan anda adalah
2009, maka yang diambil adalah 09.
b.
Tentukan nomor urut mahasiswa anda. Ambil 2 digit terakhir. Jika nomor
mahasiswa anda adalah 3200916001, maka yang diambil adalah 01.
c.
Tentukan nomor program. Nomor program sudah ditentukan oleh dosen/instruktur
atau sudah tercantum dalam modul ini. Nomor program merupakan kombinasi antara
nomor modul dan nomor urut latihan. Contoh : modul 1 dan latihan 1, maka nomor
program adalah 0101.
d.
Gabungkan angka-angka yang berasal dari poin a, b, dan c, sehingga nama
program menjadi : 09010101.PAS
C. LATIHAN SOAL
1. Nomor Program : 0101
a.
Tulis program berikut dan amati outputnya!
PROGRAM
hello_world;
USES CRT;
BEGIN
CLRSCR;
WRITE(‘Hello’);
WRITE(‘World’);
READLN;
END.
b. Statement/pernyataan yang
merupakan judul program adalah :
c. Statement/pernyataan yang
merupakan deklarasi adalah :
d. Statement/pernyataan yang
merupakan badan program adalah :
..................................................................................................................
..................................................................................................................
..................................................................................................................
..................................................................................................................
..................................................................................................................
..................................................................................................................
e. Output dari program dengan
nomor program 0101 adalah :
..................................................................................................................
..................................................................................................................
..................................................................................................................
f. Gantilah statement WRITE menjadi WRITELN, maka outputnya adalah :
..................................................................................................................
..................................................................................................................
..................................................................................................................
g. Hapuslah procedure CLRSCR yang berada pada baris pertama pada badan program, kemudian lakukan proses
running lebih dari 1 kali dan jelaskan apa yang terjadi?
..................................................................................................................
..................................................................................................................
..................................................................................................................
h. Hapuslah procedure READLN yang berada pada baris terakhir pada badan program dan jalankan program,
kemudian jelaskan apa yang terjadi?
..................................................................................................................
..................................................................................................................
..................................................................................................................
..................................................................................................................
2. Nomor Program : 0102
a. Tulis program berikut dan
amati outputnya!
PROGRAM
warna_warni;
USES
CRT;
BEGIN
CLRSCR;
TEXTCOLOR(red);
WRITELN(‘Saya suka warna merah’);
TEXTCOLOR(green);
WRITELN(‘Kamu suka warna hijau’);
READLN;
END.
b. Output dari program dengan
nomor program 0102 adalah :
..................................................................................................................
..................................................................................................................
..................................................................................................................
c. Ganti parameter dalam fungsi TEXTCOLOR menjadi white, black, yellow, blue, magenta, atau cyan. Bagaimana hasilnya?
..................................................................................................................
..................................................................................................................
..................................................................................................................
..................................................................................................................
..................................................................................................................
..................................................................................................................
d. Tambahkan string + blink dalam fungsi TEXTCOLOR, sehingga menjadi :
TEXTCOLOR(red + blink);
Apa kegunaan dari string + blink?
..................................................................................................................
..................................................................................................................
..................................................................................................................
..................................................................................................................
..................................................................................................................
..................................................................................................................
3. Nomor Program : 0103
a. Buatlah program untuk
menampilkan tulisan seperti berikut ini :
MATAKULIAH
PRAKTIKUM PEMROGRAMAN 1
PROGRAM
STUDI D3 TEKNIK INFORMATIKA
JURUSAN
TEKNIK ELEKTRO
POLITEKNIK
NEGERI PONTIANAK
b. Tentukan warna text untuk
tiap baris dan tidak boleh sama.
c. Kemudian tampilkan dengan
berkedip.
d. Jika sudah selesai, tambahkan
statement TEXTBACKGROUND(green) setelah statement CLRSCR. Amati outputnya dan
jelaskan!
..................................................................................................................
..................................................................................................................
..................................................................................................................
..................................................................................................................
..................................................................................................................
..................................................................................................................
..................................................................................................................
..................................................................................................................
..................................................................................................................
..................................................................................................................
..................................................................................................................
..................................................................................................................
..................................................................................................................
4. Nomor Program : 0104
a. Tulis program berikut dan
amati outputnya!
PROGRAM
simbol;
USES
CRT;
BEGIN
CLRSCR;
WRITELN(‘α adalah simbol alfa’);
READLN;
END.
b. Perhatikan simbol α. Simbol
tersebut tidak ada di keyboard,
sehingga anda harus mencari terlebih dahulu kode ASCII (American Standard Code for
Information Interchange) desimal dari
simbol tersebut.
c. Untuk dapat menggunakan kode
ASCII, tekan tombol <ALT>, kemudian tekan tombol angka yang ada di bagian sebelah kanan keyboard secara bersamaan. Contoh : simbol
α kode ASCII adalah 224, maka tekan tombol <ALT><2><2><4>
secara bersamaan.
5. Nomor Program : 0105
Buatlah program untuk menampilkan simbol : ß, Φ,
Ω, dan Σ
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
6. Nomor Program : 0106
a. Buatlah program yang
menghasilkan suatu output dengan menggunakan kode ASCII : 218, 196, 196, 196,
194, 196, 196, 196, 191. Gunakan Syntax WRITE.
..................................................................................................................
..................................................................................................................
..................................................................................................................
..................................................................................................................
..................................................................................................................
..................................................................................................................
..................................................................................................................
..................................................................................................................
..................................................................................................................
..................................................................................................................
b. Tampilan dari simbol tersebut
adalah :
..................................................................................................................
..................................................................................................................
..................................................................................................................
..................................................................................................................
..................................................................................................................
7. Nomor Program : 0107
Buatlah program untuk menampilkan
tabel seperti berikut ini :
NO
|
NIM
|
NAMA
|
1
2
3
|
3200916001
3200916002
3200916003
|
Budi
Antok
Siska
|
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
................................................................................................................................................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
8. Nomor Program : 0108 (A)
Buatlah program untuk menghitung luas lingkaran
dengan jari-jari = 20 dan tetapan (konstanta) π = 3.14. Output dari program adalah :
Program
Menghitung Luas Lingkaran
Diketahui
:
Jari-jari = 20
Phi =
3.14
Maka :
Luas
Lingkaran = 1256
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
Nomor Program : 0108 (B)
Buatlah program untuk menghitung luas segi tiga,
dengan alas = 10 dan tinggi = 20. Output dari program adalah :
Program
Menghitung Luas Segi Tiga
Diketahui
:
Alas = 10
Tinggi = 20
Maka :
Luas Segi Tiga = 1256
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
........................................................................................................................
9. Nomor Program : 0109 (A)
a. Tulis program berikut dan
amati outputnya!
PROGRAM
luas_lingkaran;
USES
CRT;
CONST
phi = 3.14;
VAR r :
integer;
luas : real;
BEGIN
CLRSCR;
WRITELN(‘Program Menghitung Luas Lingkaran’);
WRITELN(‘Diketahui :’);
WRITE(‘
Jari-jari = ‘);READLN(r);
luas:=phi*r*r;
WRITELN(‘ Phi = ‘,phi);
WRITELN(‘Maka :’);
WRITELN(‘ Luas Lingkaran = ‘,luas);
WRITE(‘ Luas Lingkaran = ‘,luas:0:0);
READLN;
END.
b. Jelaskan apa fungsi dari
statement READLN(r)!
..................................................................................................................
..................................................................................................................
..................................................................................................................
..................................................................................................................
..................................................................................................................
..................................................................................................................
c. Jelaskan apa fungsi dari :0:0 pada statement WRITE(‘ Luas Lingkaran = ‘,luas:0:0);
..................................................................................................................
..................................................................................................................
..................................................................................................................
..................................................................................................................
..................................................................................................................
..................................................................................................................
Nomor Program : 0109 (B)
d. Tulis program berikut dan
amati outputnya!
PROGRAM
luas_segitiga;
USES
CRT;
VAR
alas, tinggi : integer;
luas : real;
BEGIN
CLRSCR;
WRITELN(‘Program Menghitung Luas Segi Tiga’);
WRITELN(‘Diketahui :’);
WRITE(‘
alas = ‘);READLN(alas);
WRITE(‘ tinggi = ‘);READLN(tinggi);
luas:=1/2*alas*tinggi;
WRITELN(‘ Phi = ‘,phi);
WRITELN(‘Maka :’);
WRITELN(‘ Luas
Segi Tiga = ‘,luas);
WRITE(‘ Luas Segi Tiga = ‘,luas:0:0);
READLN;
END.
e. Jelaskan apa fungsi dari
statement READLN(alas) dan
READLN(tinggi)!
..................................................................................................................
..................................................................................................................
..................................................................................................................
..................................................................................................................
..................................................................................................................
..................................................................................................................
..................................................................................................................
..................................................................................................................
..................................................................................................................
f. Jelaskan apa fungsi dari :0:0 pada statement WRITE(‘ Luas Segi Tiga = ‘,luas:0:0);
..................................................................................................................
..................................................................................................................
..................................................................................................................
..................................................................................................................
..................................................................................................................
..................................................................................................................
..................................................................................................................
..................................................................................................................
..................................................................................................................
Tidak ada komentar:
Posting Komentar