Type dan Label

Tipe
Suatu nama lain dari sebuah tipe data yang didefinisikan oleh programmer untuk menggantikan tipe data sederhana yang disediakan oleh pascal.
BU: Type nama_tipe = tipe_data;
Contoh:
program c_tipe;
uses crt;
type pecahan = real;
bilbulat = integer;
kata = string[25];
nomor = string[4];
var nip : nomor;
nama : kata;
total, gaji, tunj : pecahan;
jml : bilbulat;
begin
clrscr;
write(‘Input NIP : ‘); readln(nip);
write(‘Input nama pegawai: ‘); readln(nama);
write(‘Input jumlah anak : ‘); readln(jml);
write(‘Input gaji pokok : ‘); readln(gaji);
writeln(‘===========================’);
writeln(‘NIP : ‘,nip);
writeln(‘Nama pegawai : ‘,nama);
writeln(‘Gaji Pokok : ‘,gaji:2:0);
tunj := (0.2*gaji) + (jml*400000);
writeln(‘Tunjangan : ‘,tunj:2:0);
total := gaji+tunj;
writeln(‘Total gaji : ‘,total:2:0);
readln;
end.

Label
Suatu nama yang dibutuhkan apabila ingin meloncat ke suatu bagian tertentu dalam program dengan menggunakan perintah “goto”.
BU: Label nama_label;
Contoh:
program c_label;
uses crt;
Label cetak1, cetak2, selesai;
begin
writeln(‘ Cetak Angka Pilihan’);
goto cetak1;
writeln(‘Angka 1’);
cetak1:
writeln(‘Angka 2’);
goto cetak2;
writeln(‘Angka 3’);
cetak2:
writeln(‘Angka 4’);
goto selesai;
selesai:
readln;
end.