Computer Science Blog

July 3, 2007

Ayo.. Buat Blog

Filed under: Activities

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 

June 26, 2007

Procedure Dalam Pascal

Filed under: Pascal Programming

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.

June 19, 2007

Tutorial Firebird-Part 4

Filed under: Database

Langkah-langkah (perintah-perintah) untuk :

  1. 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);

June 18, 2007

Goes To Merapi and Tamansari [16 Juni 2007]

Filed under: Activities

Selengkapnya di :

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

Program Menentukan Larik Terbesar

Filed under: Pascal Programming

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.






















Get free blog up and running in minutes with Blogsome
Theme designed by Minz Meyer