Manfaat Belajar Bahasa Pemograman Pascal

Manfaat turbo pascal ini tidak terbatas untuk membantu sistem administrasi dikantor-kantor saja, tetapi merambah kebeberapa bidang. Sehingga aplikasinya sangat dibutuhkan untuk membantu berbagai disiplin ilmu.Untuk itulah dibutuhkan software yang menjebatani komputer dengan kebutuhan dan tujuan pemograman komputer friendly. sebuah software akan memudahkan untuk membuat aplikasi seperti : bahasa C, C++, C#, Clipper, LISP, ADA, ALGOL, Modula 2, Smalltalk,Prolog, Perl, PHP, ASP, JSP, J#, J++, Cobol, Basic, Fortran, Java, Paskal, dan lain sebagainya.

     Bahasa pemrograman adalah sesuatu yang mutlak harus dipahami jika inginmembuat suatu aplikasi. Berdasarkan hal tersebut maka perlu kiranya kita belajar sebuah bahasa pemrograman yang lebih sederhana dan relatif lebih mudah untuk dipelajari oleh seorang pemula. Bahasa pascal adadalah salah satu jenis bahasa tingkat tinggi yang relatif lebih mudah untuk dipelajari.

    Bahasa pemograman pascal adalah salah satu bahasa tingkat tinggi yang merupakan bahasa pemograman prosedural yang banyak dipakai untuk mengenalkan pemograman bagi pemula, selain itu bahasa pascal relatif mudah untuk dipelajari, sehingga daapat diadakan sebagai dasar acuan untuk belajar bahasa pemograman telah banyak literatur mengenai bahasa pemograman pascal dengan berbagai versi. yang semakin memudahkan mempelajarinya. Program dalam bahasa pemograman pascal cukup banyak variannya seperti delfi yang merupakan visual pascal juga masih banyak lagi. pascal juga memliki beberapa versi yang beredar dipasaran seperti UCSD pascal, Ms-Pascal, apple pascal, free pascal, turbo pascal dan sebagainya.

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.

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.

PROGRAM ARITMATIKA DENGAN FLOWCHART

PROGRAM ARITMATIKA DENGAN FLOWCHART

Program matematika;

 uses wincrt;

 var

 a,b,d,e : integer;

 c:real;

 lagi:char;

 begin

 repeat

 clrscr;

 writeln('PROGRAM OPERASI MATEMATIKA : ');

 writeln('*************************** : ');

 write('masukan angka pertama : ');readln(a);

 write('masukan angka kedua : ');readln(b);

 writeln('pilih operasi : ');

 writeln('Operasi Pengurangan : 1 ');

 writeln('Operasi Penjumlahan : 2 ');

 writeln('Operasi Perkalian : 3 ');

 writeln('Operasi Pembagian : 4 ');

 write('masukan pilihan anda :');read(d);

 if d=1 then

 begin

 c:=(a-b);

 writeln('Hasil dari ',a,' - ',b,' adalah ',c:0:0);

 end;

 if d=2 then

 begin

 c:=(a+b);

 writeln('Hasil dari ',a,' + ',b,' adalah ',c:0:0);

 end; if d=3 then

 begin

 c:=(a*b);

 writeln('Hasil dari ',a,' * ',b,' adalah ',c:0:0);

 end;

 if d=4 then

 begin

 c:=(a/b);

 writeln('Hasil dari ',a,' : ',b,' adalah ',c:0:0);

 end;

 writeln;

 write ('Apakah anda ingin mencoba lagi? (y/n)'); readln (Lagi);

 until Lagi = 'y';

 end.

BERIKUT FLOWCHART PROGRAM DI ATAS

Program Pascal IF

Program rental_mobil;
Uses Wincrt;
Type rntl_mobil = record
     no, tgl, nama, nm_mbil,almt,hp : String;
     kd_mbil, lm_rtl : byte;
     hrg, tot : real;
     End;
Var
   Data : Array [1..10] of rntl_mobil;
   lagi : Char;
   a,n, x : Integer;
   tot_slrh : real;
