Dea Rismayani

Tanggal 18-Desember-2013

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