Selasa, 03 Mei 2011

PERULANGAN(ARRAY)

uses wincrt;
var
 gol:char;gapok:longint;
     tunjangan,gatot:real;jb:char;
     label 1;
begin
          1:
clrscr;
writeln('menentukan gaji pegawai');
writeln('-----------------------');
write ('masukan golongan [A/B/C]:');readln(gol);
if( gol='A')or(gol='a') then
   begin
   gapok:=600000;
   tunjangan:=0;
   end
else if( gol='B')or(gol='b')  then
   begin
   gapok:=700000;
   tunjangan:=0.05*gapok;
   end
else
  begin
  gapok:=8000000;
  tunjangan:=0.1*gapok;
  end;

gatot:=gapok+tunjangan;
writeln('----------------------');
writeln('gaji pokok:Rp.',gapok);
writeln('tunjangan:Rp.',tunjangan:0:2);
writeln('gaji total:Rp.',gatot:0:2);
writeln('------------------------------');
write('ada lagi?(Y/T):');readln(jb);
if (jb='Y')or(jb='y') then
   goto 1;
writeln('----------------------------------');
writeln('by:Fince Tinus Waruwu');

readln;
end.

TUGAS PROGRAM

USES CRT ;
VAR PIL : BYTE;
PROCEDURE INPUT ;
BEGIN
WRITELN('BAGIAN INPUT');
END;
PROCEDURE OUTPUT;
BEGIN
WRITELN('BAGIAN OUTPUT');
END;
BEGIN
CLRSCR;
PIL :=3;
REPEAT ;
WRITELN('MENU');
WRITELN('1 INPUT DATA');
WRITELN('2 OUTPUT DATA');
WRITELN('KEMENU');
WRITELN('PILIH');
READLN(PIL);
CASE PIL OF
1: INPUT;
2: OUTPUT;
END;
READLN;
UNTIL (PIL =3)
END.

KODE :ARRAY[1..10] OF STRING[3] ;
JUMLAH :ARRAY[1..10] OF BYTE ;
HARGA :LONGINT ;
NAMA :STRING[20] ;
TOTAL :LONGINT ;
I :BYTE ;
BEGIN
FOR I :=1 TO 10 DO
BEGIN
CLRSCR ;
GOTOXY(30,5); WRITE('KODE :');READLN(KODE[I]) ;
GOTOXY(30,6); WRITE('JUMLAH :');READLN(JUMLAH[I]);
END ;
CLRSCR;
GOTOXY(10,3); WRITE('------------------------------------------');
GOTOXY(10,4); WRITE('NO KODE NAMA HARGA JUMLAH TOTAL');
GOTOXY(10,5); WRITE('------------------------------------------');
FOR I :=1 TO 10 DO
BEGIN
IF KODE[I]='001' THEN
BEGIN
NAMA:='TV';HARGA:=1000000 ;
END
ELSE IF KODE[I]='002' THEN
BEGIN
NAMA:='DVD'; HARGA:=550000 ;
END ;
GOTOXY(10,5+I); WRITE(I=2,KODE[I]);
GOTOXY(10,5+I); WRITE(NAMA);
GOTOXY(10,5+I); WRITE(HARGA:9, JUMLAH[I]:3);
TOTAL:=HARGA*JUMLAH[I] ;
GOTOXY(45,5+I); WRITE(TOTAL:8);
END;
GOTOXY(10,6+I); WRITE('---------------------------------------');
READLN ;
END.

Kamis, 07 April 2011

KONSEP BASIS DATA

