Rabu, Mei 23, 2018

Membuat Himpunan Anggota Program Pascal

Processing..

Misalkan kita mempunyai himpunan bilangan bulat dengan anggota: (2,3,4), maka cara penulisannya pada pemrograman pascal adalah:
var
a:set of 2..4;

begin
a:=[2,3,4];
end.

Jika kita ingin menampilkan anggota himpunan tersebut, maka sintaks program kita akan menjadi:
var
a:set of 2..4;
a1:integer;

begin
a:=[2,3,4];
for a1 in a do
begin
writeln(a1);
end;
readln;
end.
Bila program di samping dijalankan maka akan muncul:
2
3
4
Variabel a:set of 2..4 artinya, pada bagian badan program bisa didefinisikan himpunan a dengan anggota yang masih termasuk dalam range 2≤a≤4. Di sini pada badan program himpunan a didefinisikan mempunyai anggota (2,3,4). Ketiga anggota himpunan tersebut akan terdefinisi karena memang ketiga anggota himpunan tersebut masuk dalam range 2≤a≤4.

Contoh:
var
a:set of 2..4;
a1:integer;

begin
a:=[2,3];
for a1 in a do
begin
writeln(a1);
end;
readln;
end.


Pada bagian badan program anggota himpunan (2,3) akan terdefinisi karena memang masih termasuk dalam range 2≤a≤4 seperti yang didefinisikan pada bagian variabel.
var
a:set of 1..5;
a1:integer;

begin
a:=[2,3,4];
for a1 in a do
begin
writeln(a1);
end;
readln;
end.


Pada bagian badan program anggota himpunan (2,3,5) akan terdefinisi karena memang masih termasuk dalam range 1≤a≤5 seperti yang didefinisikan pada bagian variabel.
var
a:set of 1..6;
a1:integer;

begin
a:=[2,6];
for a1 in a do
begin
writeln(a1);
end;
readln;
end.


Pada bagian badan program anggota himpunan (1,6). Elemen 1 akan terdefinisi karena memang termasuk dalam range 1≤a≤5 seperti yang didefinisikn pada bagian variabel, sedangkan elemen 6 tidak akan terdefinisi karena tidak termasuk dalam range 1≤a≤5 seperti yang didefinisikan pada bagian variabel. Untuk membuat elemen 6 terdefinisi kita harus mengganti variabel a:set of 1..5 menjadi a:set of 1..6


Variabel a1 adalah variabel yang menunjukkan anggota himpunan yang mana nilai a1 tersebut selalu berubah sesuai dengan banyaknya perulangan, banyak perulangan otomatis sebanyak jumlah anggota himpunan.

Kita boleh mengganti variabel a:set of 2..4 menjadi a:set 1..5, karena anggota 2,3,4 masih termasuk dalam range 1 sd 5.

Selasa, Mei 15, 2018

Show Integer Randomly Pascal Programming

To show integer randomly using pascal programming language, we use a function which called "randomize" function, the randomize function is typed after begin:
begin
  randomize;
end.

For example we will show integer randomly from 0 to n, then we type syntax:
writeln(random(n+1));

So that our program syntax will be:
begin
  randomize;
  writeln(random(n+1));
end.

For example we change the program become:
begin
  randomize;
  writeln(random(2));
  readln
end.
It mean integer will be shown randomly are between o to 1, and will never show number 2, try to run the program.

For example we will show integer randomly from 0 to 10, then our program syntax will be:
begin
  randomize;
  writeln(random(11));
  readln
end.
It mean integer will be show randomly are between 0 to 10, and will never show number 11, try to run the program

See also the tutorial on video mode:


Hopefully useful...

Minggu, Desember 24, 2017

Menampilkan Bilangan Bulat Secara Acak Menggunakan Bahasa Pemrograman Pascal

Untuk menampilkan bilangan bulat secara acak menggunakan bahasa pemrograman pascal, kita menggunakan suatu fungsi yang disebut fungsi randomize, cara penulisan fungsi randomize tersebut adalah dengan mengetikkan randomize setelah begin:
begin
  randomize;
end.

Misalkan kita akan menampilkan bilangan bulat secara acak dari 0 sd n, kita menuliskan kode: writeln(random(n+1));

Sehingga sintaks program kita menjadi:
begin
  randomize;
  writeln(random(n+1));
end.

Misalkan kita ubah programnya menjadi:
begin
  randomize;
  writeln(random(2));
  readln
end.
Berarti bilangan bulat yang akan ditampilkan secara acak yaitu antara 0 sd 1, dan tidak akan pernah menampilkan bilangan 2, silakan dicoba untuk dijalankan programnya.

Misalkan kita akan menampilkan bilangan bulat secara acak dari 0 sd 10, maka sintaks program kita menjadi:
begin
  randomize;
  writeln(random(11));
  readln
end.
Berarti bilangan bulat yang akan ditampilkan secara acak yaitu antara 0 sd 10, dan tidak akan pernah menampilkan bilangan 11, silakan dicoba untuk dijalankan programnya.

Lihat juga tutorialnya dalam bentuk video:


Semoga bermanfaat, terimakasih...

Rabu, November 22, 2017

Using Lazarus For Pascal Programming

