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.
Tampilan aplikasi Turbo Pascal :
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
09
|
|
|
.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. Berikut ini adalah tabel kode ASCII :
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