Pengenalan HTML

Pengenalan HTML

Sebelum belajar HTML, alangkah lebih baik jika kita memahami konsep dasar HTML terlebih dahulu.

Pengertian HTML

HTML adalah suatu bahasa yang dipergunakan untuk mendeskripsikan halaman web.

• HTML merupakan singkatan dari Hyper Text Markup Language.
• HTML bukan merupakan bahasa pemrograman, HTML adalah suatu markup language (bahasa markah).
• Suatu markup language berupa serangkaian markup tags.
• HTML menggunakan markup tags untuk mendeskripsikan halaman web.

Read more…

Categories: HTML, XML, CSS Tags: end tag, end tags, HTML documents, HTML tags, markup language, markup tags, Pengertian HTML, start tag, Start tags

Program dengan Array of String

Menjawab pertanyaan mas/mbak takirey lagi nih tentang cara membuat program dengan menggunakan array of string. Dengan asumsi program user dapat melakukan input data ke dalam array, kemudian seluruh array akan ditampilkan.

Kira-kira begini penyelesaiannya :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

uses wincrt; var x : array[1..3] of string; a : integer; begin for a := 1 to 3 do begin write('input ', a, ' : '); readln(x[a]); end; writeln; write('output : '); for a := 1 to 3 do write(x[a],' '); end.

Categories: Pascal Tags: array, array of string, string

Program Bilangan Genap

Sesuai dengan pertanyaan mas/mbak takirey tentang bagaimana menyimpan bilangan genap ke dalam suatu array sebanyak input user.

Kira-kira begini penyelesaiannya :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

uses wincrt; var genap : array[1..100] of integer; a, b, jum : integer; begin a := 0; b := 2; write('Jumlah bilangan genap : ');readln(jum); while a <> jum do begin inc(a); genap[a] := b; b := b + 2; end; writeln; writeln('Hasil yang disimpan di array : '); for b := 1 to jum do writeln('Bilangan genap ke-',b,' : ',genap[b]); end.

Categories: Pascal Tags: array, bilangan genap, genap, input, Pascal

Konsep Dasar CSS

Bagaimana Menulis CSS?

Dalam hal ini ada beberapa istilah dan kosep dasar dari css. Tapi sebelum menuju pembahasan lebih lanjut, akan lebih baik kita harus membiasakan dengan bagaimana suatu style harus ditulis. Berikut adalah contoh mudah penulisan css pada suatu halaman web:

Contoh CSS 1

>

>

ARRAY / LARIK

ARRAY / LARIK

May 30th, 2009 Author Leave a comment Go to comments

Array (larik ) adalah tipe terstruktur yang terdiri dari sejumlah komponen yang
mempuyai tipe sama.

B.U :
Array [ 1 . . 20 ] of tipe_data ; (Dimensi 1)

B.U :
Array [1 . . 3 , 1 . . 2] of tipe_data; (Dimensi 2)

Contoh
Program Array :

Uses crt ;

Var

Nama : array [1..30 ] of string ;

Tugas, uts, uas, absen : array [1..30] of integer ;

Rata : array [1..30] of real ;

x , jd : byte;

BEGIN

CLRSCR ;

Write (
‘
Masukan Jumlah data :
‘
) ; readln ( jd ) ;

For x : = 1 to jd do

begin

Writeln (
‘
*****************************
‘
) ;

Writeln (
‘
PENILAIAN UJIAN MAHASISWA BSI
‘
) ;

Writeln (
‘
*****************************
‘
) ;

Write (
‘
Input Nama :
‘
) ; readln (nama[x] ) ;

Write (
‘
Input Nilai Tugas :
‘
) ; readln (tugas[x] ) ;

Write (
‘
Input Nilai Absen :
‘
) ; readln (absen[x] ) ;

Write (
‘
Input Nilai UTS :
‘
) ; readln (uts[x] ) ;

Write (
‘
Input Nilai UAS :
‘
) ; readln (uas[x]) ;

Rata[x]:=(0.1*tugas[x])+(0.2*absen[x])+(0.3*uts[x])+(0.4*uas[x]);

End ;

CLRSCR ;

For i : = 1 to j do

Begin

Writeln (
‘
*****************************
‘
) ;

