program pendaftaran mahasiswa dengan menggunakan program pascal .......


program m_baru;
uses wincrt;
var
nm,as,t:string;
d,m,y:integer;
no:integer;
tot,bp,ug:longint;
begin
write (' nomor             : '); readln (no);
write (' nama              : '); readln (nm);
write (' Tempat Lahir      : '); readln(t);

write (' tanggal lahir     : '); readln (d,m,y);
 case m of
     1,3,5,7,8,10,12:begin
                       if (d>31) then
                            begin
                            writeln('Tanggal salah');
                            readkey;
                            donewincrt;
                  end;
                  end;
     4,6,9,11:begin
                   if (d>30) then
                      begin
                      writeln('Tanggal salah');
                      readkey;
                      donewincrt;
                  end;
              end;

     2:begin
            if (y mod 4=0) then
            begin
                 if (d>29) then
                 begin
                      writeln('Tanggal salah');
                      readkey;
                      donewincrt;
                  end
            else
            begin
            if (d>28) then
             writeln('Tanggal salah')
             end;
       end;
     END;

     end;

     if ( m > 12) then
        begin
             writeln(' Bulan salah!');
             readkey;
             donewincrt;
        end
     else if (y >= 1995) then
            begin
            writeln('Tahun salah!');
            readkey;
            donewincrt;
     end;
       

write ('asal sekolah       : ');readln (as);
write ('biaya pendaftaran  : ');readln (bp);
write ('uang gedung        : ');readln (ug);
writeln;
tot:=(bp+ug);
writeln ('total              : ',tot)
end.                 


SCREENSHOT.....

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

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('           ANUGRAH SENTOSA              ');
     Writeln('  Jl.Maju Terus no.7 Ciawi Tasikmalaya  ');
     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.

screenshot......

 

 

1.       Struktur pertama dalam pascal adalah...
a.       Char;
b.      String
c.       End.
d.      Writeln
e.      Uses crt;
Alasanya: karena pembuatan program di pascal struktur pertama selalu menggunakan uses crt/uses wincrt;

2.       Untuk melihat hasil dari program yang di kerjakan tekan tombol ...
a.       CRTL+F5
b.      CRTL+F9
c.       CRTL+F2
d.      CRTL+F12
e.      CRTL+F4
Alasanya:karena jika di lihat dalam program pascal untuk menjalankan listing kode pascal ada pada menu bar > Pilih Run atau melalui  Keyword pada keyboard "Ctrl+F9"

3.       Berapa kode yang digunakan untuk membuat tulisan berwarna “CYAN”…
a.       4
b.      2
c.       128
d.      7
e.      3
Alasanya: 3 termasuk kedalam kode angka untuk merubah warna teks, yaitu untuk membuat teks berwarna CYAN

4.       Perintah dasar sederhana  dalam program passcal adalah...
a.       Readln
b.      End
c.       Write
d.      Wtiteln
e.      Uses crt;
Alasanya:karena write merupakan salah satu yang termasuk kedalam perintah dasar sederhana program

5.       Tipe data bahasa pascal untuk  TRUE FALSE adalah...
a.       String
b.      Char
c.       Boolean
d.      Byte
e.      Real
Alasanya: boolean yaitu tipe data yang hanya mempunyai dua buah nilai (True atau False)

6.       Siapkah penemu program pascal…
a.       Greyson change
b.      Prof.niklaus wirth
c.       Kondrazuse
d.      Prof.niklaus smirth
e.      Dr.harcules
Alasanya: dalam  sejarah bahasa pemrograman pascal menyatakan  Prof. Niklaus Wirth adalah sebagai orang penemu bahasa pascal

                                                                                                                               

7.       Struktur bahasa pemograman pascal paling pertama adalah...
a.       Var;
b.      Begin
c.       End;
d.      Uses crt;
e.      Writeln;
Alasanya: karena pembuatan program di pascal struktur pertama selalu    menggunakan uses crt/uses wincrt;

8.       Tipe data pascal untuk karakter adalah...
a.       Char
b.      Boolean
c.       Integer
d.      Real
e.      Byte
Alasanya: char yaitu tipe data untuk memasukan sebuah karakter

9.       Kapan terbentuknya pascal...
a.       1981
b.      1971
c.       1961
d.      1991
e.      1987
Alasanya: sejarah menjelaskan bahwa pascal di ciptakan pada tahun 1971

10.   Apa kepanjangan ari USES…
a.       Unit secure
b.      Uni t syntax
c.       Unit sytem
d.      Up software
e.      Unit smiconductor
Alasanya: USES/ Unit System adalah untuk pengenalan sistem operasi yang digunakkan

11.   Berikut ini adalah penulisan identifier yang benar dalam pemogramn pascal adalah...
a.       9program_satu
b.      Program_1
c.       Program satu
d.      Begin
e.      Array
Alasanya: pada program pascal penulisan identifier tidak boleh memakai spasi, simbol lain dan angka didepan

