Thursday 19 December 2013

contoh program pascal maba

Listing Program Mahasiswa Baru
program maba;
uses wincrt;
type  mhs  = record
      no : string [4] ;
      Nm  :string [30];
      asal : string [20] ;
      tmp : string [20];
      d,m,y: integer;
      by, gd,tot: real;
end;
var data:mhs;
begin
with data do
     begin
     writeln('Pendaftaran Mahasiswa Baru');
     writeln('--------------------------');
     write('Masukkan Nomor               :'); readln(no);
     write('Masukkan Nama                :'); readln(nm);
     writeln('Contoh Format Tanggal [12 12 1994] Gunakan spasi');
     write  ('Tanggal Lahir [DD MM YYYY] : '); readln(d,m,y);

     case m of
     1,3,5,7,8,10,12:begin
                       if (d>31) then
                            writeln('Tanggal salah')
                       else
                           writeln('Contoh Format Tanggal [12 12 1994] Gunakan spasi');
     write  ('Tanggal Lahir [DD MM YYYY] : '); readln(d,m,y);
                  end;

     4,6,9,11:begin
                   if (d>30) then
                      writeln('Tanggal salah')
                   else
                      writeln('Contoh Format Tanggal [12 12 1994] Gunakan spasi');
     write  ('Tanggal Lahir [DD MM YYYY] : '); readln(d,m,y);
              end;

     2:begin
            if (y mod 4=0) then
            begin
                 if (d>29) then
                 writeln('Tanggal salah')
                 else
                writeln('Contoh Format Tanggal [12 12 1994] Gunakan spasi');
     write  ('Tanggal Lahir [DD MM YYYY] : '); readln(d,m,y);
                 end
            else
            begin
            if (d>28) then
             writeln('Tanggal salah')
            else
             writeln('Contoh Format Tanggal [12 12 1994] Gunakan spasi');
     write  ('Tanggal Lahir [DD MM YYYY] : '); readln(d,m,y);
             end;
    
     write('Asal Sekolah                 :'); readln(asal);
     write('Biaya Pendaftaran            :'); readln(by);
     write('Uang Gedung                  :'); readln(gd);

     tot:=by+gd;
     writeln('Total                        :',tot:0:0);
     end;
    end;
     writeln;
     writeln;
     writeln('        Laporan           ');
     writeln('--------------------------');
     writeln('Masukkan Nomor               :',data.no);
     writeln('Masukkan Nama                :',data.nm);
     writeln('Tanggal Lahir                :',data.d,m,y);
     writeln('Asal Sekolah                 :',data.asal);
     writeln('Biaya Pendaftaran            :',data.by:0:0);
     writeln('Uang Gedung                  :',data.gd:0:0);
     writeln('Total                        :',data.tot:0:0);
end;

end.

tampilan


Wednesday 4 December 2013

belajar HTML

<html>
  <head>
      <title> Membuat Tabel </title>
  <head>

<BODY background = "imageS.JPG">

<table border="3">
    <tr>
        <td colspan="4"BGCOLOR="WHITE"><center><FONT COLOR = "blue"><b>NAMA CLUB</b></center></td>
    </tr>

    <tr>
        <td style="width:20%;height:40px;"BGCOLOR="WHITE"><FONT COLOR = "RED"><b>LIGA INGGRIS</b></td>
        <td style="width:20%;height:40px;"BGCOLOR="WHITE"><FONT COLOR = "RED"><b>LIGA SPANYOL</b></td>
        <td style="width:20%;height:40px;"BGCOLOR="WHITE"><FONT COLOR = "RED"><b>LIGA ITALI</b></td>
    </tr>
    <tr>
        <td colspan="1"BGCOLOR="white"><FONT COLOR = "RED"> Arsenal</td>
        <td colspan="1"BGCOLOR="white"><FONT COLOR = "RED"> Barcelona</td>
        <td colspan="1"BGCOLOR="white"><FONT COLOR = "RED"> Juventus</td>
    </tr>
    <tr>
        <td colspan="1"BGCOLOR="white"><FONT COLOR = "RED"> Manchester United</td>
        <td colspan="1"BGCOLOR="white"><FONT COLOR = "RED"> Real Madrid</td>
        <td colspan="1"BGCOLOR="white"><FONT COLOR = "RED"> AC Milan</td>
    </tr>
    <tr>
       
        <td colspan="1"BGCOLOR="white"><FONT COLOR = "RED"> Chelsea </td>
        <td colspan="1"BGCOLOR="white"><FONT COLOR = "RED"> Ajax</td>
        <td colspan="1"BGCOLOR="white"><FONT COLOR = "RED"> Inter Milan</td>
    </tr>