How to use lazarus software as pascal programming:
  1. Open lazarus software
  2. On menu, choose File => Project => Program => OK
  3. Body of program is located between begin and end.
    program Project1;

    {$mode objfpc}{$H+}

    uses
    {$IFDEF UNIX}{$IFDEF UseCThreads}
    cthreads,
    {$ENDIF}{$ENDIF}
    Classes
    { you can add units after this };

    begin
    end.

    Example:
    program Project1;

    {$mode objfpc}{$H+}

    uses
    {$IFDEF UNIX}{$IFDEF UseCThreads}
    cthreads,
    {$ENDIF}{$ENDIF}
    Classes
    { you can add units after this };

    begin
    writeln('Assalamu ',#39,'alaikum');
    readln
    end.

  4. Variable is located above of begin
    program Project1;

    {$mode objfpc}{$H+}

    uses
    {$IFDEF UNIX}{$IFDEF UseCThreads}
    cthreads,
    {$ENDIF}{$ENDIF}
    Classes
    { you can add units after this };

    Var
    a,b:integer;

    begin
    writeln('Assalamu ',#39,'alaikum');

    write('input a number! '); readln(a);
    write('input a number again! '); readln(b);
    writeln(a,' + ',b,' = ',a+b);
    readln
    end.

  5. To check syntx/script, on menu, choose Run => Compile, to show the result: Run => Run


That is how to use lazarus software as pascal programming, hopefully useful

Rabu, November 15, 2017

Cara Menggunakan Software Lazarus Untuk Pemrograman Pascal

Cara menggunakan software lazarus untuk pemrograman pascal:
  1. Buka software lazarus
  2. Pada menu, pilih File => Project => Program => OK
  3. Badan program terletak antara begin dengan end.
    program Project1;

    {$mode objfpc}{$H+}

    uses
    {$IFDEF UNIX}{$IFDEF UseCThreads}
    cthreads,
    {$ENDIF}{$ENDIF}
    Classes
    { you can add units after this };

    begin
    end.

    Contoh:
    program Project1;

    {$mode objfpc}{$H+}

    uses
    {$IFDEF UNIX}{$IFDEF UseCThreads}
    cthreads,
    {$ENDIF}{$ENDIF}
    Classes
    { you can add units after this };

    begin
    writeln('Assalamu ',#39,'alaikum');
    readln
    end.

  4. Variabel terletak di atas begin
    program Project1;

    {$mode objfpc}{$H+}

    uses
    {$IFDEF UNIX}{$IFDEF UseCThreads}
    cthreads,
    {$ENDIF}{$ENDIF}
    Classes
    { you can add units after this };

    Var
    a,b:integer;

    begin
    writeln('Assalamu ',#39,'alaikum');

    write('masukkan sebuah bilangan! '); readln(a);
    write('masukkan sebuah bilangan lagi! '); readln(b);
    writeln(a,' + ',b,' = ',a+b);
    readln
    end.

  5. Untuk memeriksa sintaks/sript, pada menu, pilih Run => Compile, untuk menampilkan hasilnya Run => Run


Itulah cara menggunakan software lazarus untuk bahasa pemrograman pascal, semoga bermanfaat

Selasa, Juni 20, 2017

Deactive hiberfil.sys file or reduce its size

File hiberfil.sys usually located in C:\. Hiberfil.sys is system file which use to active hibernate feature, so that even if PC is off or battery PC is unplugged, windows can continue before conditon. But Namun if state of hiberfil.sys file is active will spend hardisk because its size is very large, if we deactive that file so that its feature will not funtion then drive C size will be reduce (approximatelly 4 GB to 8 GB) and way to deactive it is:
  1. Open cmd as administrator. Find cmd file > Right click > Run as administrator
  2. Type code below:
    powercfg.exe -h off
    atau
    powercfg -h off
And to reactive again:
  1. Open cmd as administrator. Find cmd file > Right Click > Run as administrator
  2. Type code below::
    powercfg.exe -h on
    atau
    powercfg -h on

File hiberfill.sys also can be reduced without deactive it, the way is:
  1. Open cmd as administrator. Find cmd file > Right click > Run as administrator
  2. Type code below:
    powercfg.exe -h -size xx%
    Percent (%) is allowed 50≤xx≤100
Sourcer: Thanks to http://blog.finderonly.net

Sabtu, Juni 03, 2017

Menonaktifan file hiberfil.sys atau mengurangi ukurannya

File hiberfil.sys biasanya berada di C:\. Hiberfil.sys adalah file sistem yang digunakan untuk mengaktifkan fitur hibernate, sehingga meskipun komputer mati atau baterai laptop dicabut, windows tetap bisa melanjutkan keadaan sebelumnya. Namun jika status file hiberfil.sys aktif akan menyita banyak hardisk karena ukuran filenya sangat besar, jika kita menonaktifkan filenya sehingga fiturnya tidak lagi berfungsi maka ukuran drive C akan berkurang ukurannya sekitar (sekitar 4 GB sampai 8 GB) dan cara untuk menonaktifkannya adalah:
  1. Buka cmd sebagai administrator. Temukan file cmd > Klik kanan > Run as administrator
  2. Ketik kode berikut:
    powercfg.exe -h off
    atau
    powercfg -h off
Sementara untuk mengaktifkannya lagi:
  1. Buka cmd sebagai administrator. Temukan file cmd > Klik kanan > Run as administrator
  2. Ketik kode berikut:
    powercfg.exe -h on
    atau
    powercfg -h on

File hiberfill.sys juga bisa diperkecil tanpa mematikannya, caranya:
  1. Buka cmd sebagai administrator. Temukan file cmd > Klik kanan > Run as administrator
  2. Ketik kode berikut:
    powercfg.exe -h -size xx%
    Persen (%) yang diizinkan adalah 50≤xx≤100
Sumber: Terima kasih http://blog.finderonly.net