Computer Science Blog

Ayo.. Buat Blog

Administrator — Tue, 03 Jul 2007 04:45:46 +0000

Demam untuk memiliki blog semakin lama semakin menjadi-jadi. Seorang teman saya bahkan menghabiskan waktunya berjam-jam di depan meja internet hanya untuk mengisi blognya.. Sungguh suatu tragedi.. (heheheh).

Saat ini, terdapat banyak situs yang menyediakan tempat kepada pengguna untuk membuat blog secara gratis. Lihat saja blog ini yang dibangun dengan menggunakan domain http://blogsome.com. Masih ada situs yang lain, seperti http://blogspot.com, http://blog.com, dan lain-lain..

Proses pendaftaran juga tidak terlalu rumit, hanya membutuhkan beberapa identitas pemilik blog. Sudah saatnya Anda juga memulai kegiatan ini, siapa sangka suatu saat tulisan Anda akan digunakan oleh orang lain atau bahkan Anda sendiri.

SELAMAT MENCOBA

Procedure Dalam Pascal

Administrator — Tue, 26 Jun 2007 03:09:46 +0000

Dalam pascal kita mengenal yang namanya procedure, procedur yang dimaksud dalam pascal menurut Dwi Sanjaya dalam buku struktur data diplanet pascal, procedure berguna untuk mengumpulkan statment-statment yang dapat dijalankan menjadi satu dalam suatu block dan untuk menjalankannya kembali hanya dengan menuliskan nama procedure yang menampungnya. jadi kita ga perlu banyak buat listing hanya tinggal panggil nama procedurenya saja saat kita membutuhkannya.

Berikut contoh latihan1 program hitung_tanpa_parameter; ———-> parameter = nilai
var
p,q,x,y:byte;

procedure tambahkali;
begin
p:=x+y;
q:=x*y;
writeln(’X+Y=’,p);
writeln(’X*Y=’,q);
end;
begin
write(’X=’);readln(x);
write(’Y=’);readln(y);
tambahkali;
readln;
end.

Latihan 2 program hitung_dengan_parameter;
var
p,q,x,y:byte;

procedure tambahkali(a,b:byte);
begin
p:=a+b;
q:=a*b;
writeln(’X+Y=’,p);
writeln(’X*Y=’,q);
end;
begin
write(’X=’);readln(x);
write(’Y=’);readln(y);
tambahkali(x,y);
readln;
end.

Tutorial Firebird-Part 4

Administrator — Tue, 19 Jun 2007 05:23:50 +0000

Langkah-langkah (perintah-perintah) untuk :

Menambahkan user pada firebird.

Untuk menambakan user pada Firebird, pertama-tama kita harus login dengan username “sysdba” karena hanya SYSDBA yang bisa mengakses GSEC. Perintahnya adalah sebagai berikut :

C:\Program Files\Firebird\Firebird_2_0\bin>gsec -database "c:\program files\firebird\firebird_2_0\security2.fdb" -user sysdba -pass masterkey

Langkah berikutnya adalah menambakan user baru, dengan id “yusran”, password “fajar”, fname “yus” dan lname “zebua”. Perintahnya adalah sebagai berikut :

GSEC> add yusran -pw fajar -fname yus -lname zebua

2. Membuat database “d:/pbda/latihan1.fdb” :

Pertama-tama, pastikan bahwa pada drive d:/ sudah ada folder dengan nama pbda

SQL> create database "d:/pbda/latihan1.fdb" page_size 8192

CON> user ’sysdba’ password ‘masterkey’;

3. Membuat tabel-tabel pada database "d:/pbda/latihan1.fdb"

a. Pertama-tama, kita harus terhubung dengan database :

SQL> connect "d:/pbda/latihan1.fdb"
CON> user ’sysdba’ password ‘masterkey’;
Database: "d:/pbda/latihan1.fdb", User: sysdba

b. Berikutnya, kita akan merancang tabel-tabel sebagai berikut :

SQL> create table siswa (nis char(10) not null, nama varchar(50) not null, sex c

har(1), tmplahir varchar(50), tgllahir date, alamat varchar(200), primary key(ni

s));

SQL> create table mapel (kode char(10) not null, nama varchar(50) not null, prim

ary key(kode));

SQL> create table pelajaran (kodepel char(10) not null,kode char(10), tahun date

, semester integer, kelas integer, primary key(kodepel), foreign key(kode) refer

ences mapel);

SQL> create table nilai (nis char(10) not null, kodepel char(10) not null, nilai

integer, foreign key(nis) references siswa, foreign key(kodepel) references pel

ajaran);

Goes To Merapi and Tamansari [16 Juni 2007]

Administrator — Mon, 18 Jun 2007 14:20:45 +0000

Selengkapnya di :

http://www.flickr.com/photos/gudeg/

Program Menentukan Larik Terbesar

Administrator — Mon, 18 Jun 2007 13:16:10 +0000

Program Menentukan_larik_terbesar;

uses wincrt;

Type
Larik = Array[1..20] of integer;

var
    N , i : integer;
    A, B : Larik;
    BesarA, BesarB : byte;

begin
     write(’Tentukan panjang Indeks Array 1 dimensi : ‘);readln(n);
     writeln;
     {inisialisasi}
     BesarA := 0;
     BesarB := 0;
     randomize;

     {buat data acak dan disimpan dalam Larik A}
     writeln(’Larik A’);
     for i:=1 to N do
     begin
          write(’A[’,i,’] = ‘);readln(A[i]);
     end;
     {buat data acak dan disimpan dalam Larik B}
     writeln;
     writeln(’Larik B’);
     for i:=1 to N do
     begin
          write(’B[’,i,’] = ‘);readln(B[i]);
     end;

     {mulai perbandingkan kedua Array}
     for i:=1 to N do
          if A[i]>B[i] then
               inc(BesarA)
          else
               inc(besarB);

     writeln; writeln;
     writeln(’PERBANDINGAN 2 BUAH LARIK’);
     writeln(’Hasil : ‘);
     if BesarA > BesarB then
       begin
        writeln(’Larik A lebih besar dari Larik B’);
        writeln(’Jumlah indeks yang besar ada ‘,besarA,’ buah’);
       end
     else if BesarA = BesarB then
       begin
        writeln(’Larik A sama besar dengan Larik B’);
        writeln(’Jumlah indeks nya masing2 ada ‘,besarA,’ buah’);
       end
     else
       begin
        writeln(’Larik B lebih besar dari Larik A’);
        writeln(’Jumlah indeks yang besar ada ‘,besarB,’ buah’);
       end;

readkey;
donewincrt;
end.