Selasa, 25 November 2014

CONTOH PENULISAN SCRIPT DASAR PEMBUATAN PROGRAM SEDERHANA PADA BORLAND DELPHI 7


“BERIKUT CONTOH SCRIPT DASAR PEMBUATAN PROGRAM SEDERHANA PADA BORLAND DELPHI 7”



          Setelah sebelumnya saya menjelaskan tentang Delphi, kali ini saya akan menjelaskan tentang beberapa kondisi dalam Delphi. Oke langsung saja. Kondisi itu sendiri merupakan proses seleksi bahasa pemrograman Delphi dari alternatif jawaban yang ada. Dengan proses seleksi ini kita dapat menentukan apa yang akan dikerjakan kondisi sesuai dengan kondisi yang ditentukan dalam delphi.
Oke Langsung Saja, ikuti contoh script dibawah ini :

1).  STATEMENT 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
    n:integer;
    g:string;
begin
  writeln('NIM  : 114224002');
  writeln('NAMA : AHMAD SYARIFI HIDAYAT');
  writeln('=========================');
  writeln('PROGRAM INPUT NILAI SISWA');
  writeln('=========================');
  writeln('                         ');
  write('Masukkan Nilai Anda = '); readln(n);
    if n >= 90 then g:= 'A' ELSE
    if n >= 80 then g:= 'B' ELSE
    if n >= 90 then g:= 'C' ELSE g:= 'D' ;
    writeln('GRADE = ' ,g);
    readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.



2).  STATEMENT PENULISAN CODING RUMUS MENGHITUNG LUAS, VOLUME 
       PADA LINGKARAN KERUCUT DAN TABUNG 

program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;

var
      r,t:integer;
      l_lingkaran,v_tabung,v_kerucut:real;
begin
  writeln('NIM  : 114224002');
  writeln('NAMA : AHMAD SYARIFI HIDAYAT');
  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.



3).  STATEMENT 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  : 114224002');
  writeln('NAMA : AHMAD SYARIFI HIDAYAT');
  writeln('==============================');
  writeln('   PROGRAM SELEKSI SECURITY   ');
  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.
 
 

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

 


5).  STATEMENT 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  : 114224002');
  writeln('NAMA : AHMAD SYARIFI HIDAYAT');
  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.
 



6).  STATEMENT 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 :

1
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.



2
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  : 114224002');
  writeln('NAMA : AHMAD SYARIFI HIDAYAT');
  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.
 


7).  SCRIPT MATRIKS MENGGUNAKAN GAUSS JORDAN MODEL 1

program Project7;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
  matrik:array[1..10,1..10] of integer;
  x,y:integer;
begin
  writeln('NIM  : 114224002');
  writeln('NAMA : AHMAD SYARIFI HIDAYAT');
  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]:=1;
        write(matrik[x,y]:4);
      end;
      writeln;
  end;
  readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.
 


8).  SCRIPT MATRIKS MENGGUNAKAN GAUSS JORDAN MODEL 2

program Project8;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
  matrik:array[1..10,1..10] of integer;
  x,y:integer;
begin
  writeln('NIM  : 114224002');
  writeln('NAMA : AHMAD SYARIFI HIDAYAT');
  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.
 


9).  SCRIPT MATRIKS MENGGUNAKAN GAUSS JORDAN MODEL 3         

program Project9;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
  matrik:array[1..10,1..10] of integer;
  x,y:integer;
begin
  writeln ('NIM  : 114224002');
  writeln ('NAMA : AHMAD SYARIFI HIDAYAT');
  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 matrik[x,y]:=1;
        write(matrik[x,y]:4);
      end;
      writeln;
  end;
  readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.



10).  SCRIPT MATRIKS MENGGUNAKAN GAUSS JORDAN MODEL 4       

program Project10;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
  matrik:array[1..10,1..10] of integer;
  x,y:integer;
begin
  writeln ('NIM  : 114224002');
  writeln ('NAMA : AHMAD SYARIFI HIDAYAT');
  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.


11).  SCRIPT PENULISAN PROCEDURE & FUNCTION BENTUK SEDERHANA (STANDART)

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



12).  SCRIPT 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  : 114224002');
  writeln ('NAMA : AHMAD SYARIFI HIDAYAT');
  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.



13).  SCRIPT 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  : 114224002');
  writeln ('NAMA : AHMAD SYARIFI HIDAYAT');
  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.




14).  SCRIPT 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.


Lihat Contoh Script Programnya dibawah 
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  : 114224002');
  writeln ('NAMA : AHMAD SYARIFI HIDAYAT');
  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.

 

15).  SCRIPT 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  : 114224002');
  writeln ('NAMA : AHMAD SYARIFI HIDAYAT');
  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.


Selamat Mencoba, Sampai Jumpa Pada Posting Berikutnya :)....
Diposting oleh di

3 komentar:

Langganan: Posting Komentar (Atom)