Program Menghitung Luas Lingkaran Di Pascal

1.1   Contoh deklarasi masing-masing tipe dasar.

                Dalam bahasa pascal ada yang namanya tipe dasar, yaitu Integer, Boolean, char, real, string. Dari sini akan diberikan contoh pendeklarasiannya satu per-satu.

a.       Integer

Integer digunakan untuk menyatakan bilangan bulat seperti hasil penjumlahan.

Var

a, b, c : integer;

b.      Boolean

Mempunyai dua nilai benar (true) dan salah (false).

Var

Tiket : Boolean;

c.       Char

Tipe data yang digunakan untuk mendefenisikan himpunan karakter.

Var

Nama : char;

d.      Real

Untuk menyatakan bilangan yang berbentuk pecahan atau  decimal.

Var

Upahperjam : real;

e.      String

Yang digunakan sebagai batasan karakter yang diperlukan.

Var

Nim : string [10];

1.2   Penelusuran tabel kebenaran penulisan nama variable.

Nama variable	Benar/salah	Alasan	Pembetulan
_nilai1	Benar	Sesuai dengan aturan penulisan variable	-
Angka1	Benar	Sesuai dengan aturan penulisan variable	-
@umur	Salah	Didahului dengan karakter @	umur
Tanggal lahir	Salah	Tidak menggunakan tanda hubung _	Tanggal_lahir
4alasan	Salah	Didahului dengan angka	Alasan4
Alamat_rumah	Benar	Sesuai dengan aturan penulisan variable	-
Max	Benar	Sesuai dengan aturan penulisan variable	-

1.3   Aturan penulisan nama variable.

Dalam aturan penulisan nama variabel pada pemprograman pascal adalah sebagai berikut:

ü  Nama variabel tidak boleh diawali oleh karakter ‘@’.

ü  Nama variabel dapat menggunakan huruf dan angka tetapi tidak boleh diawali dengan angka.

ü  Pemisahan nama variabel harus menggunakan tanda hubung ‘_’.

1.4   Algoritma untuk menghitung luas lingkaran.

Nama program luas lingkaran;

{deklarasi}

const phi= 3.14;

var

luas, r: real;

begin

cetak ('masukkan jari-jari lingkaran : ');tulis (r);

luas:=phi*(r*r);

cetak ('luas lingkaran = ',luas);

end.

1.1   Program yang berisi deklarasi masing-masing tipe dasar.

a.       Variabel string

b.      Variabel integer

1.2   Program luas lingkaran.

program luas_lingkaran;

uses wincrt;

const phi= 3.14;

var

luas, r: real;

begin

write ('masukkan jari-jari lingkaran : ');read (r);

luas:=phi*(r*r);

write ('luas lingkaran = ',luas);

end.