Program Penerimaan Mahasiswa Baru

Program Penerimaan Mahasiswa Baru Menggunakan TPW (Pascal)

program mahasiswa_baru;
uses wincrt;
var
   no,nama,asal,tempat:string;
   tgl,bln,th:integer;
   b_daftar,u_bangun,tot:longint;
begin
     clrscr;
     writeln('************************************');
     writeln;
     writeln(' Program Pendaftaran Mahasiswa Baru ');
     writeln;
     writeln('------------------------------------');
     writeln('           Yuni Yuningsih           ');
     writeln;
     writeln('************************************');
     writeln;
     write  ('No.               : '); readln(no);
     write  ('Nama              : '); readln(nama);
     write  ('Tempat Lahir      : '); readln(tempat);
     write  ('Tanggal Lahir     : '); readln(tgl,bln,th);
     case bln of
     1,3,5,7,8,10,12 : begin
                       if (tgl>31) then
                          begin
                               writeln('Format Tanggal salah');
                               readkey;
                               donewincrt;
                          end
                     
                       end;
     4,6,9,11 : begin
                if (tgl>30) then
                   begin
                        writeln('Format Tanggal salah');
                        readkey;
                        donewincrt;
                        end
                end;
     2 : begin
         if (th mod 4=0) then
            begin
                 if (tgl>29) then
                 begin
                      writeln('Format Tanggal salah');
                      readkey;
                      donewincrt;
                 end
            end
            else
            begin
            if (tgl>28) then
            begin
                 writeln('Format Tanggal salah');
                 readkey;
                 donewincrt;
            end
            end;
       end;
     end;
     if (bln>12) or (th>1995) then
        begin
             writeln('Format Tanggal Salah');
             readkey;
             donewincrt;
     end;
       
     write  ('Asal Sekolah      : '); readln(asal);
     write  ('Biaya Pendaftaran : '); readln(b_daftar);
     write  ('Uang Bangunan     : '); readln(u_bangun);
     tot:=b_daftar+u_bangun;
     write  ('Total             : ',tot);
end.

Tampilan Hasil Programnya Jika Pengisian Data Benar Akan Seperti Berikut:

Add caption

dan Jika Pengisian tanggal salah maka akan seperti Berikut:

Program Hitungan Matematika Pada Pascal (Procedure dan If)

1.       LISTING PROGRAM HITUNG MATEMATIKA DENGAN PROCEDURE

program hitungan_matematika;

uses wincrt;

var

menu : integer;

ulang : char;

a,t,h : real;

p,l,v:real;

s,j:real;

al,tg,lu:real;

procedure luas_segitiga;

begin

     repeat

     clrscr;

     writeln ('Menghitung Luas Segitiga');

     write ('Masukan Nilai Alas  : ');readln(a);

     write ('Masukan Nilai Tinggi :');readln(t);

     writeln ('Rumus : a*t/2');

     h:=a*t/2;

     writeln ('Luas Segitiga Adalah :',h:0:0);

     write (' ulang lagi[y/n]?'); readln (ulang);

     until upcase (ulang) <>'Y';

end;

procedure volume_balok;

begin

     repeat

     clrscr;

     writeln ('Menghitung Volume Balok ');

     write ('Masukan Nilai Panjang :');readln (p);

     write ('Masukan Nilai Tinggi  :');readln(l);

     write ('Masukan Nilai Lebar   :');readln(t);

     writeln ('Rumus : p*l*t');

     v :=p*l*t;

     writeln ('Volume Balok adalah :',v:0:0);

     write (' ulang lagi[y/n]?'); readln (ulang);

     until upcase (ulang) <>'Y';

end;

procedure volume_kubus;

begin

     repeat

     clrscr;

     writeln ('Menghitung Volume kubus ');

     write ('Masukan Nilai sisi :');readln (s);

     writeln ('Rumus : s*s*s');

     j:=s*s*s;

     writeln ('Volume kubus adalah :',j:0:0);

     write (' ulang lagi[y/n]?'); readln (ulang);

     until upcase (ulang) <>'Y';

