Latar Belakang

Posisi Geografis pulau Batam yang bersebelahan dengan negara Singapura menjadi kawasan ini berkembang dengan pesat dalam berbagai hal.Disamping menjadi kawasan industri dan pusat perdagangan, Batam juga sekarang telah dipenuhi dengan berbagai sarana dan jasa layanan terhadap kebutuhan masyarakat, termasuk pendidikan dari tingkat dasar hingga perguruan tinggi.
Sejalan dengan perkembangan jumlah populasi penduduk yang memerlukan sarana pendidikan tersebut, maka muhammad Raihan alias Achui pemilik sagulung Mall yang juga seorang pengusaha yang sukses diberbagai usaha bisnis di pulau Batam, beserta dengan beberapa pengusaha sukses lainnya sepakat untuk menanamkan inpestasi untuk mendirikan sebuah lembaga pendidikan yang diberinama Sekolah Globe National plus.
Sekolah Globe National plus yaitu sebuah lembaga pendidikan yang berkualitas bertaraf internasional dimana dalam sistem pembelajaran akan menggunakan dua bahasa pengantar yaitu bahasa Indonesia dan bahasa Inggris, kemudian akan ditambahkan lagi dengan beberapa mata pelajaran bahasa asing tambahan yaitu bahasa Mandarin, Jepang dan Jerman yang dapat dipilih menjadi salah satu mata pelajaran pilihan

Selasa, 05 Oktober 2010

Latihan membuat database

TABLE produk (kode_produk varchar(20) PRIMARY KEY,nama_produk varchar(45),
harga_jual integer);

TABLE pemasok (kode_pemasok varchar(20) PRIMARY KEY,
nama_pemasok varchar(20) NOT NULL,
alamat_pemasok varchar(45) NOT NULL,
CHECK(nama_pemasok!='' AND alamat_pemasok!='')
);

CREATE TABLE gudang (kode_gudang varchar(20) PRIMARY KEY,alamat_gudang
varchar(45));

TABLE nota_pembelian (
no_nota serial PRIMARY KEY,
kode_pemasok varchar(20) ,tanggal date );

TABLE rincian_nota_pembelian (
kode_produk varchar(20),no_nota integer,harga_satuan integer,jumlah integer)

TABLE stok_produk (
kode_produk varchar(20),kode_gudang varchar(20) ,jumlah_stok integer );

Selasa, 28 September 2010

Contoh looping pada pascal

uses wincrt;
{ program memasukan nilai sederhana dalam dua versi bahasa}
var nilai,x:integer;
mk:string;
begin
writeln (' SELAMAT DATANG DALAM PENGISIAN NILAI ');
writeln (' 1. dalam versi bahasa jawa');
writeln (' 2. dalam versi bahasa indonesia');
writeln (' 3. Keluar ');
repeat
write ('pilih versi = ');read (x);
if (x= 1) then
begin
write ('lebokno nilai nilai koe = '); readln (nilai);
if (nilai < 60)then
begin
writeln ('Nilai kowe elek banget. Kowe kudu rajin belajar yoooo');
end
else
begin
writeln ('Nilai kowe apik……..!!!! matur nuon');
end;
end;
if (x = 2) then
begin
write ('Masukan nilai kamu = '); readln (nilai);
if (nilai < 60)then
begin
writeln ('Nilai kamu jelek banget, rajinlah belajar yahhhhh!!!!');
end
else
begin
writeln ('nilai kamu bagus, terima kasih……');
end;
end;
if (x=3) then
begin
writeln ('Terima kasih, anda termasuk orang yang ANEHHHHHHHHH, KACIAN DEH LHOOOOO');
end;
until x>2
end.

Jumat, 24 September 2010

Latihan Program Pascal

Ayooo buat pake program pascal untuk latihan ini .... yah
a. 1 3 5 7 9 11 13
b. 4 7 10 13 16
c. 2 8 14 20 26 32
d. 1 2 3 5 8 13 24

Pake looping for-do while-do dan reapit until

yang bisa dapat hadiah tikus......:)

Minggu, 19 September 2010

MEMBUAT DATABASE




MODUL I

1. Buatlah database rental_mobil

2. Buat tabel data mobil (kode_mobil text(4)*, jenis_mobil text(15), merk_mobil text(15), tarif_sewa currency, Catatan memo)

3. Buat tabel data pelanggan (kode pelanggan text(4)*, nama_pelanggan text(20), kontak text(20), alamat text(50), kota text(15), kodepos number, telp text(10))

4. Buat tabel sewa_mobil (nomor_faktur text(10), pelanggan text(4), tgl_pinjam date, kode_mobil text(4), lama_pinjam number, uang_muka currency, catatan memo)

5. isikan data-data berikut pada tabel yang telah dibuat di atas :

MODUL I

Buat relasi antar tabel

• Tabel data mobil (kode_mobil) relasi ke tabel sewa_mobil (kode_mobil)

• Tabel date_pelanggan (kode_pelanggan) relasi ke tabel sewa_mobil (pelanggan)