Page 177 - Pemrograman Dasar kelas X

Bab 5 Pengembangan Algoritma Aplikasi 173

Hasil:= a/ b;
Writeln('a/ b = ', Hasil);
Finally

Begin
Writeln('Tekan Enter untuk menyelesaikan');
Readln;
End;
end;
end.

Dengan input a=4 dan b=0 maka keluarannya adalah:

Error sebenarnya terdeteksi tapi tidak ada tindakan khusus. Hal ini terlihat ketika keluar dari
program, akan muncul pesan berikut.

3. Pernyataan Raise Exception
Dalam membuat program terkadang dibutuhkan suatu nilai dengan rentang tertentu, Misalkan

variabel bulan, bernilai dari 1 sampai 12, tidak ada nilai 0 ataupun 13. Untuk menghindari
kesalahan seperti ini digunakan pernyataan raise exception.
Berikut ini contoh penggunannya:

Contoh 3.
program ExceptionHandling;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}