program pendaftaran tour

Program Pascal Pendaftaran Peserta Tour

Listing Program :

Program pascal;

uses wincrt;
var
no:integer;
nama,t,aslsekolah:string;
tanggal,bln,thn : longint;
biaya_pen,biaya_akom,total:longint;

begin
writeln('============PENDAFTARAN PESERTA TOUR==================');
writeln;
write('Nomor Urut      : ');readln(no);
write('Nama            : ');readln(nama);
write('Asal Sekolah    : ');readln(aslsekolah);
write('Tempat/Tanggal Lahir : ');readln(t);

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

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

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


write('Biaya Pendaftaran : ');readln(biaya_pen);
write('Biaya Akomodasi   : ');readln(biaya_akom);

total:=biaya_pen + biaya_akom;

writeln('Total Biaya     : ',total);
end.
Tampilan Programnya