A) Pengertian Basis Data
Basis = markas / gudang / tempat bersarang / tempat berkumpul.
Data = representasi dari fakta dunia yang mewakili suatu obyek (manusia, barang, peristiwa, keadaan dsb) yang direkam dalam bentuk angka, huruf, simbol, teks, gambar, bunyi atau kombinasinya.
Basis Data:
- Himpunan kelompok data (arsip) yang saling berhubungan yang diorganisasi sedemikian rupa agar kelak dapat dimanfaatkan kembali dengan cepat dan mudah
- Kumpulan data yang salng berhubungan yang disimpan secara bersama sedemikian rupa dan tanpa pengulangan (redundancy) yang tidak perlu, untuk memenuhi berbagai kebutuhan
- Kumpulan file/tabel/arsip yang saling berhubungan yang disimpan dalam media penyimpanan tertentu.
B) Tujuan Penggunaan Basis Data
a. Kecepatan dan Kemudahan (Speed)
Yakni agar pengguna basis data bisa:
menyimpan data
- melakukan perubahan/manipulasi terhadap data
- menampilkan kembali data dengan lebih cepat dan mudah dibandingkan dengan cara biasa (baik manual ataupun elektronis).
b. Efisiensi Ruang Penyimpanan (Space)
Dengan basis data kita mampu melakukan penekanan jumlah redundansi (pengulangan) data, baik dengan menerapkan sejumlah pengkodean atau dengan membuat relasi-relasi (dalam bentuk file) antara kelompok data yang saling berhubungan.
c. Keakuratan (Accuracy)
Agar data sesuai dengan aturan dan batasan tertentu dengan cara memanfaatkan pengkodean atau pembentukan relasi antar data bersama dengan penerapan aturan/batasan (constraint) tipe data, domain data, keunikan data dsb.
d. Ketersediaan (Availability)
Data yang sudah tidak dipakai/kadaluwarsa dipisahkan dari sistem database yang sedang aktif baik dengan cara penghapusan atau memindahkannya ke media backup untuk menghemat ruang penyimpanan. Di sisi lain, juga dilakukan pemanfaatan teknologi jaringan komputer agar data yang berada di suatu lokasi/cabang daat juga diakses oleh lokasi/cabang lainnya.
e. Kelengkapan (Completeness)
Agar data yang dikelola senantiasa lengkap baik relatif terhadap kebutuhan pemakai maupun terhadap waktu. Untuk itu tidak hanya dengan melakukan penambahan record-record data, tapi juga melakukan perubahan struktur pada basis data (jika perlu) baik menambah field pada tabel ataupun bahkan menambah tabel baru.
f. Keamanan (Security)
Walaupun tidak semua sistem basis data menerapkannya, keamanan dalam penggunaan basis data diperlakukan pada sistem yang besar dan serius. Dengan penerapan ini, setiap pengguna dibedakan hak aksesnya; yakni ditentukan obyek-obyek mana saja yang bisa diakses dan proses apa saja yang bisa dia dilakukan.
g. Kebersamaan (Sharability)
Agar data yang dikelola oleh sistem mendukung lingkungan multiuser (banyak pemakai) dengan menjaga / menghindari munculnya problem baru seperti inkonsistensi data (karena terjadi perubahan data yang dilakukan oleh beberapa user dalam waktu yang bersamaan) atau kondisi deadlock (karena ada banyak pemakai yang saling menunggu untuk menggunakan data).
C) Kriteria suatu sistem informasi suatu badan usaha/organisasi/perusahaan dikatakan telah menerapkan basis data dan contoh nyatanya :
Kriterianya dikatakan telah memanfaatkan Database jika data yang digunakan dalam proses sehari-hari telah memenuhi tujuan dari pembuatan database itu sendiri, yaitu cepat dalam pengaksesan, efisien tempat, akurat infomasinya, tersedia saat dibutuhkan, lengkap isinya, aman dan dapat digunakan untuk kepentingan bersama.
Contohnya : SIM Akademik ITS

D) Jenis-jenis objek yang ada dalam database :

Di dalam sebuah database, secara umum terdapat beberapa obyek berikut:
1. Table : terdiri dari field-field / kolom-kolom dengan tipe data tertentu dan baris-baris yang digunakan sebagai penyimpan data.
2. View : adalah tabel secara virtual/bayangan atau query tersimpan.
3. Stored Procedure : adalah prosedur yang tersimpan dalam database.
4. Trigger : adalah prosedur yang otomatis dieksekusi ketika ada event add, delete atau update pada obyek table.
5. Indeks : untuk mempercepat pemrosesan data.
6. Diagram : untuk menggambarkan hubungan antar table beserta aturan relasinya.
7. Rule : untuk memberikan batasan-batasan tertentu pada nilai data.