PENULISAN RUMUS FAKTORIAL MENGGUNAKAN PROCEDURE & FUNCTION

program Project15;
{$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
      z,b,c,d,nminr:integer;
      f1,f2,f3:integer;
      x:real;
begin
  writeln ('NIM  : 114224008');
  writeln ('NAMA : AZIZUN NURRACHMAN');
  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.

Read More

PENULISAN PROCEDURE & FUNCTION PADA FAKTORIAL

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, tanda (!) disebut dengan notasi faktorial.

program Project14;
{$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 ('NIM  : 114224008');
  writeln ('NAMA : AZIZUN NURRACHMAN');
  writeln ('====================================');
  writeln ('CONTOH 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.

Read More

PENULISAN PROCEDURE & FUNCTION MODEL PROCEDURE BY REFERENCE

program Project13;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
    X,Y,Z:integer;
  procedure jumlah(var A,B,C:integer);
    begin
      C:= A+B;
    end;
begin
  writeln ('NIM  : 114224008');
  writeln ('NAMA : AZIZUN NURRACHMAN');
  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);
  jumlah(X,Y,Z);
  writeln('X + Y = ', Z);
  readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Read More

PENULISAN PROCEDURE & FUNCTION MODEL PROCEDURE BY VALUE (VARIABEL GLOBAL)

program Project12;
{$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 ('NIM  : 114224008');
  writeln ('NAMA : AZIZUN NURRACHMAN');
  writeln ('=====================================');
  writeln ('CONTOH PENULISAN PROCEDURE & FUNCTION');
  writeln ('       MODELPROCEDURE BY VALUE       ');
  writeln ('=====================================');
  writeln ('');
  write('Masukkan Nilai X  = '); readln(X);
  write('Masukkan Nilai Y  = '); readln(Y);
  jumlah(X,Y);
  readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Read More

PENULISAN PROCEDURE & FUNCTION BENTUK SEDERHANA (STANDART)

program Project11;
{$APPTYPE CONSOLE}
uses
  SysUtils;
procedure jumlah;
  var
    A,B,C:integer;
  begin
    writeln ('NIM  : 114224008');
    writeln ('NAMA : AZIZUN NURRACHMAN');
    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;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Read More

MATRIKS MENGGUNAKAN GAUSS JORDAN MODEL

Contoh 1:
program Project8;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
  matrik:array[1..10,1..10] of integer;
  x,y:integer;
begin
  writeln('NIM  : 114224008');
  writeln('NAMA : AZIZUN NURRACHMAN);
  writeln ('=============================');
  writeln ('TAMPILAN MATRIKS GAUSS JORDAN');
  writeln ('=============================');
  writeln ('');
  for x := 1 to 5 do
  begin
    for y := 1 to 5 do
      begin
        matrik[x,y]:=0;
        if x >= y then matrik[x,y]:=x;
        write(matrik[x,y]:4);
      end;
      writeln;
  end;
  readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Contoh 2:
program Project10;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
  matrik:array[1..10,1..10] of integer;
  x,y:integer;
begin
  writeln ('NIM  : 114224008);
  writeln ('NAMA : AZIZUN NURRACHMAN');
  writeln ('=============================');
  writeln ('TAMPILAN MATRIKS GAUSS JORDAN');
  writeln ('=============================');
  writeln ('');
  for x := 1 to 5 do
  begin
    for y := 1 to 5 do
      begin
        matrik[x,y]:=0;
        if x + y <= 6 then
          write('*':4)
        else
          write('1':4);
      end;
      writeln;
  end;
  readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Read More

PENULISAN CODING ARRAY DUA DIMENSI PADA MATRIKS

Matriks dalam matematika merupakan kumpulan bilangan, simbol atau ekspresi berbentuk persegi panjang yang disusun menurut baris dan kolom. Bilangan-bilangan yang terdapat pada suatu matriks disebut dengan elemen atau disebut juga anggota dari suatu matriks. Contoh matriks dengan 2 baris dan 3 kolom yaitu sebagai berikut :


Matriks banyak dimanfaatkan untuk menyelesaikan berbagai permasalahan matematika misalnya dalam menemukan solusi masalah persamaan linear, transformasi linear yakni bentuk umum dari fungsi linear contohnya rotasi dalam 3 dimensi. Matriks juga seperti variabel biasa, sehingga matrikspun dapat dimanipulasi misalnya dikalikan, dijumlah, dikurangkan, serta didekomposisikan. Menggunakan representasi matriks, perhitungan dapat dilakukan dengan lebih terstruktur.




Berikut Contoh Penerapan Matriks pada Script Delphi 7 :
program Project6;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
    A,B,C:ARRAY[1..10,1..10] OF INTEGER;
    X,Y,KOL,BAR:INTEGER;
begin
  writeln('NIM  : 114224008');
  writeln('NAMA : AZIZUN NURRACHMAN');
  writeln('===============================');
  writeln('CONTOH SCRIPT ARRAY DUA DIMENSI');
  writeln('===============================');
  writeln('                              ');
  write('Masukkan Jumlah Kolom A = ' ); readln(KOL);
  write('Masukkan Jumlah Baris A = ' ); readln(BAR);
  writeln;
  writeln('Masukkan Data Matrik A' );
    for X := 1 to BAR do
      BEGIN
        for Y := 1 to KOL do
          BEGIN
            write('Matrik A [',x,':',Y,'] = ');
            readln(A[X,Y]);
          END;
      END;
  writeln('============================');
  write('Masukkan Jumlah Kolom B = ' ); readln(KOL);
  write('Masukkan Jumlah Baris B = ' ); readln(BAR);
  writeln;
  writeln('Masukkan Data Matrik B' );
    for X := 1 to BAR do
      BEGIN
        for Y := 1 to KOL do
          BEGIN
            write('Matrik B [',x,':',Y,'] = ');
            readln(B[X,Y]);
          END;
      END;
  writeln('============================');
    for X := 1 to BAR do
      BEGIN
        for Y := 1 to KOL do
          BEGIN
            C[X,Y]:=A[X,Y]+B[X,Y];
          END;
      END;
  writeln('============================');
   for X := 1 to BAR do
      BEGIN
        for Y := 1 to KOL do
          BEGIN
            write(C[X,Y]:7);
          END;
          writeln;
      END;
      readln;
      { TODO -oUser -cConsole Main : Insert code here }
end.

Read More

PENULISAN CODING ARRAY SATU DIMENSI MENGGUNAKAN FUNGSI WHILE

Perulangan ini mirip dengan perulangan Repeat Until tetapi pengecekannya berada di awal sebelum melakukan proses yang berulang. Perulangan ini berjalan selama kondisi pengecekan bernilai true. Jika kondisi telah mempunyai nilai false maka perulangan tidak dilakukan lagi.
Bentuk umum dari While Do adalah seperti berikut :
           While kondisi do
            Begin
            Perintah;
            Perintah;
            End;
Berikut ini contoh script program pada delphi 7 :
program Project5;
{$APPTYPE CONSOLE}
uses
  SysUtils;
Var
  tot,i,jum:integer;
  rata:real;
  nilai:array[1..10]of integer;
begin
  writeln('NIM  : 114224008');
  writeln('NAMA : AZIZUN NURRACHMAN');
  writeln('=================================');
  writeln('CONTOH SCRIPT PENENTUAN RATA-RATA');
  writeln('=================================');
  writeln('                              ');
  i:=1;tot:=0;
  write('Masukkan Jumlah Data = ');
  readln(jum);
  while i<=jum do
begin
  write('Masukkan nilai ke ', i ,':');
  readln(nilai[i]);
  tot:=tot+nilai[i];
  i:=i+1;
end;
  rata:=tot/jum;
  writeln('');
  writeln('Rata-Rata nilai = ', rata:4:1);
  readln;
end.

Read More

PENULISAN DASAR CODING FOR…

Perulangan dengan statement for adalah perulangan yang digunakan untuk melakukan suatu proses dalam sebuah blok program. Proses perulangan For – To – Do dimulai dengan nilai terkecil ke besar.
       Perulangan ini berjalan dengan menggunakan suatu variabel counter yang akan bertambah secara otomatis ketika perintah yang diulang telah selesai dikerjakan.
       Bentuk umum dari perulangan ini adalah :
            For counter := nilai awal To Nilai akhir Do
            Begin
            Perintah;
            Perintah;
            End;
       Perulangan ini akan berulang selama nilai variabel counter masih lebih kecil atau sama dengan nilai akhir.
         
Contoh Script :
program Project4;
{$APPTYPE CONSOLE}
uses
  SysUtils;

Var
    i : integer;
  begin
    writeln('NIM  : 114224008');
    writeln('NAMA : AZIZUN NURRACHMAN');
    writeln('=================================');
    writeln('CONTOH PENULISAN DASAR CODING FOR');
    writeln('=================================');
    writeln('                              ');
    for I := 1 to 10 do
      writeln(i,'Yadika');
      writeln('Bangil');
      Readln;
  End.

Read More

PENULISAN CODING IF…ELSE…

Format :     If (Kondisi) then
                                   (Perintah)
                           Else
                                   (Perintah)
Contoh Script :
program Project3;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
    t:integer;
begin
  writeln('NIM  : 114224008');
  writeln('NAMA : AZIZUN NURRACHMAN');
  writeln('==============================');
  writeln('   PROGRAM SELEKSI KARYAWAN BARU   ');
  writeln('==============================');
  writeln('                              ');
  write('Masukkan Tinggi Badan Anda = '); readln(t);
   If t > 169 then
      begin
        writeln('Tinggi Anda ' , t, ' cm');
        writeln('Anda Layak Bekerja di Kantor Kami...!!!');
        writeln('SELAMAT ANDA DITERIMA...!!!');
        writeln('==============================');
      end
    else
      begin
        writeln('Tinggi Anda ' , t, ' cm');
        writeln('Maaf Tinggi Badan Anda Kurang Mencukupi Persyaratan Kami...!!!');
        writeln('MOHON MAAF ANDA TIDAK DITERIMA...!!!');
        writeln('==============================');
      end;
  readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Read More

PENULISAN CODING RUMUS MENGHITUNG LUAS & VOLUME

program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;

var
      r,t:integer;
      l_lingkaran,v_tabung,v_kerucut:real;
begin
  writeln('NAMA : AZIZUN NURRAHMAN');
  writeln('NIM  : 114224008');
  writeln('=================================');
  writeln('Program Menghitung Luas Lingkaran');
  writeln('=================================');
  write('Masukkan jari-jari = ');readln(r);
  l_lingkaran:=3.14*r;
  writeln('Luas Lingkaran     = ',l_lingkaran:5:2);
  writeln('---------------------------------');
  writeln('                                 ');
  writeln('================================');
  writeln('Program Menghitung Volume Tabung');
  writeln('================================');
  write('Masukkan jari-jari = ');readln(r);
  write('Masukkan tinggi    = ');readln(t);
  v_tabung:=3.14*r*r*t;
  writeln('Volume Tabung      = ',v_tabung:5:2);
  writeln('---------------------------------');
  writeln('                                 ');
  writeln('=================================');
  writeln('Program Menghitung Volume Kerucut');
  writeln('=================================');
  write('Masukkan jari-jari = ');readln(r);
  write('Masukkan tinggi    = ');readln(t);
  v_kerucut:=0.5*3.14*r*t*r;
  writeln('Volume Kerucut     = ',v_kerucut:6:2);
  readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Read More

PENULISAN CODING IF...ELSE...IF

Apabila ada perintah if dalam perintah If yang lain. Kondisi ini dibutuhkan pada saat kriteria yang akan dimasukkan lebih dari satu.

    Format :        if (Kondisi 1) then else
                         if (Kondisi 2) then else
                              (Proses 1)
                         else (Proses 2);

Contoh Script :

program Project1;

{$APPTYPE CONSOLE}

uses

  SysUtils;

Var

    Nilai:integer;

    Grade:string;

begin

  writeln('NAMA : AZIZUN NURRAHMAN');

  writeln('NIM  : 114224008');

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

  writeln('INPUT NILAI & GRADE SISWA');

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

  writeln('                         ');

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

    if Nilai >= 90 then g:= 'A' ELSE

    if Nilai >= 80 then g:= 'B' ELSE

    if Nilai >= 90 then g:= 'C' ELSE Grade:= 'D' ;

    writeln('GRADE = ' ,Grade);

    readln;

end.

Read More