end;

procedure luas_jajar_genjang;

begin

     repeat

     clrscr;

     writeln ('Menghitung luas jajar genjang ');

     write ('Masukan Nilai alas :');readln (al);                                                     

     write ('Masukan Nilai Tinggi  :');readln(tg);

     writeln ('Rumus : a*t');

    lu:=al*tg;

     writeln ('jadi luas jajar genjang adalah :',lu:0:0);

     write (' ulang lagi[y/n]?'); readln (ulang);

     until upcase (ulang) <>'Y';

end;

 procedure menu_utama;

 begin

      clrscr;

      writeln ('Menu Utama');

      writeln ('1. Luas Segitiga ');

      writeln ('2. Volume Balok');

      writeln ('3. volume kubus');

      writeln ('4. luas jajar genjang ');

      writeln ('5. keluar');

      writeln;

      write ('Pilih Menu :');readln(menu);

      case menu of

      1: begin

              luas_segitiga;

              menu_utama;

         end;

      2:begin

             volume_balok;

             menu_utama;

        end;

      3:begin

             volume_kubus;

             menu_utama;

        end;

      4: begin

              luas_jajar_genjang;

              menu_utama;

        end;

      5:donewincrt;

      end;

Layout:

Menu Berikutnya bisa langsung dicoba.

Flowchart:

2.       LISTING PROGRAM HITUNG MATEMATIKA MENGGUNAKAN IF

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.

Layout:

Flowchart:

Membuat Tabel Sederhana Dengan HTML di Notepad (yuni)

Assalamualaikum Wr.Wb

Membuat Tabel Dengan HTML

Pertama . . . . . ketikan listing html pada notepad dan simpan dengan nama.html

Untuk membuat table yang sederhana ada 3 elemen utama yaitu table, tr dan td. Tag <table> adalah untuk membuat tabel kemudian di ikuti dengan tag <tr> (table rows) adalah untuk membuat baris pada tabel kemudian tag <td> (table data) adalah untuk membuat kolom pada tabel, kolom-kolom hasil dari tr dan td ini disebut dengan table cell yaitu sebagai lokasi dimana kita memasukkan data-data yang akan di tampilkan.

Berikut ini merupakan contoh tabel 3 baris dan 2 kolom.

<html>

<table border="1">
<tr>
            <td> Berita Politik</td>
            <td> Berita IPTEK</td>
</tr>
<tr>
            <td> Seputar Religius</td>
            <td> Seputar Olahraga</td>
</tr>
<tr>
            <td> Aneka Info</td>
            <td> Aneka Hiburan</td>
</tr>
</table>

</html>

Nah hasilnya seperti dibawah ini :

Untuk border pada tabel tersebut bisa digunakan ukuran atau bahkan dihilangkan dengan cara merubah angka pada border-nya.

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 50% dari lebar dokumen dan lebar kolom masing 50% dengan tinggi pada baris pertama adalah 40px.

<html>

<table border="1" width="50%">

<tr>

            <td style="width:50%;height:40px;"> Berita Politik</td>

            <td> Berita IPTEK</td>

</tr>

<tr>

            <td> Seputar Religius</td>

            <td> Seputar Olahraga</td>

</tr>

<tr>

            <td> Aneka Info</td>

            <td> Aneka Hiburan</td>

</tr>

</table>

</html>

 Hasilnya sebagai berikut :

Untuk satuan ukuran widht dan height dari atribut maupun style tersebut kita dapat menggunakan px atau %.

Menggabungkan Kolom dan Baris

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.

<html>

<table border="1" width="50%">

<tr>

            <td colspan="2">Gabungan Berita Politik&amp;Berita IPTEK</td>

</tr>

<tr>

            <td> Seputar Religius</td>

            <td> Seputar Olahraga</td>

</tr>

<tr>

            <td> Aneka Info</td>

            <td> Aneka Hiburan</td>

</tr>

</table>

</html>

Hasil :

Sedangkan untuk menggabungkan baris dalam tabel digunakan atribut rowspan.

<html>

<table border="1" width="50%">

