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

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

 

Manfaat Bahasa Pemograman Pascal

Bahasa Pascal berorientasi data, programmer diberi kemampuan untuk mendefenisikan tipe data sendiri. Dengan kebebasan ini pengecekan tipe data dilakukan secara ketat, yang menjamin bahwa tipe data yang didefenisikan tidak membingungkan. Pascal ditujukan sebagai bahasa pembelajaran, dan telah diterima secara luas. Pascal menggunakan bahasa Inggris sebagai penulisan kodenya, sehingga penulisannya dan pengemb
Berikut ini akan diberikan gambaran mengapa mesti belajar bahasa pascal.

1. Kecepatan (speed)
Kecepatan bahasa pascal untuk mengkompilasi baris program dapat dikatakan sekejap mata saja. Anda banyangkan kode baris program yang ribuan jumlahnya diterjemahkan dalam hitungan detik. Coba anda buktikan dengan bahasa pemrograman lainnya (C, C++, Java, dll)

2. Tipe data yang kuat
Pascal mengijinkan pemakainya untuk membuat tipe data sendiri, tetapi dengan beberapa batasan. Pascal tidak mengenal pengubahan tipe data (type casting) dan hal ini tentu saja memberi manfaat karena kemungkinan timbulnya kesalahan (error) kecil. Hal ini merupakan salah satu alasan utama yang dilakukan panitia ujian masuk mahasiswa untuk mata ujian komputer di Amerika.

3. Ukuran
Hasil compilasi dari program pascal hanya beberapa kilo byte saja. Sungguh kecil. Bila kita bandingkan dengan kapasitas ruang hard disk yang 40 mega byte, dapat dibanyangkan berapa besar program pascal yang dapat kita buat.

4. Portabilitas
Portabilitas berarti program pascal dapat berjalan pada jenis komputer yang berbeda, seperti : IBM, Apple, dll.

5. Produktivitas
Untuk belajar suatu bahasa pemrograman pada dasarnya sama, yaitu : harus mengenal aturan dan struktur data dari bahasa tersebut. Anda dapat bayangkan kalau tukang bangun tidak memiliki arsitektur yang jelas tentang bangunan rumah tersebut, tentu saja rumah yang akan dibangun tidak akan baik. Pascal menyediakan struktur data yang jelas, dengan demikian produktivitas hasil kerja kita tentu saja akan bertambah.

Dan satu hal yang jelas bahasa turbo pascal for windows atau visual delphi adalah turunan dari turbo pascal. Dan bila struktur dari program pascal sudah kita pahami, maka untuk memahami pascal for windows ataup visual Delphi tidaklah sulit lagi. Orang bijak bilang ‘belajar dari dasar merupakan modal yang paling besar’. Untuk itulah Pascal hadir bagi kita.angannya mudah dipahami.