MOD dan DIV

MOD dan DIV

Mod atau Modulus adalah operator aritmatika pada Delphi untuk melakukan operasi aritmatika menentukan sisa hasil bagi.

Div adalah operator aritmatika pada Delphi untuk melakukan operasi aritmatika yaitu operasi pembagian pada bilangan bulat. Sedangkan pada bilangan pecahan menggunakan operator ( / ).

atau lebih ringkasnya MOD=sisa hasil bagi dan DIV=hasil bagi.

dan hasil progamnya seperti gambar dibawah ini 

Dan script coding nya seperti ini :

program mod_div;

{$APPTYPE CONSOLE}

uses

  SysUtils;

var

  a,b,c,d:integer;

begin

  writeln('Nama   : Maisirotul rizka');

  writeln('NIM    : 114224022');

  writeln;

  writeln(' =====================================');

  writeln(' MOD (Sisa Pembagian) & DIV (Hasil Pembagian');

  writeln(' =====================================');

  writeln;

  write('A = ');readln(a);

  write('B = ');readln(b);

  c:=a mod b ;

  d:=a div b ;

  writeln('A MOD B = ',c);

  writeln('A DIV B = ',d);

  writeln;

  readln;

end.

Selamat mencoba ^^

Lanjut Gays »

PROGAM FAKTORIAL

PROGAM FAKTORIAL

FAKTORIAL 

Dalam matematika, faktorial dari bilangan asli n adalah hasil perkalian antara bilangan bulat positif yang kurang dari atau sama dengan n. Faktorial ditulis sebagai n! dan disebut n faktorial.

Sebagai contoh, 7! adalah bernilai 7×6×5×4×3×2×1 = 5040. 

Dan kali ini kita akan mencoba mengerjakan dalam sebuah progam daari delphi7, dan progam faktorial ini ada 2 macam, yaitu :

1.  model pertama seperti gambar dibawah ini

    2. Dan gambar ini model yang kedua

dan bisa di coba dengan script nya di bawah ini :

1. model 1

program faktorial_nyu;

{$APPTYPE CONSOLE}

uses

  SysUtils;

procedure faktorial(var fak, hasil:integer);

    var

      a:integer;

    begin

      hasil:=1;

      for a := 2 to fak do

      hasil:=hasil*a;

    end;

    var

      b,c:integer;

begin

  writeln ('Nama : Maisirotul Rizka');

  writeln ('NIM  : 114224022');

  writeln;

  writeln ('  =================================');

  writeln ('    Penulisan Procedure Faktorial');

  writeln ('  =================================');

  writeln ('');

  write('Berapa Faktorial ? '); readln(b);

  faktorial(b,c);

  writeln(b ,' Faktorial = ', c);

  readln;

  { TODO -oUser -cConsole Main : Insert code here }

end.

2. Model 2

program faktoriiaalllll;

{$APPTYPE CONSOLE}

uses

  SysUtils;

procedure faktorial(var fak, hasil:integer);

    var

      a:integer;

    begin

      hasil:=1;

      for a := 2 to fak do

      hasil:=hasil*a;

    end;

    var

      b,c,nminr:integer;

      f1,f2,f3:integer;

      x:real;

begin

  writeln;

  writeln('Nama  : Maisirotul Rizka');

  writeln('Nim   : 114224022');

  writeln;

  writeln ('================================');

  writeln ('CONTOH PENULISAN RUMUS FAKTORIAL');

  writeln ('================================');

  writeln ('');

  write('Masukkan N = '); readln(b);

  write('Masukkan R = '); readln(c);

  faktorial(b,f1);

  nminr:=b-c;

  faktorial(nminr,f2);

  faktorial(c,f3);

  x:=f1/f2*f3;

  writeln('Hasil      = ', x:3:2);

  readln;

  { TODO -oUser -cConsole Main : Insert code here }

end.

Silahkan dan selamat mencoba gays ^^

Lanjut Gays »

EKSPRESI MATEMATIKA

EKSPRESI MATEMATIKA

     Ekspresi matematika adalah perintah untuk mengekspresikan rumus-rumus matematika ke dalam bahasa Delphi7. Misalnya :

²   (bilangan pangkat) Menjadi SQR

√  Menjadi SQRT

Sec x  Menjadi 1/Cos (x)

Tan x  Menjadi Sin (x)/Cos (x)

dll.

Dan hasilnya seperti ini : 

Script nya :

program ekspresi_mtk;

{$APPTYPE CONSOLE}

uses

  SysUtils;

var

  x:real;a,b,c:integer;

