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
