Pemograman Formulir Pendaftaran Peserta Tour

Ini merupakan program sederhana dengan judul “Pemograman Formulir Pendaftaran Peserta Tour” menggunakan bahasa pemograman Pascal yang merupakan salah satu tugas dari Mata Kuliah Struktur Data.

Sedikit berbeda, pada pengisian Tanggal,Bulan dan Tahun ada ketentuan yang harus dipenuhi yaitu:

• Jika pengisian tanggal >30 maka akan muncul peringatan “tanggal yang anda masukan salah!”
• Jika pengisian bulan >12 maka akan muncul peringatan “bulan yang anda masukan salah!”
• Jika pengisian tahun >1996 maka akan muncul peringatan “tahun yang anda masukan salah!”

Listing Program

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(45,5);read(tanggal);

if tanggal > 30 then

begin

write('tanggal yang anda masukkan salah!');

readkey; donewincrt;

end;

gotoxy(50,5);read(bln);

if bln > 12 then

begin

write('bulan yang anda masukkan salah!');

readkey; donewincrt;

end;

gotoxy(55,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('Jumlah Pembayaran          : Rp. ',tot_biaya);

end.

Tampilan Program yang memenuhi ketentuan

 

Tampilan Program yang tidak memenuhi ketentuan