PROGRAM FORMULIR PENDAFTARAN TOUR DENGAN PASCAL

Saya ingin berbagi info yang dapat pada perkuliahan Struktur Data pada 16 Desember 2013 tepat nya

ialah pada hari senin . jika biasanya sebuah program FORMULIR PENDAFTARAN di buat dengan

bahasa pemerograman seperti VB,Java,Foxpor,C++ dll , namun kali ini program tersebut di buat

dengan menggunakan bahasa pemerograman pascal mengapa saya menggunakan bahas pascal

untuk membuat sebuah program ini karena bahasa pascal merupakan bahasa yang tidak terlalu sulit

untuk dipelajari seorang pemula , saya saja bisa apalagi anda , namun apakah anda tahu

apa itu manfaat bahasa pemerograman pascal anda bisa mengunjungi artikel

manfaat mempelajari bahasa pemeroraman pascal  . lanjut lagi . untuk membuat

sebuah program tersebut anda memerlukan sebuah software yaitu TPW 1.5 . jika anda telah memiliki

software tersebut dan telah anda install pada laptop atau PC anda maka sekaranglah waktunya anda

mengetikan listing program di bawah ini, atau anda bisa COPY Paste supaya lebih cepat .

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 muncul
layout seperti ini

2. bulan  akan mencakup 1 – 12 , namun jika anda salah dalam memasukan bulan maka akan muncul 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 muncul layout seperti ini

namun program di atas masih dapat anda kembangkan lagi menjadi program yang layak dan berguna,
anda dapat menggabungkan program pascal di atas dengan berbagai tambahan lain .

Sumber : http://zoharaberbagiinfo.blogspot.com/2013/12/program-formulir-pendaftaran-tour.html#ixzz2niza1B4Y