</table>
</body>
</html>
Script HTML diatas menghasilkan gambar dibawah  ini :



Sunday 1 December 2013

baby funny




bocah kecil ini sedang di bully sama kakanya . Dia Bernama Adytia Zacky yang sangat menggemaskan umurnya sekarang udah 2 tahun.

Tuesday 26 November 2013

SOAL LATIHAN STRUKTUR DATA


1. Struktur pertama dalam pascal adalah
a. Char;
b. String
c. End.
d. Writeln
e. Uses crt;

Alasan : karena uses crt digunakan dalam pascal saat proses program

2. Untuk melihat hasil dari program yang dikerjakan tekan tombol
a. Crtl+f5
b. Ctrl+f9
c. Ctrl+f2
d. Ctrl+f12
e. Ctrl+f4

Alasan : karena ctrl+f9 merupakan shortkey untuk menjalankan program pascal

3. Berapa kode yang digunakan untuk membuat tulisan berwarna “CYAN”
a. 4
b. 2
c. 128
d. 7
e. 3

Alasan : kode yang digunakan uuntuk CYAN adalah 3

4. Perintah dasar sederhana dalam program pascal adalah
a. Readln
b. End
c. Write
d. Writeln
e. Uses crt;

Alasan : Digunakan untuk menampilkan isi dari suatu nilai  variabel

5. Tipe data bahasa pascal untuk TRUE FALSE adalah
a. String
b. Char
c. Boolean
d. Byte
e. Real

Alasan : karena pada tipe data ini hanya memiliki dua domain nilai. Sebagai bilangan ordinal boolean True mempunyai nilai 1(satu), sedangkan False nilainya adalah 0(nol)

6. Siapakah penemu pascal
a. Greyson change
b. Prof. Niklaus Wirth
c. Kondrazuse
d. Prof. Niklaus Smirth
e. Dr. Hercules

Alasan : yang pertama kali menciptakan mesin penghitung, Profesor Niklaus Wirth membuat bahasa Pascal ini sebagai alat bantu untuk mengajarkan konsep pemrograman komputer kepada mahasiswanya.

7. Struktur bahasa pemrograman pascal paling pertama adalah
a. Var;
b. Begin
c. End;
d. Uses crt;
e. Writeln;

Alasan : karena uses crt digunakan dalam pascal saat proses program

8. Tipe data pascal untuk karakter adalah
a. Char
b. Boolean
c. Integer
d. Real
e. Byte

Alasan : char adalah semua tombol yang terdapat pada keyboard atau lebih lengkapnya semua yang terdapat pada kode ASCII

9. Kapan terbentuknya pascal
a. 1981
b. 1971
c. 1961
d. 1991
e. 1987

Alasan : Pascal adalah bahasa pemrograman yang pertama kali di buat oleh Profesor Niklaus Wirth, seorang anggota  (IFIP) pada tahun 1971

10. Apakah kepanjangan dari USES
a. Unit secure
b. Unit syntax
c. Unit system
d. Up software
e. Unit semiconductor

Alasan : Uses digunakan untuk memanggil library dalam pascal

11. Berikut ini adalah penulisan identifier yang benar dalam pemrogramnan pascal adalah
a. 9program_satu
b. Program_satu
c. Program satu
d. Begin
e. Array

Alasan : Penulisan identifier tidak boleh memakai spasi dan tidak boleh menggunakan angka di awal baris