Writeln (
‘
PENILAIAN UJIAN MAHASISWA BSI
‘
) ;

Writeln (
‘
*****************************
‘
) ;

Writeln (
‘
Nama :
‘
, nama[i] ) ;

Writeln (
‘
Nilai Tugas :
‘
, tugas[i] ) ;

Writeln (
‘
Nilai Absen :
‘
, absen[i] ) ;

Writeln (
‘
Nilai UTS :
‘
, uts[i] ) ;

Writeln (
‘
Nilai UAS :
‘
, uas[i]) ;

Writeln (
‘
****************************
‘
) ;

Writeln (
‘
Rata-rata :
‘
, rata : 1: 0 ) ;

Readln ;

End;

END.

Contoh dari Program Array

program ayam_goreng;

uses crt;

var

i,b:byte;

jenis,kdjenis:array [1..50]of string;

banyak,jmlharga,harga:array [1..50]of real;

totb,ppn,totjml,total:real;

begin

clrscr;

writeln(’Ayam Goreng Fried Chicken’);

writeln(’========================’);

writeln(’Kode Jenis potong Harga’);

writeln(’=============================’);

writeln(’D Dada 3000 ‘);

writeln(’P Paha 2500 ‘);

writeln(’S Sayap 1500 ‘);

writeln(’=============================’);

write(’Masukan Jumlah Jenis : ‘);readln(b);

for i:=1 to b do

begin

writeln;

writeln(’Jenis Ayam ke- ‘,i);

writeln;

write(’Jenis Ayam Bagian [D/P/S] : ‘);readln(kdjenis[i]);

write(’Jumlah Beli / Potong : ‘);readln(banyak[i]);

end;

writeln; clrscr;

writeln(’ PROGRAM AYAM GORENG FRIED CHICKEN’);

writeln(’======================================================================’);

writeln(’NO JENIS POTONG HARGA SATUAN BANYAK BELI
JUMLAH HARGA ‘);

writeln;

totb:=0;

for i:=1 to b do

begin

if kdjenis[i]=’D’ then

begin

jenis[i]:=’Dada’;

harga[i]:=3000;

end

else if kdjenis[i]=’P’ then

begin

jenis[i]:=’Paha’;

harga[i]:=2500;

end

else if kdjenis[i]=’S’ then

begin

jenis[i]:=’Sayap’;

harga[i]:=1500;

end

else

begin

jenis[i]:=’Kepala’;

harga[i]:=1000;

end;

jmlharga[i]:=harga[i]*banyak[i];

totb:=totb+jmlharga[i];

ppn:=totb*0.1;

totjml:=totjml+banyak[i];

total:=totb+ppn

end;

for i:=1 to b do

begin

writeln(i:1,jenis[i]:9,harga[i]:14:0,banyak[i]:18:0,jmlharga[i]:19:0);

end;

writeln(’=================================================================’);

writeln(’ Jumlah Potong :
‘,totjml:2:0);

writeln(’ Jumlah bayar :
‘,totb:2:0);

writeln(’ PPN 10 % :
‘,ppn:2:0);

writeln(’ Total bayar :
‘,total:2:0);

readln;

end.

Contoh Array Nilai siswa

uses crt;

var Nilai : array[1..50] of real;

jumlah, rata : real;

i,a, JumDat : byte;

nama : string;

begin

clrscr;

{jumlah:=0;}

writeln(’ Nilai Rata – Rata Praktikum Kelas
TK2A’);

Writeln(’————-’);

write(’Nama Mahasiswa =’ );readln(nama);

Write(’Berapa Jumlah data = ‘);readln(JumDat);

for i := 1 to Jumdat do

begin

