Membuat Tabel Dengan Notpad berikut listingnya

-
<html> 
 <head>
      <tittle><font size="35"><font color="blue">Membuat Tabel </font></font></tittle>
 </head>
<body background="keroroku.jpg" width="100%">
<table border="5" width="50%" cellpanding="5">

      <tr>
         <td colspan="2"> MY BIODATA </td>
      </tr>
      <tr>
         <th><img src="mee.jpg" width=100></th>
      </tr>
      <tr>
         <td> NAMA </td>
         <td> Sumiarsih Umi.K </td>
      </tr>
      <tr>
         <td> KELAS </td>
         <td> A-Teknik Informatika(S1) STMIK Tasikmalaya</td>
      </tr>
      <tr>
         <td> TANGGAL LAHIR </td>
         <td> 08 November 93 </td>
      </tr>
      <tr>
         <td> ALAMAT </td>
         <td> Kp.Warung Nyantong Rt.03 Rw.03 Kel.Mugarsari Kec.Tamansari Tasikmalaya</td>
      </tr>

</tabel>
</body>
</html>

Sekian dan terimakasih,, semoga bermanfaat ;)

Comments

Post a Comment

Popular posts from this blog

Membuat Program Perhitungan Matematik Menggunakan Prosedure dan IF Dalam Pascal

-
Image
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;
Read more

SOAL LATIHAN STRUKTUR DATA

-
 Tanggal : 25 November 2013 SOAL LATIHAN STRUKTUR DATA 1. Struktur pertama dalam pascal adalah  a. Char; b. String c. End. d. Writeln   e. Uses crt;   Alasan : untuk memulai pembuatan program pada pascal selalu diawali dengan Uses crt/Uses wincrt 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 : Ctrl+f9 dalam turbo pascal digunakan untuk  melihat dan menjalankan hasil program (Run) 3. Berapa kode yang digunakan untuk membuat tulisan berwarna “CYAN” a. 4 b. 2 c. 128 d. 7   e. 3   Alasan : warna untuk Cyan pada html 4. Perintah dasar sederhana dalam program pascal adalah a. Readln b. End   c. Write   d. Writeln e. Uses crt; Alasan : merupakan perintah paling sederhana untuk membuat baris dalam program pascal 5. Tipe data bahasa pascal untuk TRUE FALSE adalah a. String b. Char   c. Boolean   d. Byte e. Real Alasan : Boolean
Read more

Contoh Membuat program Mahasiswa baru Dengan Pascal

-
Image
                 Membuat program untuk pendataan mahasiswa baru dengan pascal, silahkan simak contoh listingnya : program m_baru; uses wincrt; var nm,as,t:string; d,m,y:integer; no:integer; tot,bp,ug:longint; begin writeln(' PROGRAM PENDATAAN MAHASISWA BARU '); writeln('=================================='); writeln(' NPM  : 06120166'); writeln(' Nama : Sumiarsih Umi Kulsum'); writeln; writeln('=================================='); 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;
Read more