CODE TRI

Basis data / Database Basis data adalah kumpulan file-file yang saling berelasi, relasi tersebut ditunjukan dengan kunci dari tiap file yang ada. (Jogiyanto 2005 : 15). Basis data / database tersusun dari a. Tabel Tabel adalah sekumpulan obyek yang mempunyai karakteristik sama dan bisa dibedakan dari lainnya. Obyek dapat berupa barang, orang, tempat atau suatu kejadian. b. Kolom atau attribute Kolom atau attribute adalah deskripsi data yang bisa mengidentifikasikan entitas. Dalam tabel basis data, setiap kolom atau attribute menjelaskan beberapa bagian record data yang tersimpan didalam tabel. c. Baris atau Record Kumpulan dari field yang berhubungan satu sama lain. Dalam tabel basis data setiap baris atau record menjelaskan beberapa attribute data yang tersimpan. d. Kunci (key) Suatu superkey adalah suatu kolom yang dapat digunakan untuk mengidentifikasi suatu baris dalam tabel. Suatu key adalah suatu minimal superkey. Sebagai contoh dalam tabel pegawai menggunakan nopeg...

kali ini aku mencoba memmbuat gambar ERD Sistem Informasi Mini market semoga bermanfaat

kali ini aku mencoba membuat gambar erd sistem informasi perpustakaan sederhana  semoga bermanfaat trimakasih :-)

berikut ini contoh gambar diagram ER sistem informasi akademik sebuah kampus yang pernah aku buat

kali ini aku coba posting program ganjil & genap menggunakan array dalam Turbo Pascal 7.1. ea sebenarnya sih aku buat ini saat masih semester 1 di mata kuliah algoritma dan pemrograman hehehe.. program ini cukup sederhana langsung aja cekidot.... :D tulis kayak gini ya... uses crt; var a,b:array [1..100] of integer; x,p,q:integer; begin clrscr; writeln; writeln('Tri yanto '); writeln('Sistim Informasi'); writeln('2117100423'); writeln('--------------------'); writeln; write('masukkan angka 1 :'); readln(p); write('masukkan angka 2 :'); readln(q); writeln; writeln('genap  ganjil'); writeln; for x := p to q do begin if x mod 2=0 then a[x]:=x else b[x]:=x; if a[x]<>0 then writeln(a[x]:3); if b[x]<>0 then writeln(b[x]:10); end; readln; end. bener2 sederhana kan..? nah kalo udah jadi seperti ini

Kali ini aku akan memmberikan contoh membuat program penjualan sederhana menggunakan if dengan Turbo Pascal 7.1. dulu aku membuat program ini buat tugas kuliah pemrograman terstruktur. :) ga' perlu banyak basa-basi karna emang udah basi sich.. :D let's do!! pertama tulis programnya kayak gini ya...   uses crt; var napem,nb:string[15] ;     hrg,jb,jh,disc,tot:real; begin clrscr; writeln; writeln('----------------------------------------'); writeln(' DATA PENJUALAN BUAH SEGAR /KG'); writeln('----------------------------------------'); writeln; write('Nama Pembeli     =  '); readln(napem); writeln; write('Buah Yang Dibeli =  '); readln(nb); writeln('.............................'); if nb='jeruk' then hrg:=5000 else if nb='mangga' then hrg:=7000 else if nb='apel' then hrg:=9000 else if nb='duren' then hrg:=11000; begin end; writeln; write('Harga Buah       =','Rp...