Write(’Nilai Praktiklum ke
‘,i,’=');Readln(Nilai[i]);

end;

jumlah:=0;

for i:= 1 to JumDat do

begin

Jumlah := jumlah + Nilai[i];

rata := Jumlah/JumDat;

end;

writeln;

clrscr;

writeln(’Nama Mahasiswa =’,nama);

for i := 1 to jumdat do

begin

writeln(’Nilai Praktekm ke-’,i,’
=’,nilai[i]:3:0);

end;

writeln(’Total Nilai = ‘, jumlah:8:0);

writeln(’Nilai Rata – rata = ‘, Rata:8:1);

readln;

end.

Contoh Array

uses crt;

var Nilai : array[1..50] of real;

jumlah, rata : real;

i,a, JumDat : byte;

nama : string;

begin

clrscr;

{jumlah:=0;}

writeln(’ Nilai Rata – Rata Praktikum Kelas
TK2A’);

Writeln(’————-’);

write(’Nama Mahasiswa =’ );readln(nama);

Write(’Berapa Jumlah data = ‘);readln(JumDat);

for i := 1 to Jumdat do

begin

Write(’Nilai Praktiklum ke
‘,i,’=');Readln(Nilai[i]);

end;

jumlah:=0;

for i:= 1 to JumDat do

begin

Jumlah := jumlah + Nilai[i];

rata := Jumlah/JumDat;

end;

writeln;

clrscr;

writeln(’ Nilai Rata – Rata Praktikum Kelas
TK2A’);

Writeln(’————-’);

writeln(’Nama Mahasiswa =’,nama);

writeln(’ÉÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍ» ‘);

writeln(’º Praktikum º Nilai º ‘);

writeln(’ÌÍÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍ͹ ‘);

for i := 1 to jumdat do

begin

writeln(’º’,’ ke-’,i,’ º’,
nilai[i]:3:0,’ º’);

end;

writeln(’ÈÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍͼ’);

writeln(’Total Nilai = ‘, jumlah:8:0);

writeln(’Nilai Rata – rata = ‘, Rata:8:1);

readln;

end.

Contoh Array Agen Bus

Program Harga_Tiket;

uses crt;

var np:array[1..50] of string;

jb:array[1..50] of real;

jbyr:array[1..50] of real;

jml,a:byte;

tot:real;

ask:char;

label

baru;

begin

baru:

clrscr;

textcolor(7);

writeln(’AGEN BUS MALAM “LENGAH TENTREM”‘);

writeln;

write(’Masukkan Jumlah Penumpang :
‘);readln(jml);

writeln;

for a:=1 to jml do

begin

writeln(’Data Ke -’,a);

write(’Nama Penumpang : ‘);readln(np[a]);

write(’Jumlah Beli : ‘);readln(jb[a]);

end;

clrscr;

writeln(’DATA PENJUALAN TIKET’);

writeln(’AGEN BUS MALAM “LENGAH TENTREM”‘);

writeln(’——————’);

writeln(’No. Nama Penumpang Jumlah Beli
Jumlah Pembayaran’);

writeln(’——————’);

for a:=1 to jml do

jbyr[a]:=jb[a]*25000;

for a:=1 to jml do

writeln(a:1,np[a]:10,jb[a]:10:0,jbyr[a]:27:3);

begin

writeln(’——————’);

tot:=0;

tot:=tot+jbyr[a];

writeln(’Total
Pembayaran Rp.’,tot:10:3);

writeln(’——————’);

writeln;

write(’Anda Ingin Memasukkan Data
Selanjutnya [Y/T] ? ‘);readln(ask);

if (ask=’Y')or(ask=’y') then goto baru;

end;

end.

Contoh Array data karyawan

uses crt;

var

nama:array[1..10]of string[20];

alamat:array[1..20]of string[30] ;

jml_gaji:array[1..20]of real;

i,j:byte;

begin

clrscr;

write(’masukan jumlah Data :’);readln(j);

for i:=1 to j do

begin

writeln(’data ke- ‘,i);

write(’nama Karyawan :’);readln(nama[i]);

write(’masukan Alamat :’);readln(alamat[i]);

write(’jumlah Gaji
:’);readln(jml_gaji[i]);

end;

clrscr;

writeln(’ DATA GAJI KARYAWAN’);

writeln(’======================================’);

writeln(’No. Nama Karyawan Total Gaji ‘);

writeln(’=======================================’);

for i:=1 to j do

begin

writeln(i:1,nama[i]:15,jml_gaji[i]:15:0);

end;

writeln(’=======================================’);

readln

end.

Contoh Array Penjualan Susu

Uses crt;

Var i,j:integer;

merk:array[1..5] of string[10];

ukuran:array[1..5] of char;

jumbel,harsat:array[1..5] of integer;

harkot,pot,harsih:array[1..5] of real;

Begin

clrscr;

Write(’Banyaknya Pembelian : ‘);readln(i);

Writeln;

For j:=1 to i do

Begin

Writeln(’Data Ke-’,j);

Write(’Merk Susu : ‘);Readln(merk[j]);

Write(’Ukuran [K/S/B] :
‘);Readln(ukuran[j]);

Write(’Jumlah Beli :
‘);Readln(jumbel[j]);

If merk[j]=’Dancow’ then

Case ukuran[j] of

‘K’:harsat[j]:=6500;

‘S’:harsat[j]:=9500;

‘B’:harsat[j]:=13500;

End

Else If merk[j]=’Bendera’ then

Case ukuran[j] of

‘K’:harsat[j]:=8500;

‘S’:harsat[j]:=13500;

‘B’:harsat[j]:=18500;

End

Else

Case ukuran[j] of

‘K’:harsat[j]:=9500;

‘S’:harsat[j]:=16500;

‘B’:harsat[j]:=23500;

End;

If jumbel[j]>=15 then

Begin

harkot[j]:=jumbel[j]*harsat[j];

pot[j]:=0.1*harkot[j];

harsih[j]:=jumbel[j]*harsat[j]-pot[j];

End

Else if jumbel[j]>=30 then

Begin

harkot[j]:=jumbel[j]*harsat[j];

pot[j]:=0.2*harkot[j];

harsih[j]:=jumbel[j]*harsat[j]-pot[j];

End

Else

Begin

harkot[j]:=jumbel[j]*harsat[j];

pot[j]:=0*harkot[j];

harsih[j]:=jumbel[j]*harsat[j]-pot[j];

End;

End;

clrscr;

Gotoxy(1,1);Writeln(’===========================================================================’);

Gotoxy(2,2);Writeln(’No’);

Gotoxy(7,2);Writeln(’Merk’);

Gotoxy(16,2);Writeln(’Ukuran’);

Gotoxy(24,2);Writeln(’Jumlah’);

Gotoxy(32,2);Writeln(’Harga’);

Gotoxy(55,2);Writeln(’Potongan’);

Gotoxy(70,2);Writeln(’Total’);

Gotoxy(1,3);Writeln(’Urut’);

Gotoxy(7,3);Writeln(’Susu’);

Gotoxy(16,3);Writeln(’Kaleng’);

Gotoxy(25,3);Writeln(’Beli’);

Gotoxy(32,3);Writeln(’Satuan’);

Gotoxy(70,3);Writeln(’Bayar’);

Gotoxy(1,4);Writeln(’===========================================================================’);

For j:=1 to i do

Begin

Gotoxy(1,j+4);Writeln(j);

Gotoxy(7,j+4);Writeln(merk[j]);

Gotoxy(18,j+4);Writeln(ukuran[j]);

Gotoxy(26,j+4);Writeln(jumbel[j]);

Gotoxy(32,j+4);Writeln(’Rp’,harsat[j]);

Gotoxy(55,j+4);Writeln(’Rp ‘,pot[j]:0:2);

Gotoxy(67,j+4);Writeln(’Rp ‘,harsih[j]:5:2);

End;

Writeln(’===========================================================================’);

Readln;

End.

Contoh Array Toko serba ada

uses crt;

var

np:string[20];

jd,i:byte;

nb:array[1..50]of string;

jb,ttl,hrg:array[1..50]of real;

tot:real;

lagi:char;

label awal,akhir;

begin

awal:

clrscr;

writeln(’TOKO “SERBA ADA”‘);

writeln(’———’);

write(’masukan nama pembeli :’);readln(np);

write(’masukan jumlah data :’);readln(jd);

for i:=1 to jd do

begin

writeln(’data ke- ‘,i);

write(’nama barang :’);readln(nb[i]);

write(’jumlah beli :’);readln(jb[i]);

write(’harga :’);readln(hrg[i]);

end;

clrscr;

writeln(’ TOKO “SERBA
ADA”‘);

writeln(’ TABEL PENJUALAN
BARANG’);

writeln(’——————–’);

writeln(’No. Nama pembeli Nama barang
Jumlah harga total ‘);

writeln(’——————–’);

tot:=0;

for i:=1 to jd do

begin

ttl[i]:=hrg[i]*jb[i];

tot:=tot+ttl[i];

end;

for i:=1 to jd do

begin

writeln(i:1,np:10,nb[i]:13,jb[i]:12:0,hrg[i]:8:0,ttl[i]:10:0);

end;

writeln(’———————’);

writeln(’total bayar
= ‘,tot:3:0);

writeln(’———————’);

write(’Mau input data
lagi[Y/T]=’);readln(lagi);

if (lagi=’Y') or (lagi=’y') then

goto awal

else

goto akhir;

akhir:

readln;

end.

Contoh Array Bengkel

program bengkel;

uses crt;

var

i,b:byte;

nm,nmoli,jnsmbl:array [1..50]of string;

hrg,bonus,hrgsev,hrgoli,tot:array [1..50]of
real;

totb:real;

begin

clrscr;

writeln(’BENGKEL MAJU MUNDUR’);

writeln(’========================’);

write(’Masukan data: ‘);readln(b);

for i:=1 to b do

begin

writeln(’data ke- ‘,i);

writeln;

write(’nama pengunjung :’);readln(nm[i]);

write(’jenis kendaraan [1. mobil| 2.
motor]:’);readln(jnsmbl[i]);

write(’jenis oli [ 1. castrol| 2. pelumas
pertamina]:’);readln(nmoli[i]);

end;

writeln;

writeln(’ PROGRAM SERVIC BENGKEL
MAJU MUNDUR’);

writeln(’======================================================================’);

writeln(’NO NAMA PENGUNJUNG JENIS
KENDARAAN JENIS OLI TOTAL ‘);

writeln;

totb:=0;

for i:=1 to b do

begin

if jnsmbl[i]=’1? then

hrgsev[i]:=30000

else

hrgsev[i]:=20000;

if nmoli[i]=’2? then

hrgoli[i]:= 20000

else

hrgoli[i]:=30000;

tot[i]:=hrgsev[i]+hrgoli[i];

totb:=totb+tot[i];

end;

for i:=1 to b do

begin

writeln(i:1,nm[i]:9,hrgsev[i]:14:0,hrgoli[i]:18:0,tot[i]:19:0);

end;

writeln(’=================================================================’);

writeln(’total bayar
:’,totb:2:0);

readln;

end.

Contoh Array Kereta

uses crt;

var

jp,i:byte;

np,nk:array[1..50]of string;

fsl:array[1..50]of char;

jml,hrg,ttl:array[1..50]of real;

tot:real;

lagi:char;

label awal,akhir;

begin

awal:

clrscr;

writeln(’STASIUN “HARUS BERHENTI” ‘);

writeln(’================================’);

write(’masukan jumlah pemesan :’);readln(jp);

for i:=1 to jp do

begin

writeln(’Data ke- ‘,i);

write(’Nama pemesan :’);readln(np[i]);

write(’Nama kereta :’);readln(nk[i]);

writeln(’fasilitas [ 1.VVIP 3.BISNIS ');

write(' 2.VIP 4.EKONOMI ]
=’);readln(fsl[i]);

write(’jumlah pesan :’);readln(jml[i]);

end;

writeln(’ STASIUN “HARUS
BERHENTI” ‘);

writeln(’ PROGRAM PENJUALAN TIKET
KERETA API’);

writeln(’————————-’);

writeln(’NO. Nama Pemesan Nama Kereta
Fasilitas Jumlah Pesan harga total’);

tot:=0;

for i:=1 to jp do

begin

if fsl[i]=’1? then

hrg[i]:=200000

else

if fsl[i]=’2? then

hrg[i]:=180000

else

if fsl[i]=’3? then

hrg[i]:=140000

else

hrg[i]:=80000;

ttl[i]:=hrg[i]*jml[i];

tot:=tot+ttl[i];

end;

for i:=1 to jp do

begin

writeln(i:1,np[i]:10,nk[i]:12,fsl[i]:15,jml[i]:14:0,hrg[i]:12:0,ttl[i]:10:0);

end;

writeln(’————————-’);

writeln(’total pembayaran
=’,tot:9:0);

writeln(’————————-’);

write(’Mau input data lagi[Y/T]=’);readln(lagi);

if (lagi=’Y') or (lagi=’y') then

goto awal

else

goto akhir;

akhir:

readln;

end.