Pages

Monday, December 16, 2013

Program SPP Pascal

Baik kali ini saya akan memposting codding program pascal tentang pembayaran SPP untuk instansi sekolah, langsung saja ke TKP Cekidot

program bayar_spp;
uses wincrt;
var
nomor, tanggal, bulan, tahun : integer;
nama, tempat : string;
bspp, biaya, bayar, sisa : real;


     procedure isi;
     begin
     clrscr;
     write ('Nomor                : '); readln (nomor);
     write ('Nama                 : '); readln (nama);
     write ('Tempat lahir         : '); read (tempat);
     write ('Tanggal lahir        : '); read (tanggal, bulan, tahun);
     end;
begin
     isi;

     if tanggal > 31  then
     begin
     writeln ('Format tanggal salah!');
     readln;
     isi;
     end;

     if bulan > 12 then
     begin
     writeln ('Format bulan salah!');
     readln;
     isi;
     end;

     if (tahun < 1994) and (tahun > 1998) then
     begin
     writeln ('Format tahun salah!');
     readln;
     isi;
     end;

     write ('Bayar SPP/bulan      : '); readln (bspp);
     writeln ('Besar biaya          : ', bspp:0:0);
     write ('Bayar                : '); readln (bayar);
     sisa:=(bayar)-(bspp);
     write ('Sisa                 :', sisa:0:0);
end.

Dan ini dia layout hasil program tadi:

Tuesday, December 3, 2013

Source Kode HTML

Disini saya akan menayangkan source kode html untuk pembuatan tabel

1. Source HTML
<HTML>
<HEAD>
<TITLE>MEMBUAT TABEL</TITLE>
</HEAD>
<BODY BGCOLOR="MAROON">MENU MAKANAN CAFE TEKEL <BR></BR>
<TABLE BORDER="4" WIDTH="500" CELLPADDING="6">
<TR>
    <TD COLSPAN = "2" BGCOLOR="yellow">DAFTAR MAKANAN</TD>
    <TD BGCOLOR="yellow">HARGA</TD>
    <TD colPAN = "4"><MARQUEE><IMG SRC="foto0346.JPG" WIDTH="200"></MARQUEE></TD>
</TR>
<TR>
    <TD>1.</TD>
    <TD>NASI LIWET</TD>
    <TD>25000</TD>
</TR>
<TR>
    <TD>2.</TD>
    <TD>JUS MELON</TD>
    <TD>5000</TD>
</TR>
<TR>
    <TD>3.</TD>
    <TD>TEH LOTOB</TD>
    <TD>5000</TD>
</TR>
<TR>
    <TD>4.</TD>
    <TD>NASI DURUK</TD>
    <TD>7000</TD>
</TR>
<TR>
    <TD></TD>
    <TD>TERIMAKASIH</TD>
    <TD></TD>
</TR>
</TABLE>
</BODY>
</HTML>


2.Layout HTML

Program Pascal (Aplikasi Sekolah)

Ini dia Program pascal tentang Aplikasi sekolah

1.Listing Program
program sekolah;
uses wincrt;
var
   pilihan : string;
   again : char;

procedure datasiswa;

var
   nama,jns,tempat,alamat,asalsekolah,tkelas : string;
   tgl,bln,thn:integer;
   nis:longint;

begin
     repeat
     clrscr;
     writeln('             Input Data Siswa');
     writeln('______________________________________________');
     writeln;
     write('NIS                  : ');readln(nis);
     write('Nama                 : ');readln(nama);
     write('Jenis Kelamin        : ');readln(jns);

     if (jns='Laki-Laki') or (jns='LAKI-LAKI') or (jns='PEREMPUAN')
     or (jns='laki-laki') or (jns='perempuan') or (jns='Perempuan')
     or (jns='pria') or (jns='Pria') or (jns='PRIA')
     or (jns='wanita') or (jns='Wanita') or (jns='WANITA') then
     begin
     write('Tempat Lahir         : ');readln(tempat);
     write('Tanggal Lahir (masukan angka)       : ');readln(tgl);

     case tgl of          
     1..31:begin
            write('Bulan Lahir (masukan angka)         : ');readln(bln);
            end;
     end;

     case bln of
     1..12:begin
            write('Tahun Lahir (4 dijit angka)         : ');readln(thn);
            end;
     end;

     case thn of
     1990..2000:begin
                write('Alamat               : ');readln(alamat);
                write('Asal Sekolah         : ');readln(asalsekolah);
                write('Kelas                : ');readln(tkelas);
                end;
     0..1989:writeln('Maaf inputan tidak diperkenankan');
     2001..3000:writeln('Maaf inputan tidak diperkenankan');
     end;
    
     end
     else
     writeln('Tidak Valid');
     writeln ('______________________________________________');
     writeln;
     writeln('R. Isi data kembali');
     writeln('K. Keluar dari program');
     writeln;
     write('Pilih : ');readln(again);

     if (again = 'K') or (again= 'k') then
        donewincrt
     else
     writeln('Keyword Tidak Valid');

     until again <> 'R';
     
