program formulir pendaftaran tour dengan pascal

zoharaberbgiinfo ingin berbagi info yang zohara 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 zohara menggunakan bahas pascal untuk membuat sebuah program ini karena bahasa pascal merupakan bahasa yang tidak terlalu sulit untuk dpelajari 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 seoftware tersebut dan telah anda install pada laptop atau PC anda maka sekarang lah 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 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

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 .

terimakasih telah membaca , jika ada hal yang belum dimengerti atau ingin di tanyakan zohara akan siap menjawab dengan segenap kemampuan . silahkan postkan pada komentar .

membuat aplikasi dengan pascal

jika anda menyukai artikel ini silahkan klik G+ nya