Benny's Blog

Network Enginering

Selasa, 06 Januari 2015

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  : 114224010');
  writeln ('NAMA : BENNY KURNIAWAN');
  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.

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  : 114224010');
  writeln ('NAMA : BENNY KURNIAWAN');
  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.

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  : 114224010');
  writeln ('NAMA : BENNY KURNIAWAN');
  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.

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  : 114224010');
  writeln ('NAMA : BENNY KURNIAWAN');
  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.


PENULISAN PROCEDURE & FUNCTION BENTUK SEDERHANA (STANDART)

program Project11;
{$APPTYPE CONSOLE}
uses
  SysUtils;
procedure jumlah;
  var
    A,B,C:integer;
  begin
    writeln ('NIM  : 114224010');
    writeln ('NAMA : BENNY KURNIAWAN');
    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.

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  : 114224010');
  writeln('NAMA : BENNY KURNIAWAN');
  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  : 114224010');
  writeln ('NAMA : BENNY KURNIAWAN');
  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.

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  : 114224010');
  writeln('NAMA : BENNY KURNIAWAN');
  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.

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  : 114224010');
  writeln('NAMA : BENNY KURNIAWAN');
  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.

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  : 114224010');
    writeln('NAMA : BENNY KURNIAWAN');
    writeln('=================================');
    writeln('CONTOH PENULISAN DASAR CODING FOR');
    writeln('=================================');
    writeln('                              ');
    for I := 1 to 10 do
      writeln(i,'Yadika');
      writeln('Bangil');
      Readln;
  End.

PENULISAN CODING IF…ELSE…

 Merupakan perintah yang akan dijalankan pada then jika kondisi pada If terpenuhi, sedangkan pada Else akan dilakukan jika kondisi tidak terpenuhi. Biasanya perintah ini untuk kondisi ganda.



Format :     If (Kondisi) then
                                   (Perintah)
                           Else
                                   (Perintah)
Contoh Script :
program Project3;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
    t:integer;
begin
  writeln('NIM  : 114224010');
  writeln('NAMA : BENNY KURNIAWAN');
  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.

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 : BENNY KURNIAWAN');
  writeln('NIM  : 114224010');
  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.

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 : BENNY KURNIAWAN');

  writeln('NIM  : 114224010');

  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.



Langganan: Postingan (Atom)

Categories

Total Tayang

Jam

Kalender Islam

Diberdayakan oleh Blogger.

Popular Posts

Pengikut

Copyright © Benny's Blog | Powered by Blogger
Blogger Templates