end;

procedure data_guru;

var
   nm_guru, jk_guru, a_guru, mp_guru, kd_pel, no_guru : string;
   nip_guru : longint;

begin
     repeat
     clrscr;
     writeln('             Input Data Guru');
     writeln ('______________________________________________');
     write (' Masukan NIP guru       : '); readln (nip_guru);
     write (' Masukan nama guru      : '); readln (nm_guru);
     write (' Jenis kelamin          : '); readln (jk_guru);

     if (jk_guru='Laki-Laki') or (jk_guru='LAKI-LAKI') or (jk_guru='PEREMPUAN')
     or (jk_guru='laki-laki') or (jk_guru='perempuan') or (jk_guru='Perempuan')
     or (jk_guru='pria') or (jk_guru='Pria') or (jk_guru='PRIA')
     or (jk_guru='wanita') or (jk_guru='Wanita') or (jk_guru='WANITA') then
     begin
     write (' Alamat guru            : '); readln (a_guru);
     write (' Nomor telepon guru     : '); readln (no_guru);
     write (' Masukan kode pelajaran : '); readln (kd_pel);

     if kd_pel = 'PEL001' then
        mp_guru := 'Matematika'
     else
     if kd_pel = 'PEL002' then
        mp_guru := 'Bahasa Indonesia'
     else
     if kd_pel = 'PEL003' then
        mp_guru := 'Bahasa Inggris'
     else
     if kd_pel = 'PEL004' then
        mp_guru := 'IPA'
     else
     if kd_pel = 'PEL005' then
        mp_guru := 'IPS'
     else
     if kd_pel = 'PEL006' then
        mp_guru := 'PAI'
     else
     if kd_pel = 'PEL007' then
        mp_guru := 'PKn'
     else
         mp_guru := 'Kode Tidak Valid';
     
     writeln (' Mata pelajaran         : ',mp_guru);
     end
     else
     writeln('Tidak Valid');
     writeln ('______________________________________________');
     writeln('R. Isi data kembali');
     writeln('K. Keluar dari program');
     writeln;
     write('Pilih : ');readln(again);

     if (again = 'K') or (again= 'k') then
        donewincrt
     else
     writeln('Keyword Tidak Valid');

     until again <> 'R';

end;

procedure nilai;

var
   nm,grade : string;
   npm:longint;
   khdrn,uts,uas,tgs,jml_nil : real;
   a,n : integer;

begin
     repeat
     clrscr;
     writeln('             Input Nilai Siswa');
     writeln ('______________________________________________');
     write('NPM            : ');readln(npm);
     write('NAMA           : ');readln(nm);
     write('Nilai Kehadiran (batas min nilai = 0, batasan max nilai = 100) : ');readln(khdrn);
     write('Nilai Tugas (batas min nilai = 0, batasan max nilai = 100) : ');readln(tgs);
     write('Nilai UTS (batas min nilai = 0, batasan max nilai = 100) : ');readln(uts);
     write('Nilai UAS  (batas min nilai = 0, batasan max nilai = 100) : ');readln(uas);
     jml_nil:=(khdrn+tgs+uts+uas)/4;
     writeln('Nilai rata-rata: ',jml_nil:0:0);
   
     if jml_nil >= 90 then
        grade:='A'
     else
     if jml_nil > 80 then
        grade:='B'
     else
     if jml_nil > 60 then
        grade:='C'
     else
     if jml_nil > 50 then
        grade:='D'
     else
        grade:='E';

     writeln('Grade          : ',grade);
     writeln ('______________________________________________');
     writeln;
     writeln('R. Isi data kembali');
     writeln('K. Keluar dari program');
     writeln;
     write('Pilih : ');readln(again);

     if (again = 'K') or (again= 'k') then
        donewincrt
     else
     writeln('Keyword Tidak Valid');

     until again <> 'R';


end;

begin
     clrscr;
     writeln('SMK SUKAPURA');
     writeln('__________________________');
     writeln;
     writeln;
     writeln('           MENU');
     writeln('+*+*+*+*+*+*+*+*+*+*+*+*+*+');
     writeln;
     writeln('A. Data Siswa');
     writeln('B. Data Guru');
     writeln('C. Data Nilai Siswa');
     writeln('K. Keluar');
     writeln('+*+*+*+*+*+*+*+*+*+*+*+*+*+');
     writeln;
     write('Pilih Menu : ');readln(pilihan);

     if (pilihan='A') or (pilihan='a') then
        datasiswa
     else
     if (pilihan='B') or (pilihan='b') then
        data_guru
     else
     if (pilihan='C') or (pilihan='c') then
        nilai
     else
     if (pilihan='K') or (pilihan='k') then
        donewincrt;

