PROGRAM 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.

jika anda telah mengetikan program di atas pada TPW anda maka coba anda RUN dan lihat layout nya, inilah contoh layout pada program di atas yang saya jalankan pada komputer saya

Program tersebut memiliki ketentuan – 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 uncul layout seperti ini

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

cukup sekian semoga bermanfa'at...trimakasih