<tr>

            <td style="width:50%" rowspan="2">Gabungan Berita Politik&amp;Seputar Religius</td>

            <td> Berita IPTEK</td>

</tr>

<tr>

            <td> Seputar Olahraga</td>

</tr>

<tr>

            <td> Aneka Info</td>

            <td> Aneka Hiburan</td>

</tr>

</table>

</html>

Hasil :

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.

<html>

<table border="1" width="50%" cellpadding="8">

<tr>

            <td style="width:50%;">Berita Politik</td>

            <td> Berita IPTEK</td>

</tr>

<tr>

            <td> Seputar Religius</td>

            <td> Seputar Olahraga</td>

</tr>

<tr>

            <td> Aneka Info</td>

            <td> Aneka Hiburan</td>

</tr>

</table>

</html>

Hasil :

Sedangkan Cellspacing adalah pengaturan sisi dari bagian luar cell.

<html>

<table border="1" width="50%" cellspacing="8">

<tr>

            <td style="width:50%;">Berita Politik</td>

            <td> Berita IPTEK</td>

</tr>

<tr>

            <td> Seputar Religius</td>

            <td> Seputar Olahraga</td>

</tr>

<tr>

            <td> Aneka Info</td>

            <td> Aneka Hiburan</td>

</tr>

</table>

</html>

 Hasil :

Membuat Tittle pada Tabel

Untuk tabel yang lengkap dengan tittle, kita bisa menambahkan tag <caption> tepat setelah tag <table> dan kita juga bisa mengganti td dengan th (table heading)sebagai tittle dari baris maupun kolom.

Caption dan th akan secara otomatis berada pada posisi tengah dan th akan menghasilkan tulisan tebal.

<html>

<table border="1" width="50%">

<caption>Tittle</caption>

<tr>

            <th style="width:50%;">Berita Politik</th>

            <th> Berita IPTEK</th>

</tr>

<tr>

            <td> Seputar Religius</td>

            <td> Seputar Olahraga</td>

</tr>

<tr>

            <td> Aneka Info</td>

            <td> Aneka Hiburan</td>

</tr>

</table>

</html>

Hasil :

Menghilangkan Garis tabel

Untuk menghilangkan garis tabel menggunakan <table border="0">

Contohnya:

<html>

<table border="0" width="50%">

<caption>Tittle</caption>

<tr>

            <th style="width:50%;">Berita Politik</th>

            <th> Berita IPTEK</th>

</tr>

<tr>

            <td> Seputar Religius</td>

            <td> Seputar Olahraga</td>

</tr>

<tr>

            <td> Aneka Info</td>

            <td> Aneka Hiburan</td>

</tr>

</table>

</html>

Hasil:

Sekian . . . . . dan Terimakasih

Wassalam

Membuat Tabel Sederhana Dengan HTML di Notepad

Assalamualaikum Wr.Wb

Membuat Tabel Dengan HTML

Pertama . . . . . ketikan listing html pada notepad dan simpan dengan nama.html

Untuk membuat table yang sederhana ada 3 elemen utama yaitu table, tr dan td. Tag <table> adalah untuk membuat tabel kemudian di ikuti dengan tag <tr> (table rows) adalah untuk membuat baris pada tabel kemudian tag <td> (table data) adalah untuk membuat kolom pada tabel, kolom-kolom hasil dari tr dan td ini disebut dengan table cell yaitu sebagai lokasi dimana kita memasukkan data-data yang akan di tampilkan.

Berikut ini merupakan contoh tabel 3 baris dan 2 kolom.

<html>

<table border="1">
<tr>
            <td> Berita Politik</td>
            <td> Berita IPTEK</td>
</tr>
<tr>
            <td> Seputar Religius</td>
            <td> Seputar Olahraga</td>
</tr>
<tr>
            <td> Aneka Info</td>
            <td> Aneka Hiburan</td>
</tr>
</table>

</html>

Nah hasilnya seperti dibawah ini :