end.

2.Layout Program
3.Flowchart Program

Sunday, December 1, 2013

Monday, November 25, 2013

Jawaban Soal Pascal
Kunci Jawaban Soal Pascal
Lihat Soal Klik
1. E
Alasan : Karena Uses crt merupakan pengenal untuk suatu sistem operasi yang digunakan.
2. B
Alasan : Ctrl + F9 adalah langkah cepat untuk melihat hasil program "Run".
3. E
 Alasan : 3 kode yang digunakan untuk membuat tulisan berwarna "CYAN". 
Contoh Soal Pascal
Lihat Jawaban Klik
1. Struktur pertama dalam pascal adalah . . .
a. Char;
b. String
c. End.
d. Writeln
e. Uses Crt;
2. Untuk melihat hasil dari program yang di kerjakan tekan tombol . . .
a. Ctrl+F5
b. Ctrl+F9
c. Ctrl+F2
d. Ctrl+F12
e. Ctrl+F4
3. Berapa kode yang digunakan untuk membuat tulisan berwarna “CYAN”....
a. 4
b. 2
c. 128
d. 7
e. 3
4. Perintah dasar sederhana dalam program pascal adalah.....
a. Readln
b. End
c. Write
d. Writeln
e. Uses crt;
5. Tipe data bahasa pascal untuk TRUE FALSE adalah....
a. String
b. Char
c. Boolean
d. Byte
e. Real
6. Siapakah penemu program pascal....
a. Greyson Change
b. Prof. Niklaus Wirth
c. Kondrazuse
d. Prof. Niklaus Smirth
e. Dr. Hercules
7. Struktur bahasa pemrograman pascal paling pertama adalah....
a. Var;
b. Begin
c. End;
d. Uses crt;
e. Writeln;
8. Tipe data pascal untuk karakter adalah....
a. Char
b. Boolean
c. Integer
d. Real
e. Byte
9. Kapan terbentuknya pascal....
a. 1981
b. 1971
c. 1961
d. 1991
e. 1987
10. Apa kepanjangan dari USES....
a. Unit Secure
b. Unit Syntax
c. Unit System
d. Up Software
e. Unit Semiconductor
11. Berikut ini adalah penulisan identifier yang benar dalam pemrograman pascal adalah....
a. 9Program_Satu
b. Program_Satu
c. Program Satu
d. Begin
e. Array
12. Tipe bilangan bulat dalam bahasa pascal dikenal sebagai....
a. Byte
b. Integer
c. Char
d. String
e. Boolean
13. Istilah “perulangan” dalam pemrograman pascal dikenal dengan....
a. Repeating
b. Again
c. Function
d. Replay
e. Looping
14. Perintah untuk menutup program pada Pascal adalah...
a. END.
b. Program
c. Uses crt;
d. Finish
e. END;
15. Menggambarkan program secara logika merupakan fungsi dari...
a. Flowchart
b. DxDiag
c. Begin
d. SI
e. Sistem Operasi
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
17. Dibawah ini termasuk dalam Deklarasi dalam Pascal, kecuali....
a. Deklarasi perubah
b. Deklarasi proses
c. Deklarasi konstanta
d. Deklarasi tipe
e. Deklarasi prosedur
18. Bilangan yang mengandung pecahan, palingsedikit harus ada satu digit sebelum dan sesudah titik desimal termasuk dalam tipe data...
a. Real
b. Boolean
c. Integer
d. Longint
e. Byte
19. Prosedur yang digunakan untuk membersihkan layar saat program dijalankan adalah....
a. Writeln
b. Readln
c. Begin
d. Write
e. Clrscr
20. Bentuk dari suatu statement IF berada di dalam lingkungan statemen IF yang lainya, disebut IF dalam kondisi....
a. IF bersarang
b. IF bercabang
c. IF tunggal
d. IF-THEN
e. IF do while-until
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
22. Perintah untuk menampilkan atau cetak dilayar monitor tanpa pindah baris, disebut...
a. Writeln
b. Write
c. Readln
d. Read
e. Begin
23. Perintah untuk menampilkan atau cetak dilayar monitor lalu pindah baris kebawah, disebut...
a. Writeln
b. Write
c. Readln
d. Read
e. Begin
24. Suatu identifier non-standar yang nilainya tidak tetap atau nilainya merupakan hasil dari suatu proses, disebut....
a. Variabel
b. Tipe Data
c. Prosedur
d. Deklarasi
e. Array
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
Contoh Soal Pemrograman Pascal