Algoritma dan Pemrogaman : EXIT dan CASE-ELSE pada Pascal

Apabila kita memasukkan nilai ilegal dalam program jumlah hari seperti angka 13 (sebagai nomor bulan), kita hanya mendapatkan pesan:

There are 0 days in this month

Untuk menangani data yang tidak valid, kita harus menggunakan pernyataan IF yang cocok. Dalam Turbo Pascal, kita dapat menambahkan bagian else ke struktur pengendalian case untuk menangani data yang tidak termasuk ke salah satu kasus tersebut. Struktur CASE kemudian akan diubah ke bentuk sebagai berikut:

case ekspression of
  label1 : statemen1;
  label2 : statemen2;
  ...
  labeln : statemenn;
else
  statemen
end

Fitur lain dari Turbo Pascal adalah pernyataan EXIT, yang berakhir dengan eksekusi program pada setiap titik. Pernyataan EXIT diklasifikasikan sebagai pernyataan IF tanpa syarat. Dalam program berikut kedua fitur diilustrasikan. Jika kita mengentri nomor selain nomor 1 sampai dengan 12 maka bagian ELSE dan pernyataan EXIT akan mengakhiri program.

program daymonth;
label start;
var day,month,year:integer;
begin
  start;
  write('Masukkan nomor bulan : ');readln(month);
  case month of
    1,3,5,7,8,10,12 : day:=31;
    4,6,9,11        : day:=30;
    2               : begin
                        write('Masukkan Tahun : ');readln(year);
                        if year mod 4 = 0 then 
                          day:=29
                        else
                          day:=28;
                      end;
    else
      exit {untuk kasus lain}
  end;
  writeln('ada ',day,' hari pada bulan ini.');
  goto start;
 end.