Untuk border pada tabel tersebut bisa digunakan ukuran atau bahkan dihilangkan dengan cara merubah angka pada border-nya.

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 50% dari lebar dokumen dan lebar kolom masing 50% dengan tinggi pada baris pertama adalah 40px.

<html>

<table border="1" width="50%">

<tr>

            <td style="width:50%;height:40px;"> Berita Politik</td>

            <td> Berita IPTEK</td>

</tr>

<tr>

            <td> Seputar Religius</td>

            <td> Seputar Olahraga</td>

</tr>

<tr>

            <td> Aneka Info</td>

            <td> Aneka Hiburan</td>

</tr>

</table>

</html>

 Hasilnya sebagai berikut :

Untuk satuan ukuran widht dan height dari atribut maupun style tersebut kita dapat menggunakan px atau %.

Menggabungkan Kolom dan Baris

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.

<html>

<table border="1" width="50%">

<tr>

            <td colspan="2">Gabungan Berita Politik&amp;Berita IPTEK</td>

</tr>

<tr>

            <td> Seputar Religius</td>

            <td> Seputar Olahraga</td>

</tr>

<tr>

            <td> Aneka Info</td>

            <td> Aneka Hiburan</td>

</tr>

</table>

</html>

Hasil :

Sedangkan untuk menggabungkan baris dalam tabel digunakan atribut rowspan.

<html>

<table border="1" width="50%">

<tr>

            <td style="width:50%" rowspan="2">Gabungan Berita Politik&amp;Seputar Religius</td>

            <td> Berita IPTEK</td>

</tr>

<tr>

            <td> Seputar Olahraga</td>

</tr>

<tr>

            <td> Aneka Info</td>

            <td> Aneka Hiburan</td>

</tr>

</table>

</html>

Hasil :

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.

<html>

<table border="1" width="50%" cellpadding="8">

<tr>

            <td style="width:50%;">Berita Politik</td>

            <td> Berita IPTEK</td>

</tr>

<tr>

            <td> Seputar Religius</td>

            <td> Seputar Olahraga</td>

</tr>

<tr>

            <td> Aneka Info</td>

            <td> Aneka Hiburan</td>

</tr>

</table>

</html>

Hasil :

Sedangkan Cellspacing adalah pengaturan sisi dari bagian luar cell.

<html>

<table border="1" width="50%" cellspacing="8">

<tr>

            <td style="width:50%;">Berita Politik</td>

            <td> Berita IPTEK</td>

</tr>

<tr>

            <td> Seputar Religius</td>

            <td> Seputar Olahraga</td>

</tr>

<tr>

            <td> Aneka Info</td>

            <td> Aneka Hiburan</td>

</tr>

</table>

</html>

 Hasil :

Membuat Tittle pada Tabel

Untuk tabel yang lengkap dengan tittle, kita bisa menambahkan tag <caption> tepat setelah tag <table> dan kita juga bisa mengganti td dengan th (table heading)sebagai tittle dari baris maupun kolom.

Caption dan th akan secara otomatis berada pada posisi tengah dan th akan menghasilkan tulisan tebal.

<html>

<table border="1" width="50%">

<caption>Tittle</caption>

<tr>

            <th style="width:50%;">Berita Politik</th>

            <th> Berita IPTEK</th>

</tr>

<tr>

            <td> Seputar Religius</td>

            <td> Seputar Olahraga</td>

</tr>

<tr>

            <td> Aneka Info</td>

            <td> Aneka Hiburan</td>

</tr>

</table>

</html>

Hasil :

Menghilangkan Garis tabel

Untuk menghilangkan garis tabel menggunakan <table border="0">

Contohnya:

<html>

<table border="0" width="50%">

<caption>Tittle</caption>

<tr>

            <th style="width:50%;">Berita Politik</th>

            <th> Berita IPTEK</th>

</tr>

<tr>

            <td> Seputar Religius</td>

            <td> Seputar Olahraga</td>

</tr>

<tr>

            <td> Aneka Info</td>

            <td> Aneka Hiburan</td>

</tr>

</table>

</html>

Hasil:

Sekian . . . . . dan Terimakasih

Wassalam