Begin
     Repeat
     Clrscr;
     a:=a+1;
     Writeln('           PUTING BELIUNG              ');
     Writeln('  Jl.Jendral Sudirman no.17 Cimahi Bandung  ');
     Writeln('========================================');
     Writeln;
     writeln('             "RENTAL MOBIL"             ');
     Writeln;
     Write('No  : ');Readln(Data[a].no);
     Write('Tanggal : ');Readln(Data[a].tgl);
     Write('Nama Pelanggan : ');Readln(Data[a].nama);
     Write('Alamat : ');Readln(Data[a].almt);
     Write('No Hp : ');Readln(Data[a].hp);
     writeln('STOK MOBIL:');
     writeln('"001" (FERARRI)');
     writeln('"002" (JAZZ)');
     writeln('"003" (AVANZA)');  
     Write('Masukan Kode Mobil : ');Readln(Data[a].kd_mbil);

      if Data[a].kd_mbil = 001 then
        begin
        Data[a].nm_mbil:='FERARRI';
        Data[a].hrg:=3000000;
        end;

     if Data[a].kd_mbil = 002 then
        begin
        Data[a].nm_mbil:='JAZZ';
        Data[a].hrg:=1000000;
        end;

     if Data[a].kd_mbil = 003 then
        begin
        Data[a].nm_mbil:='AVANZA';
        Data[a].hrg:=500000;
        end;

     Writeln('Nama Mobil : ',Data[a].nm_mbil);
     Writeln('Harga Per Hari : ',Data[a].hrg:0:0);
     Write('Lama Rental : ');Readln(Data[a].lm_rtl);
     Data[a].tot:=Data[a].lm_rtl*Data[a].hrg;
     writeln('Total Bayar : ',Data[a].tot:0:0);
     Writeln;
     write('Tambah Data (y/t) : ');readln(lagi);
     until lagi <> 'y';
      n:=a;
     Clrscr;
     Writeln;
    writeln('LAPORAN RENTAL MOBIL');
     Writeln('===============================================================================');
     Writeln('|No |Tanggal | Nama Pelanggan | Alamat | No Hp|  Nama Mobil| Harga Per Hari|  Lama Rental | Total Bayar |');
     Writeln('===============================================================================');
     For x := 1 to n do
     begin
     Writeln('|',x,'|',Data[x].tgl,'|',Data[x].nama,'|',Data[x].almt,'|',Data[x].hp,'|',data[x].kd_mbil,'|',Data[x].nm_mbil,
     '|',Data[x].hrg:0:0,'|',Data[x].lm_rtl,'|',Data[x].tot:0:0,'|');
    
    
     tot_slrh:=tot_slrh+Data[x].tot;
     end;
     Writeln('===============================================================================');
     Writeln('Jumlah Pelanggan : ', a);
     Writeln('total keseluruhan : Rp.',tot_slrh:0:0);


End.

Program Pascal Prosedure

 Berikut ini adalah salah satu contoh program pascal dengan menggunakan prosedur
dengan variabel :   x : integer;
                            yt: char;
Program ini di gunakan untuk memilih Playlist Lagu.


program PLAYLISTLAGU;
uses wincrt;
var
   x : integer;
   yt : char;

procedure kembali;
begin
     write ('Ingin kembali ke menu utama? [Y/T] : ');
     readln (yt);
end;

procedure taktahu;
begin
     clrscr;
     writeln ('Daftar tidak terdefinisi');
     readln;
     kembali;
end;

procedure menu5;
begin
     clrscr;
     writeln('*********Terimakasih Sudah Menggunakan Program Ini********');
     writeln('');
     writeln('Nama: Sodikin ');
     writeln('NIP : 432007006120000');
     writeln('TASIKMALAYA');
     readln;
     kembali;
end;

procedure menu4;
begin
     clrscr;
     writeln ('DAFTAR PLAYLIST 4');
     writeln ('==================');
     writeln ('Linkin Park');
     writeln ('1. Castle Of Glass');
     writeln ('2. Skin To Bone');
     writeln ('3. Powerless');
     writeln ('4. Road Untraveled');
     writeln ('5. In My Remains');
     writeln ('==================');
     readln;
     kembali;
end;

procedure menu3;
begin
     clrscr;
     writeln ('DAFTAR PLAYLIST 3');
     writeln ('==================');
     writeln ('GrenDay');
     writeln ('1. Basket Case');
     writeln ('2. Time Of Life');
     writeln ('3. 21 Guns');
     writeln ('4. When I Come Around');
     writeln ('5. Boulevard Of Broken Dream');
     writeln ('==================');
     readln;
     kembali;
end;

procedure menu2;
begin
     clrscr;
     writeln ('DAFTAR PLAYLIST 2');
     writeln ('==================');
     writeln ('Slank');
     writeln ('1. Cinta Kita');
     writeln ('2. Ku Tak Bisa');
     writeln ('3. Kupu-Kupu Liar');
     writeln ('4. Pandangan Pertama');
     writeln ('5. Bendera Setengah Tiang');
     writeln ('==================');
     readln;
     kembali;
end;

procedure menu1;
begin
     clrscr;
     writeln ('DAFTAR PLAYLIST 1');
     writeln ('==================');
     writeln ('Kenny G');
     writeln ('1. Forever Love');
     writeln ('2. Uncle Al');
     writeln ('3. Waiting For You');
     writeln ('4. Going Home');
     writeln ('5. Jasmine Flower');
     writeln ('==================');
     readln;
     kembali;