12. Tipe bilangan bulat dalam bahasa pascal dikenal dengan
a. Byte
b. Integer
c. Char
d. String
e. Boolean

Alasan : ,karena integer adalah type data signed maka hanya mampu di-assign nilai antara -215 hingga 215-1 yaitu -32768 sampai 32767.

13. Istilah “perulangan” dalam pemrograman pascal dikenal sebagai
a. Repeating
b. Again
c. Function
d. Replay
e. Looping

Alasan : karena arti dari looping adalah pengulangan

 14. Perintah untuk menutup program pada Pascal adalah
a. END.
b. Program
c. Uses crt;
d. Finish
e. END;

Alasan : karena end. Merupakan perintah untuk menutup program pascal

15. Menggambarkan program secara logika merupakan fungsi dari
a. flowchart
b. DxDiag
c. Begin
d. SI
e. Sistem Operasi

Alasan :  suatu metode untuk menggambarkan tahap-tahap pemecahan masalah dengan mempresentasikan simbol-simbol

16. Deklarasi yang digunakan untuk mengidentifikasi data yang nilainya sudah ditentukan dan pasti, tidak dirubah dalam program disebut deklarasi
a. Deklarasi label
b. Deklarasi Konstanta
c. Deklarasi tipe
d. Deklarasi Variabel
e. Deklarasi Prosedur

Alasan : karena konstanta digunakan untuk mendeklarasikan suatu identifier yang nilai tetap

17. Dibawah ini termasuk dalam Deklarasi dalam Pascal kecuali
a. Deklarasi perubah
b. Deklarasi proses
c. Deklarasi konstanta
d. Deklarasi tipe
e. Deklarasi prosedure

Alasan : karena didalam pascal tidak ada deklarasi proses

18. Bilangan yang mengandung pecahan, paling sedikit harus ada satu digit sebelum dan sesudah titik desimal termasuk dalam tipe data
a. Real
b. Boolean
c. Integer
d. Longint
e. Byte

Alasan : Tipe real adalah bilangan yang mengandung pecahan, paling sedikit harus ada satu digit sebelum dan sesudah titik desimal

19. Prosedur yang digunakan untuk membersihkan layar saat program dijalankan adalah
a. Writeln
b. Readln
c. Begin
d. Write
e. Clrscr

Alasan :  clrscr merupakan  clear screen

20. Bentuk dari suatu statement IF berada didalam lingkungan statement IF yang lainnya, disebut IF dalam kondisi
a. IF bersarang
b. IF bercabang
c. IF tunggal
d. IF-THEN
e. IF do while-until

Alasan : Bentuk statement If tersarang sebagai berikut :

If kodisi1 Then atau If Kondisi1 Then
If kondisi2 Then Begin
statemen1 IF kondisi2 Then
Else statemen1
statemen2; Else
statemen2
End; 

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

Alasan : Tipe data terstruktur yang terdiri dari sejumlah komponen-komponen yang mempunyai tipe sama, 

22. Perintah untuk menampilkan atau cetak dilayar monitor tanpa pindah baris, disebut
a. Writeln
b. Write
c. Readln
d. Read
e. Begin

Alasan :  write berfungsi untuk menampilkan atau mencetak dilayar monitor tanpa pindah baris

23. Perintah untuk menampilkan atau cetak dilayar monitor lalu pindah baris kebawah, disebut
a. Writeln
b. Write
c. Readln
d. Read
e. Begin

Alasan : karena writelen berfungsi untuk menampilkan atau mencetak dilayar monitor kemudian pindah ke baris bawah.

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

Alasan : variabel nilainya tidak tentap atau nilainya dibubuhkan Sendiri atau nilainya hasil dari suatu proses.

25. Suatu program terpisah dalam blok sendiri yang berfungsi sebagai subprogram (bagian program), disebut
a. Variabel
b. Tipe Data
c. Prosedur
d. Deklarasi
e. Array

Alasan :  Prosedur adalah suatu program terpisah dalam blok tersendiri yang berfungsi sebagai sub program (program bagian) dan diawali dengan kata cadangan