Tujuan Instruksional Khusus
· Praktikan mampu menerapkan langkah-langkah pembuatan program (sederhana)
hing-ga menghasilkan program pascal yang bisa dieksekusi dari lingkungan MS-DOS
secara langsung.
· Praktikan mengerti deklarasi konstanta, tipe data, dan variabel, serta
mampu menerap-kan dalam pembuatan program sederhana menggunakan pascal.
Praktikan harus telebih dahulu menguasai teori dasar
struktur pascal dari kuliah, serta mampu menjalankan IDE Turbo Pascal 7 (dari
kon-disi program Turbo Pascal 7 telah terinstal pada komputer).
Pekerjaan
Mengetikkan program sederhana dengan menggunakan types, constants, dan variables seperti pada percobaan
Teori
Sebuah program pascal berisi kepala program, anak kalimat uses (tidak harus ada), serta blok
pengumuman dan pernyataan. Kepala program menunjukkan nama program. Anak
kalimat uses menggunakan daftar unit
yang dipakai oleh program tersebut. Bagian terakhir merupakan blok yang berisi
deklarasi dan pernyataan yang akan dijalankan.
Setiap program
Pascal mempunyai susunan sebagai berikut:
program Nama_Program;
uses
.
. . {Daftar
unit yang dipakai} ;
label
... {Label yang dipakai} ;
const
... {Deklarasi konstanta} ;
type
... {Deklarasi tipe data};
var
... {Deklarasi variabel};
procedure Nama_Prosedur;
begin
...
end;
function Nama_Fungsi;
begin
...
end;
{Program
utama}
begin
...
end.
Unsur aturan penulisan dasar—disebut token—akan digabung
untuk membentuk ekspresi (expressions),
deklarasi (declarations), dan
pernyata-an (statements). Pernyataan
menggambarkan tindakan algoritma yang dapat dijalankan dalam program. Setiap
ekspresi adalah sebuah aturan kesatuan aturan penulisan yang terdapat dalam
pernyataan dan menun-jukkan sebuah nilai. Setiap ekspresi terdiri dari operators dan operands.bSedangkan deklarasi menegaskan sebuah pengenal (identifier) yang dapat digunakan pada
ekspresi atau pernyataan, dan bila diperlukan memesan tempat pada memori untuk
pengenal tersebut. Salinlah program berikut ini :
Percobaan
program P0101;
{program
untuk menampilkan data diri}
uses
Crt;
var
Nama, Alamat, Hobby: string;
{program
utama}
begin
Writeln('**********************************');
Writeln('*
Program Penampil Data Diri *');
Writeln('**********************************');
Write('Masukkan Nama : ');
Readln(Nama);
Write('Masukkan Alamat : ');
Readln(Alamat);
Write('Masukkan Hobby : ');
Readln(Hobby);
Writeln;
Writeln('Hello namaku : ', Nama);
Writeln('Alamatku : ', Alamat);
Writeln('Hobbyku : ', Hobby);
Readln;
end.
Lakukan kompilasi (compile)
pada program tersebut dengan menekan Alt+F9
dan jalankan program tersebut dengan menekan Ctrl+F9, kemu-dian amati hasilnya bila dimasukkan masukan tertentu.
Berikut ini tampilan dialog bila proses kompilasi telah selesai.
Sekarang simpan program tersebut dengan memilih menu File lalu pilih Save. Simpan dengan nama P0101.PAS.
Dengan menekan tombol F2.
Kemudian coba lakukan kompilasi ke memori bantu. Hasil
dari kom-pilasi ke memori bantu ini adalah sebuah berkas bernama P0101.EXE. Berikut ini akan diperkenalkan perhitungan
dalam program. Salinlah program berikut ini :
program P0102;
{program
untuk menghitung luas bujur sangkar}
uses
Crt;
var
Luas, Sisi: Integer;
begin
Writeln('***************************************');
Writeln('*
Program Menghitung Bujur Sangkar *');
Writeln('***************************************');
Write('Masukkan sisi bujur sangkar : ');
Readln(Sisi);
Luas := Sisi * Sisi;
Writeln('Jadi luas persegi adalah : ', Luas);
Readln;
end.
Kompilasi dan jalankan program tersebut, kemudian amati
hasilnya bila dimasukkan masukan tertentu. Apa yang terjadi bila nilai Sisi sama dengan nol? Apa pula yang
terjadi jika nilai Sisi diisi dengan
huruf? Ja-ngan lupa untuk menyimpan program tersebut dengan nama P0102.PAS.
Untuk lebih memahami pendeklarasian dari tipe dan
variabel serta penggunaannya dalam pembuatan pernyataan, salinlah program di
ba-wah ini
program P0103;
uses
Crt;
type
Str10 = string[10];
const
Koma = ',';
var
Nama1, Nama2: Str10;
Alamat, Thn_Lhr: string;
begin
Write('Masukkan Nama Depan : ');
Readln(Nama1);
Write('Masukkan Nama Belakang : ');
Readln(Nama2);
Write('Masukkan Alamat : ');
Readln(Alamat);
Write('Masukkan Tahun Lahir : ');
Readln(Thn_Lhr);
Writeln;
Writeln;
Writeln;
Writeln('====================');
Writeln('=== BIODATA DIRI ===');
Writeln('====================');
Writeln;
Write('Nama depan saya adalah ', Nama1,
Koma);
Writeln(' dan nama belakang saya adalah ',
Nama2);
Writeln('saya beralamatkan di ', Alamat);
Writeln('dan saya lahir pada tahun ',
Thn_Lhr);
Readln;
end.
Simpan
program di atas dengan nama P0103.PAS.
Kompilasi dan ja-lankan program di atas. Amati keluaran yang dihasilkan dan
pahami lo-gikanya.
guys modulnya bisa didownload disni ya
guys modulnya bisa didownload disni ya
