PEMROGRAMAN DALAM TURBO PASCAL

Struktur suatu program pascal dapat terdiri:
1. Judul Program
2. Blok Program
a. Bagian deklarasi
b. Bagian pernyataan

Bagian deklarasi digunakan bila dalam program anda menggunakan pengenal(identifier).
a. Deklarasi label
Apabila program menggunakan statemen Go to untuk meloncat ke suatu statemen yang tertentu, maka dibutuhkan suatu label pada statemen yang dituju dan label tersebut harus dideklarasikan terlebih dahulu pada bagian deklarasi.
Deklarasi variabel diawali dengan kata cadangan label dengan dipisahkan oleh koma dan diakhiri dengan titik koma.



b. Deklarasi konstanta
Penggunaan identifier yang berisi nilai-nilai konstanta harus didefinisikan terlebih dahulu pada bagian ini.
Deklarasi konstanta diawali dengan kata cadangan const diikuti oleh kumpulan identifier yang diberi suatu nilai konstanta.
Contoh:
Const pi=3.14;

c. Deklarasi tipe
Pascal menyediakan beberapa macam tipe dari data, terdiri dari:
• Data tipe sederhana (simple-type data)
• Data tipe terstruktur (structured-type data)
• Data tipe sederhana (pointer-type data)

Contoh mendeklarasikan tipe data sederhana:

Type
Pecahan = real;
Logika = boolean;
Bulat = integer;
Huruf = string [25];
Begin
End.

d. Deklarasi variabel
Variabel adalah identifier yang berisi data yang dapat berubah-ubah nilainya di dalam program.
Deklarasi variabel menggunakan kata cadangan var.

Contoh:
Var
p, l, t : real;
keterangan : string;

e. Deklarasi prosedur
f. Deklarasi fungsi

Tipe data dalam turbo pascal dapat terdiri:



Contoh pemrograman dalam turbo pascal:

1. Gunakan bahasa pascal untuk mencari volume kubus dan luas permukaan kubus dengan memasukkan alas!

Program Volume_Kubus_dan_Luas_Permukaan_Kubus;
uses wincrt;
var
alas:real;
Volume:real;
Luas_permukaan:real;
begin
write('Masukkan alas =');readln(alas);
Volume:=alas*alas*alas;
Luas_permukaan:=6*(alas*alas);
writeln('Volume = ',Volume:5:2);
writeln('Luas_permukaan = ',Luas_permukaan:5:2);
end.

Apabila program dijalankan akan menghasilkan:
Masukkan alas = 2
Volume = 8.00
Luas_permukaan = 24.00

2. Gunakan bahasa pascal untuk menukarkan nilai A dan B!

Program Mempertukarkan_Nilai;
uses wincrt;
var
A:integer;
B:integer;
temp:integer;
begin
write('Masukkan nilai A =');readln(A);
write('Masukkan nilai B =');readln(B);
temp:=A;
A:=B;
B:=temp;

writeln('A =',A);
writeln('B =',B);
end.

Apabila program dijalankan akan menghasilkan:
Masukkan nilai A = 80
Masukkan nilai B = 76
A = 76
B = 80

3. Penjumlahan, pengurangan, perkalian, pembagian, pembagian bulat, dan sisa hasil bagi dalam sebuah program!

Program Operasi_Bilangan;
uses wincrt;
var
a,b,c,d,e,h:integer;
f,g:real;
begin
write('masukkan nilai pertama = ');readln(a);
write('masukkan nilai kedua = ');readln(b);

c:=a+b;
d:=a-b;
e:=a*b;
f:=a/b;
g:=a div b;
h:=a mod b;
writeln('hasil penjumlahan = ',c);
writeln('hasil pengurangan = ',d);
writeln('hasil perkalian = ',e);
writeln('hasil pembagian = ',f:0:2);
writeln('hasil pembagian bulat = ',g:0:2);
writeln('sisa hasil bagi = ',h);
end.

Apabila program dijalankan akan menghasilkan:
masukkan nilai pertama = 10
masukkan nilai kedua = 3
hasil penjumlahan = 13
hasil pengurangan = 7
hasil perkalian = 30
hasil pembagian = 3.33
hasil pembagian bulat = 3.00
sisa hasil bagi = 1