Computer Science Blog

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.

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