Program Formulir Pendaftaran Tour Dengan Pascal

program pendaftaran_peserta_tour;
uses wincrt;
var no, tot_biaya,b_daftar,b_akomodasi,tanggal, bln, thn : longint;
    nm, tempat :  char;

begin

writeln('      Formulir Pendaftaran Peserta tour  ');
writeln;
write('No                    : ');readln(no);
write('Nama                  : ');readln(nm);
write('Tempat, Tanggal Lahir : ');readln(tempat);

gotoxy(35,5);read(tanggal);
if tanggal > 30 then
begin
write('tanggal yang anda masukkan salah!');
readkey; donewincrt;
end;

gotoxy(38,5);read(bln);
if bln > 12 then
begin
write('bulan yang anda masukkan salah!');
readkey; donewincrt;
end;

gotoxy(41,5);read(thn);
if thn > 1996 then
begin
write('tahun yang anda masukkan salah!');
readkey; donewincrt;
end;

write('biaya pendaftaran             : Rp. ');readln(b_daftar);
write('biaya akomodasi               : Rp. ');readln(b_akomodasi);
writeln('====================================');
tot_biaya:=b_daftar + b_akomodasi;
write('Sisa Pembayaran       : Rp. ',tot_biaya);
end.

 Bila coding yang Anda buat telah selesai silahkan compile (Alt+F9) untuk melihat ada kesalahan dalam saat coding atau tidak. Bila tidak, selanjutnya Anda bisa menjalankan program tersebut dengan run (Ctrl+F9). Dan berikut adalah layout dari program di atas :

Program tersebut memiliki ketentuan yaitu :

1. Tanggal akan mencakup 1 – 30 , namun jika Anda salah dalam memasukan tanggal maka akan uncul layout seperti ini :

 2. Bulan  akan mencakup 1 – 12 , namun jika Anda salah dalam memasukan bulan maka akan muncul layout seperti ini :

3. Tahun memiliki ketentuan yaitu hanya akan dapat menerima inputan dari tahun kurang dari 1996, jika Anda salah dalam memasukan tahun maka akan uncul layout seperti ini :

Tetapi program di atas masih dapat Anda kembangkan lagi, dan Anda dapat menggabungkan program pascal di atas dengan berbagai tambahan lainnya.

Semoga dapat bermanfaat. :)