end;

procedure utama;
begin
     clrscr;
     writeln ('DAFTAR PLAYLIST');
     writeln ('===================');
     writeln ('[1] Playlist 1');
     writeln ('[2] Playlist 2');
     writeln ('[3] Playlist 3');
     writeln ('[4] Playlist 4');
     writeln ('[5] About ');
     writeln ('[6] Keluar');
     writeln ('===================');
     write ('Masukan pilihan anda. [1/2/3/4/5/6] : ');
     readln (x);
     if (x = 1) then
        menu1
     else
     if (x = 2) then
        menu2
     else
     if (x = 3) then
        menu3
     else
     if (x = 4) then
        menu4
     else
     if (x = 5) then
        menu5
    else
     if (x = 6) then
        exit;
     if (x > 6) then
        taktahu;
end;

begin
     clrscr;
     utama;
     while (yt = 'y') do
        utama;
     while (yt = 'Y') do
        utama;
end.

 
Hasil Program Setelah di Run;

Membuat Tabel Pada HTML

Perintah Dasar Membuat Tabel di HTML :

<table border="1">
  <tr>
    <th>Nama</th>
    <th>Tanggal Lahir</th>
  </tr>
  <tr>
    <td>Ahmad Ridwan</td>
    <td>21-03-2013</td>
  </tr>
</table>

Apabila melihat contoh susunan tabel diatas, pengertian kode HTML nya adalah sebagai berikut :

<table> diakhiri dengan </table> : digunakan sebagai tanda awal tabel
<tr>..</tr> : digunakan sebagai tanda awal baris, tr kependekan dari table row
<th>..</th> : digunakan untuk membuat tampilan kolom header tabel, th kependekan dari table head
<td>..</td> : digunakan untuk menyusun kolom data, td kependekan dari table data
Setiap elemen dari kode HTML tersebut harus tersusun dan tertata dengan benar.
Perhatikan tanda slash / garis miring di setiap akhir elemen, itu merupakan kode penutup untuk kode pembuka di semua jenis kode HTML.

Atribut pendukung Tabel :

align : untuk mengatur posisi horizontal
valign : untuk mengatur posisi vertikal
width : untuk mengatur lebar
height : untuk mengatur tinggi
border : untuk mengatur tebal garis
border-color : untuk memberi tebal garis dengan warna
cellpadding : untuk mengatur jarak garis dengan objek didalamnya
cellspacing : untuk mengatur jarak tiap cell
bgcolor : untuk mengatur warna
background : untuk mengatur latar gambar
rowspan : jumlah baris yang memotong beberapa baris
colspan : jumlah kolom yang memotong beberapa kolom

Berikut adalah contoh tabel yang terdiri dari 3 baris dan 2 kolom.

<table border="1">
	<tr>
		<td>Cell 1 - Baris 1 Kolom 1</td>
		<td>Cell 2 - Baris 1 Kolom 2</td>
	</tr>
	<tr>
		<td>Cell 3 - Baris 2 Kolom 1</td>
		<td>Cell 4 - Baris 2 Kolom 2</td>
	</tr>
	<tr>
		<td>Cell 5 - Baris 3 Kolom 1</td>
		<td>Cell 6 - Baris 3 Kolom 2</td>
	</tr> 
</table>

Hasil:

Cell 1 – Baris 1 Kolom 1	Cell 2 – Baris 1 Kolom 2
Cell 3 – Baris 2 Kolom 1	Cell 4 – Baris 2 Kolom 2
Cell 5 – Baris 3 Kolom 1	Cell 6 – Baris 3 Kolom 2

Dalam contoh sengaja ditambah dengan atribut border agar kita dapat melihat posisi dari tabel tersebut, karena secara default nilai dari border ini adalah 0 jika tidak disertakan dengan tag <table>.

Mengatur lebar dan tinggi tabel:
Untuk mengatur lebar table digunakan atribut width atau bisa juga dengan style CSS dengan properti width. Untuk lebar dan tinggi dari td kita gunakan atribut style dengan properti width dan height.
Berikut adalah contoh tabel dengan lebar 75% dari lebar dokumen dan lebar kolom masing 50% dengan tinggi pada baris pertama adalah 40px.

<table border="1" width="75%">
	<tr>
		<td style="width:50%;height:40px;">Baris 1 Kolom 1</td>
		<td>Baris 1 Kolom 1</td>
	</tr>
	<tr>
		<td>Baris 2 Kolom 1</td>
		<td>Baris 2 Kolom 2</td>
	</tr>
	<tr>
		<td>Baris 3 Kolom 1</td>
		<td>Baris 3 Kolom 2</td>
	</tr>
