http://gudeg.blogsome.com Computer Science Blog Tue, 03 Jul 2007 04:45:46 +0000 http://backend.userland.com/rss092 en 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://gudeg.blogsome.com/2007/07/03/ayo-buat-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 ... http://gudeg.blogsome.com/2007/06/26/procedure-dalam-pascal/ 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” ... http://gudeg.blogsome.com/2007/06/19/tutorial-firebird-part-4/ Selengkapnya di :  http://www.flickr.com/photos/gudeg/ http://gudeg.blogsome.com/2007/06/18/goes-to-merapi-and-tamansari-16-juni-2007/ 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 ... http://gudeg.blogsome.com/2007/06/18/program-menentukan-larik-terbesar/ Program Menukar_dua_buah_larik; uses wincrt; type    Larik = Array[1..200] of Integer; var   A,B,C : Larik;   i,N, tmp, mak : byte; begin     writeln(’===========================================’);     writeln(’PROGRAM MENUKAR DUA BUAH LARIK’);     writeln(’===========================================’);      randomize;      writeln;     write(’Masukkan Jumlah INDEKS LARIK: ‘);readln(N);     writeln(’Data LARIK A’);     for i:=1 to  N do     begin           write(’A[’,i,’] = ‘);readln(A[i]);     end;      writeln;     writeln;     writeln(’Data LARIK B’);     for i:=1 ... http://gudeg.blogsome.com/2007/06/18/program-menukar-dua-buah-larik/ Program Menghitung_standar_deviasi;{SD = SQRT((Sum(Xi-rata)^2)/(N-1))}uses wincrt; var     Data : Array[1..200] of Integer;     N, i ,sum: integer;     rata, SD : real;     Sum2 : real; begin     writeln(’===========================================’);     writeln(’PROGRAM MENGHITUNG STANDAR DEVIASI’);     writeln(’===========================================’);      writeln;     write(’Masukkan Jumlah Data : ‘);readln(N);      {inisialisasi}     sum := 0;     sum2 := 0.0;      {input data secara random dan ditampilkan}     writeln(’Berikut ini Data acak ... http://gudeg.blogsome.com/2007/06/18/program-menghitung-standar-deviasi/ Program Menghitung_jumlah_digit_digit_bilangan; uses wincrt;var   x,sum,i,z : integer;   bil : string;begin     writeln(’====================================================’);     writeln(’Program menentukan jumlah digit2 dari bilangan bulat’);     writeln(’====================================================’);     writeln;     write(’Masukkan sebuah Bilangan : ‘); readln(Bil);      while length(bil)1 do     begin         sum := 0;         for i:=1 to length(bil) do         begin              val(bil[i],x,z);              sum := sum + x;         end;         str(sum,bil);     end;     writeln;     writeln(’Hasil jumlah ... http://gudeg.blogsome.com/2007/06/18/program-menghitung_jumlah_digit_digit_bilangan/ Program Polindrom_Bukan_Polindrom; uses wincrt; var klmt1, klmt2 : string; i : byte; begin writeln(’===========================================’); writeln(’Program Kata Polindrom atau Bukan Polindrom’); writeln(’===========================================’); writeln; ... http://gudeg.blogsome.com/2007/06/18/program-polindrom_bukan_polindrom/ uses wincrt;    var     L : array[1..100] of integer;     index,i,n,X : byte;     ketemu : boolean;                                    begin        write(’Masukkan jumlah data : ‘);        readln(n);         randomize;         writeln(’Data ke yang dimasukkan adalah ‘);         for i:=1 to N do        begin             L[i]:=random(100)+1;             write(L[i]:4);        end;         writeln;        write(’Mau cari Nilai berapa ? ‘);readln(X);         writeln;        ketemu := false;               ... http://gudeg.blogsome.com/2007/06/13/program-array-2/