begin

  writeln('Nama   : Maisirotul Rizka');

  writeln('NIM    : 114224022');

  writeln;

  writeln('    ==========================================');

  writeln('    Ekspresi Matematika Kedalam Bahasa Delphi7');

  writeln('    ==========================================');

  writeln;

  writeln('x = (-b+SQRT(SQR(b)-4*a*c))/2*a');writeln;

  write('Masukkan a = ');readln(a);

  write('Masukkan b = ');readln(b);

  write('Masukkan c = ');readln(c);

  writeln;

  x:=(-b+SQRT(SQR(b)-4*a*c))/2*a;

  writeln('x = ',x:5:2);

  writeln;

  readln;

end.

Selamat mencoba gays ^^

Lanjut Gays »

Procedure & function (Procedure By Reference)

Procedure & function (Procedure By Reference)

Contoh dari Procedure By Reference seperti gambar dibawah ini

Script :

program pf_byReference;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
    X,Y,Z:integer;
  procedure jumlah(var A,B,C:integer);
    begin
      C:= A+B;
    end;
begin
  writeln;
  writeln('Nama : Maisirotul Rizka');
  writeln('Nim  : 114224022');
  writeln('--------------------------');
  writeln;
  writeln ('=====================================');
  writeln ('CONTOH PENULISAN PROCEDURE & FUNCTION');
  writeln ('    MODEL PROCEDURE BY REFERENCE     ');
  writeln ('=====================================');
  writeln ('');
  write('Masukkan Nilai X = ');readln(X);
  write('Masukkan Nilai Y = ');readln(Y);
  writeln;
  jumlah(X,Y,Z);
  writeln('X + Y = ', Z);
  readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Selamat mencoba ^^

Lanjut Gays »

Procedure & function (Procedure By Value)

Procedure & function (Procedure By Value)

langsung saja liat contoh dari Procedure By Value , seperti gambar dibawah ini

Script :

program Pf_byValue;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
    X,Y:integer;
  procedure jumlah(A,B:integer) ;
    var
      C:integer;
    begin
      C:= A+B;
      writeln('Hasil Penjumlahan = ',C);
    end;
begin
  writeln;
  writeln('Nama : Maisirotul Rizka');
  writeln('Nim  : 114224022');
  writeln('--------------------------');
  writeln;
  writeln ('=====================================');
  writeln ('CONTOH PENULISAN PROCEDURE & FUNCTION');
  writeln ('       MODELPROCEDURE BY VALUE       ');
  writeln ('=====================================');
  writeln ('');
  write('Masukkan Nilai X  = '); readln(X);
  write('Masukkan Nilai Y  = '); readln(Y);
  writeln;
  jumlah(X,Y);
  readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

selamat mencoba ^^

Lanjut Gays »

Procedure & Function (Bentuk Sederhana)

Procedure & Function (Bentuk Sederhana)

      Sudah di jelaskan di posting kemarin tentang Procedure & Function, disini kita mempuat sebuah progam dari Procedure & Function dalam bentuk sederhana. dan langsung saja liat gambar dibawah ini.

seperti itulah contoh dari Procedure & Function dalam bentuk sederhana, dan sekarang saya akan menulis script untuk membuat sebuah progam itu.

script :

program PF_sederhana;

{$APPTYPE CONSOLE}

uses

  SysUtils;

procedure jumlah;

  var

    A,B,C:integer;

  begin

  writeln;

  writeln('Nama : Maisirotul Rizka');

  writeln('Nim  : 114224022');

  writeln('--------------------------');;

  writeln;

    writeln ('=====================================');

    writeln ('CONTOH PENULISAN PROCEDURE & FUNCTION');

    writeln ('          BENTUK SEDERHANA           ');

    writeln ('=====================================');

    writeln ('');

    write('Masukkan Nilai A = '); readln (A);

    write('Masukkan Nilai B = '); readln (B);

    C:= A+B ;

    write('A + B = ',C);

  end;

begin

  jumlah;

  readln;

end.

Sekian .. selamat mencoba ^^

Lanjut Gays »

PROCEDURE & FUNCTION

PROCEDURE & FUNCTION

 - Procedure yaitu sub program yang digunakan untuk melakukan proses tertentu dan tidak       mengembalikan nilai, bisa disimpan dalam database sebagai object skema, sehingga suatu procedure  bisa digunakan berulangkali tanpa harus melakukan parsing dan compile ulang.

- Function yaitu Sebuah kumpulan Statement yang akan mengembalikan sebuah nilai balik pada pemanggilnya. Nilai yang dihasilkan Function harus ditampung kedalam sebuah variabel.

• Perbedaan function dan procedure, yaitu :

       Perbedaan antara function dan procedure adalah : kalau function dia akan mengembalikan suatu nilai pada pemanggilnya, sedangkan kalau procedure dia tidak akan mengembalikan nilai apapun pada fungsi pemanggilnya.

• Procedure dan Function ini dibagi ada 3 macam , yaitu :

1. Bentuk Sederhana
2. Procedure By Value
3. Procedure By Reference

Lanjut Gays »