12.   Tipe bilangan bulat dalam bahasa pascal dikenal sebagi ...
a.       Byte
b.      Integer
c.       Char
d.      String
e.      Boolean
Alasanya: integer merupakan tipe data bilangan bulat dengan vakue range adalah -32768 sampai 32767

13.   Istilah” perulangan “ dalam pemograman pascal dikenal dengan ...
a.       Repeating
b.      Again
c.       Funtion
d.      Replay
e.      Looping
Alasanya: looping merupakan istilah yang digunakkan untuk perulangan

14.   Perintah untuk menutup program dalam pascal adalah...
a.       End.
b.      Program
c.       Uses crt;
d.      Finish
e.      End;
Alasanya: setiap selesai penulisan listing program dalam pascal harus memakai perintah untuk mengakhiri penulisan program yaitu perintah end.

15.   Menggambarkan program secara logika merupakan fungsi dari...
a.       Flowchart
b.      Dxdiag
c.       Begin
d.      SI
e.      Sistem oprasi
Alasanya: flowchart adalah gambar program secara logika yang berupa simbol dan mempunyai arti dan alur yang benar

16.   Deklarasi yang digunakan untuk mengidentifikasikan data yang nilainya sudah ditentukan dan pasti,tidak dapat dirubah dalam program disebut deklarasi...
a.       Deklarasi label
b.      Deklarasi konstanta
c.       Deklarasi tipe
d.      Deklarasi variabel
e.      Deklarasi prosedur
Alasanya: deklarasi Konstanta adalah Pendeklarasian yang sudah di tentukan nilainya langsung di listing kodenya dan tidak dapat dirubah

17.   Di bawah ini termasuk dalam deklarasi dalam pascal ,kecuali...
a.       Deklarasi perubah
b.      Deklarasi proses
c.       Deklarasi konstanta
d.      Deklarasi tipe
e.      Deklarasi prosedut
Alasanya: karena deklarasi proses tidak termasuk  ke dalam deklarasi pascal

18.   Bilangan yang mengadung pecahan ,palingsedikit harus ada satu digit  sebelum dan sesudah titik desimal termasuk dalm tipe data...
a.       Real
b.      Boolean
c.       Integer
d.      Longint
e.      Byte
Alasanya: tipe data real adalah tipe data yang mengandung bilangan pecahan dengan value range 2.9 x 10^-39 sampai 1.7 x 10^38

19.   Prosedur yang digunakan untuk membersihkan layar saat program dijalankan adalah...
a.       Writeln
b.      Readln
c.       Begin
d.      Write
e.      Clrscr
Alasanya: perintah Clrscr yaitu Untuk membersihkan layar pada saat program berjalan dalam pascal


20.   Bentuk dari suatu statment IF berada di dalam lingkungan  statmean IF yang lainya,disebut IF dalam kondisi ...
a.       IF bersarang
b.      IF bercabang
c.       IF tunggal
d.      IF-THEN
e.      IF do while-Until
Alasanya: ada logika bersyarat dalam bahasa pascal yang disebut IF, dan bila ada IF di lingkungan IF maka disebut IF bersarang

21.   Tipe data terstruktur yang terdiri dari sejumlah komponen ,komponen yang mempunyai tipe sama,disebut tipe data...
a.       Array
b.      Byte
c.       Longint
d.      Integer
e.      Boolean
Alasanya: array merupakan tipe data yang terdiri dari komponen-komponen yang mempunyai tipe yang sama

22.   Perintah untuk menampilkan atau cetak dilayar monitor tanpa pindah baris ,disebut...
a.       Writeln
b.      Write
c.       Readln
d.      Read
e.      Begin
Alasanya: perintah Write digunakan dalam pascal untuk mencetak dilayar monitor tanpa pindah baris

23.   Perintah untuk menampilkan atau mencetak dilayar monitor lalu pindah baris kebawah ,disebut...
a.       Writeln
b.      Write
c.       Readln
d.      Read
e.      Begin
Alasanya: perintah Writeln digunakan dalam pascal untuk mencetak dilayar monitor dengan pindah baris

24.   Suatu indentifier non standar yang nilainya tidak tetap atau nilainya merupakan hasil dari suatu proses,disebut…
a.       Variabel
b.      Ripe data
c.       prosedur
d.      deklarasi
e.      Array
Alasanya: variabel merupakan Identifier dalam bahasa pascal yang dapat diubah nilainya  


25.   Suatu program terpisah dalam blok sendiri yang berfungsi sebagai subprogram ( program bagian) ,disebut...
a.       Variabel
b.      Tipe data
c.       Prosedur
d.      Deklarasi
e.      Array
Alasanya: prosedur adalah subprogram dari sebuah prgoram pascal yang bisa dideklarasikan di program pascal