</table>

Hasil:

Baris 1 Kolom 1	Baris 1 Kolom 1
Baris 2 Kolom 1	Baris 2 Kolom 2
Baris 3 Kolom 1	Baris 3 Kolom 2

Untuk satuan ukuran widht dan height dari atribut maupun style tersebut kita dapat menggunakan px atau %. Untuk pengaturan lebar dan tinggi pada td kita cukup memasukkan pada kolom pertama secara otomatis kolom-kolom berikutnya akan mengikuti pengaturan tersebut.

Menggabungkan kolom pada tabel:
Table Cell atau baris dan kolom dari tabel tersebut dapat kita gabungkan sesuai kebutuhan bentuk tabel yang diinginkan.
Untuk menggabungkan kolom dalam tabel digunakan atribut colspan.

<table border="1" width="75%">
	<tr>
		<td colspan="2">Gabungan Kolom 1&amp;2 pada Baris 1</td>
	</tr>
	<tr>
		<td style="width:50%">Baris 2 Kolom 1</td>
		<td>Baris 2 Kolom 2</td>
	</tr>
	<tr>
		<td>Baris 3 Kolom 1</td>
		<td>Baris 3 Kolom 2</td>
	</tr>
</table>

Hasil:

Gabungan Kolom 1&2 pada Baris 1
Baris 2 Kolom 1	Baris 2 Kolom 2
Baris 3 Kolom 1	Baris 3 Kolom 2

Sedangkan untuk menggabungkan baris dalam tabel digunakan atribut rowspan.

<table border="1" width="75%">
	<tr>
		<td style="width:50%" rowspan="2">Gabungan Baris 1&amp;2 pada Kolom 1</td>
		<td>Baris 1 Kolom 2</td>
	</tr>
	<tr>
		<td>Baris 2 Kolom 2</td>
	</tr>
	<tr>
		<td>Baris 3 Kolom 1</td>
		<td>Baris 3 Kolom 2</td>
	</tr>
</table>

Hasil:

Gabungan Baris 1&2 pada Kolom 1	Baris 1 Kolom 2
	Baris 2 Kolom 2
Baris 3 Kolom 1	Baris 3 Kolom 2

Mengatur jarak kolom pada tabel:
Untuk mengatur posisi cell dalam tabel digunakan atribut cellpadding dan cellspacing.
Cellpadding adalah untuk pengaturan sisi dari bagian dalam cell.

<table border="1" width="75%" cellpadding="8">
	<tr>
		<td style="width:50%;">Baris 1 Kolom 1</td>
		<td>Baris 1 Kolom 2</td>
	</tr>
	<tr>
		<td>Baris 2 Kolom 1</td>
		<td>Baris 2 Kolom 2</td>
	</tr>
</table>

Hasil:

Baris 1 Kolom 1	Baris 1 Kolom 2
Baris 2 Kolom 1	Baris 2 Kolom 2

Sedangkan Cellspacing adalah pengaturan sisi dari bagian luar cell.

<table border="1" width="75%" cellspacing="8">
	<tr>
		<td style="width:50%">Baris 1 Kolom 1</td>
		<td>Baris 1 Kolom 2</td>
	</tr>
	<tr>
		<td>Baris 2 Kolom 1</td>
		<td>Baris 2 Kolom 2</td>
	</tr>
</table>

Hasil:

Baris 1 Kolom 1	Baris 1 Kolom 2
Baris 2 Kolom 1	Baris 2 Kolom 2

Membuat titel pada tabel:
Untuk tabel yang lengkap dengan titel, kita bisa menambahkan tag <caption> tepat setelah tag <table> dan kita juga bisa mengganti td dengan th (table heading) sebagai titel dari baris maupun kolom.
Caption dan th akan secara otomatis berada pada posisi tengah dan th akan menghasilkan tulisan tebal.

<table border="1" width="75%">
<caption>Disini adalah titel tabel ini</caption>
	<tr>
		<th style="width:50%;">Header Kolom 1</th>
		<th>Header Kolom 2</th>
	</tr>
	<tr>
		<td>Baris 1 Kolom 1</td>
		<td>Baris 1 Kolom 2</td>
	</tr>
	<tr>
		<td>Baris 2 Kolom 1</td>
		<td>Baris 2 Kolom 2</td>
	</tr>
</table>

Hasil:

Disini adalah titel tabel ini

Header Kolom 1	Header Kolom 2
Baris 1 Kolom 1	Baris 1 Kolom 2
Baris 2 Kolom 1	Baris 2 Kolom 2

berikut contoh tabel yang saya buat di HTML :