LetsGoBlog: 2014

Sabtu, 27 Desember 2014

Delphi : Procedure dan Function

Nama : ANDI KHOIRUDIN

Kelas : I-B SMT 1
Jurusan : Teknik Informatika
STIMIK YADIKA BANGIL 2014

Assamualaikum Wr. Wb.

Pada kesempatan yang lalu saya membahas program matriks berpola di Delphi dan pada kesempatan kali ini saya akan membahas Procedure dan Function. Namun saya aka menjelaskan secara singkat tentang procedure dan function terlebih dahulu. Disini akan menjelaskan tentang beberapa contoh program menggunakan procedure

1. Program Tambah menggunakan Produce by Value

2. Program Tambah menggunakan Produce by Reference
3. Program Tambah menggunakan Produce Standrat

Monggo langsung disimak...

Function (fungsi) dan Procedure adalah suatu subrutin yang biasa dipakai sebagai alat untuk melakukan tugas tertentu dan mendapatkan nilai tertentu.

Procedure

Prosedur adalah suatu program terpisah dan berdiri dalam suatu blok program dan befungsi sebagai sebuah sub program (program bagian). Penulisan prosedur diawali dengan kata Procedure pada bagian deklarasi program dan cukup menuliskan nama prosedur yang dibuat pada bagian Implementasi.

Alasan penggunaan prosedur :

1. Digunakan untuk penggalan program yang akan digunakan secara berulang – ulang dalam suatu proses program.

2. Digunakan untuk memecah – mecah program menjadi sebuah modul program, sehingga listing program menjadi lebih sederhana.

Syarat penulisan nama procedure :

1. Harus diawali dengan karakter.

2. Untuk nama prosedur dengan menggunakan dua kata atau lebih penulisannya tidak boleh menggunakan spasi, harus digabung atau dihubungkan dengan underscore ( _ )

3. Tidak mengenal tanda baca.

Contoh 1. Program Tambah menggunakan Produce by Value

Screenshotnya :

Script Programnya :

program Pro_by_value;

{$APPTYPE CONSOLE}

uses
SysUtils;

procedure tambah (a,b:integer);
var
c:integer;

begin
c:=a+b;
writeln('Hasil Penjumlahan = ',c);
end;

var
x,y:integer;
begin
writeln ('Nama : Andi Khoirudin');
writeln ('Kelas/NIM : 1B/114224042');
writeln;
writeln('>>> Penggunaan Procedure by Value <<<');
writeln;
write('Nilai X = '); Readln(x);
write('Nilai Y = '); Readln(y);
tambah(x,y);
writeln;
writeln;
writeln;
writeln('>>>-----> Visit : http://indonetizensia.blogspot.com/ <-----<<<');
readln;
end.

Contoh 2. Program Tambah menggunakan Produce by Reference
Screenshotnya :

Script Programnya :

program Pro_by_reference;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
x,y,z:integer;
procedure tambah(var a,b,c:integer);

begin
c:=a+b;
end;

begin
writeln ('Nama : Andi Khoirudin');
writeln ('Kelas/NIM : 1B/114224042');
writeln;
writeln('>>> Penggunaan Procedure by Reference <<<');
writeln;
write('Nilai X = '); Readln(x);
write('Ni1ai Y = '); Readln(y);
tambah(x,y,z);
writeln('Hasil Penjumlahan X + Y = ',z);
writeln;
writeln;
writeln;
writeln('>>>-----> Visit : http://indonetizensia.blogspot.com/ <-----<<<');
readln;
end.

Contoh 3. Program Tambah menggunakan Produce Standrat
Screenshotnya :

Script Programnya :

program Pro_by_standart;

{$APPTYPE CONSOLE}

uses
SysUtils;

procedure tambah;
var
a,b,c:integer;
begin
writeln ('Nama : Andi Khoirudin');
writeln ('Kelas/NIM : 1B/114224042');
writeln;
writeln('>>> Penggunaan Procedure by Standart <<<');
writeln;
write('Nilai A = '); readln(a);
write('Nilai B = '); readln(b);
c:=a+b;
writeln('Hasil Penjumlahan A + B = ',c);
end;

begin
tambah;
writeln;
writeln;
writeln;
writeln('>>>-----> Visit : http://indonetizensia.blogspot.com/ <-----<<<');
readln;
end.

Silahkan dikembangkan sendiri programnya. Semoga bermanfaat & Selamat Mencoba
Kurang lebihnya mohon maaf dan terima kasih sudah berkunjung

Wassalamualaikum Wr. Wb

Baca Selengkapnya »

Delphi : Program Matriks Berpola

Nama : ANDI KHOIRUDIN
Kelas : I-B SMT 1
Jurusan : Teknik Informatika
STIMIK YADIKA BANGIL 2014

Assamualaikum Wr. Wb.

Pada kesempatan yang lalu saya membahas pemanfaatan Array dalam program matriks di Delphi dan pada kesempatan kali ini saya akan membahas pemanfaatan Array dan pemanfaatan looping for to do dalam program Matriks berpola tertentu. Untuk yang masih belum tahu saya sebelumnya sudah membahasnya yaitu penggunaan array dan looping for to do. Saya akan memberi 5 contoh program matriks berpola ,banyak memang tapi memang segitu tugasnya hehehe

1. Matriks berpola Slash(garis miring) dengan angka 1

2. Matriks berpola BackSlash(garis miring terbalik) dengan angka 1

3. Matriks berpola berbentuk segitiga dengan angka 1-5

4. Matriks berpola Plus(tambah) dengan angka 1

5. Matriks berpola berbentuk segitiga dengan simbol *

Contoh 1. Matriks berpola Slash(garis miring) dengan angka 1

Screenshotnya :

Script programnya :

program matriks_pola_slash;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
mat : array[1..10,1..10]of integer;
x,y :integer ;

begin
writeln ('Nama : Andi Khoirudin');
writeln ('Kelas/NIM : 1B/114224042');
writeln;
writeln('>>> Menampilkan Matrik berpola Slash dengan angka "1" <<<');
writeln;
for x:=1 to 5 do
begin
for y:= 1 to 5 do
begin
mat [x,y]:= 0;
if x+y=6 then mat [x,y]:= 1;
write(mat[x,y]:5);
end;
writeln;
end;
writeln;
writeln;
writeln;
writeln('>>>-----> Visit : http://indonetizensia.blogspot.com/ <-----<<<');
readln;
end.

Contoh 2. Matriks berpola BackSlash(garis miring terbalik) dengan angka 1
Screenshotnya :

Script Programnya :

program matriks_backslash;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
mat : array[1..10,1..10]of integer;
x,y :integer ;

begin
writeln ('Nama : Andi Khoirudin');
writeln ('Kelas/NIM : 1B/114224042');
writeln;
writeln('>>> Menampilkan Matrik berpola Backslash dengan angka "1" <<<');
writeln;
for x:=1 to 5 do
begin
for y:= 1 to 5 do
begin
mat [x,y]:= 0;
if x=y then mat [x,y]:= 1;
write(mat[x,y]:5);
end;
writeln;
end;
writeln;
writeln;
writeln;
writeln('>>>-----> Visit : http://indonetizensia.blogspot.com/ <-----<<<');
readln;
end.

Contoh Matriks berpola berbentuk segitiga dengan angka 1-5
Screenshotnya :

Script Programnya :

program pola_1sampai5;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
mat : array[1..10,1..10]of integer;
x,y :integer ;

begin
writeln ('Nama : Andi Khoirudin');
writeln ('Kelas/NIM : 1B/114224042');
writeln;
writeln('>>> Menampilkan Matriks berpola 1-5 <<<');
writeln;

for x:=1 to 5 do
begin
for y:= 1 to 5 do
begin
mat [x,y]:= x;
if x<y then mat [x,y]:= 0;
write(mat[x,y]:5);
end;
writeln;
end;
writeln;
writeln;
writeln;
writeln('>>>-----> Visit : http://indonetizensia.blogspot.com/ <-----<<<');
readln;
end.

Contoh 4. Matriks berpola Plus(tambah) dengan angka 1
Screenshotnya :

Script Programnya :

program matriks_pola_tambah;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
mat : array[1..10,1..10]of integer;
x,y:integer ;

begin
writeln ('Nama : Andi Khoirudin');
writeln ('Kelas/NIM : 1B/114224042');
writeln;
writeln('>>> Menampilkan Matriks berpola + dengan angka "1" <<<');
writeln;
for x:=1 to 5 do
begin
for y:= 1 to 5 do
begin
mat [x,y]:= 0;
if x-2=1 then mat [x,y]:=1;
if y-2=1 then mat [x,y]:=1;
write(mat[x,y]:5);
end;
writeln;
end;
writeln;
writeln;
writeln;
writeln('>>>-----> Visit : http://indonetizensia.blogspot.com/ <-----<<<');
readln;
end.

Contoh 5. Matriks berpola berbentuk segitiga dengan simbol *
Screenshotnya :

Script Programnya :

program matriks_bintang;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
mat : array[1..10,1..10]of integer;
x,y : integer ;

begin
writeln ('Nama : Andi Khoirudin');
writeln ('Kelas/NIM : 1B/114224042');
writeln;
writeln('>>> Menampilkan Matriks berpola dengan simbol "*" <<<');
writeln;
for x:=1 to 5 do
begin
for y:= 1 to 5 do
begin
if x>= y then write('*':5);
end;
writeln;
end;
writeln;
writeln;
writeln;
writeln('>>>-----> Visit : http://indonetizensia.blogspot.com/ <-----<<<');
readln;
end.

Silahkan dikembangkan sendiri programnya. Semoga bermanfaat & Selamat Mencoba
Kurang lebihnya mohon maaf dan terima kasih sudah berkunjung

Wassalamualaikum Wr. Wb

Baca Selengkapnya »

Delphi : Program Matriks Menggunakan Array

Nama : ANDI KHOIRUDIN
Kelas : I-B SMT 1
Jurusan : Teknik Informatika
STIMIK YADIKA BANGIL 2014

Assamualaikum Wr. Wb.

Pada kesempatan yang lalu saya membahas penggunaan Array di Delpi dan pada kesempatan kali ini saya akan membahas pemanfaatan Array dalam program Matriks. Untuk yang masih belum tahu penggunaan Array ini Penggunaan Array disini saya akan memberi 2 contoh program :
1. Membuat matriks menggunakan array

2. Membuat program penjumlahan matriks menggunakan array

Contoh 1. Membuat matriks menggunakan array

Screenshotnya :

Script programnya :

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
a,b,c:Array[1..10,1..10]of integer;
x, y, kol, bar: integer;
begin
writeln ('Nama : Andi Khoirudin');
writeln ('Kelas/NIM : 1B/114224042');
writeln;
writeln ('>>> Program Matriks <<<');
writeln;
write('Masukkan jumlah kolom = '); readln(kol);
write('Masukkan jumlah baris = '); readln(bar);
writeln;
writeln('Masukkan matrik A');
for x:=1 to bar do
begin
for y:=1 to kol do
begin
write('Data matrik A[',x,':',y,'] = ');
readln(a[x,y]);
end;
end;
writeln;
writeln('Masukkan matrik B');
for x:=1 to bar do
begin
for y:=1 to kol do
begin
write('Data matrik B[',x,':',y,'] = ');
readln(b[x,y]);
end;
end;
writeln;
writeln;
writeln;
writeln('>>>-----> Visit : http://indonetizensia.blogspot.com/ <-----<<<');
readln;
end.

Contoh 2. Membuat program penjumlahan matriks menggunakan array
Screenshotnya :

Script programnya :

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
a,b,c:Array[1..10,1..10]of integer;
x,y,kol,bar:integer;
begin
writeln ('Nama : Andi Khoirudin');
writeln ('Kelas/NIM : 1B/114224042');
writeln;
writeln ('>>> Program Penambahan Matriks <<<');
writeln;
write('Masukkan jumlah kolom = '); readln(kol);
write('Masukkan jumlah baris = '); readln(bar);
writeln;

writeln('Masukkan matrik A');
for x:=1 to bar do
begin
for y:=1 to kol do
begin
write('Data matrik A[',x,':',y,'] = ');
readln(a[x,y]);
end;
end;
writeln;

writeln('Masukkan matrik B');
for x:=1 to bar do
begin
for y:=1 to kol do
begin
write('Data matrik B [',x,':',y,'] = ');
readln(b[x,y]);
end;
end;

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;
writeln('Hasil :');
writeln('------------------------------------------------');
for x:=1 to bar do
begin
for y:=1 to kol do
begin
write(c[x,y]:7);
end;
writeln;
end;
writeln;
writeln;
writeln;
writeln('>>>-----> Visit : http://indonetizensia.blogspot.com/ <-----<<<');
readln;
end.

Silahkan dikembangkan sendiri programnya. Semoga bermanfaat & Selamat Mencoba
Kurang lebihnya mohon maaf dan terima kasih sudah berkunjung

Wassalamualaikum Wr. Wb

Baca Selengkapnya »

Delphi : Penggunaan Array

Nama : ANDI KHOIRUDIN
Kelas : I-B SMT 1
Jurusan : Teknik Informatika
STIMIK YADIKA BANGIL 2014

Assamualaikum Wr. Wb.

Pada kesempatan yang lalu saya membahas penggunaan Mod dan Div
kesempatan ini saya akan membahas penggunaan array di Delphi. Mungkin
yang masih newbie seperti saya berfikir 'panganan opo iku' tapi disini saya
akan mencoba menjelaskan apa itu array ?

Array adalah sekumpulan variabel yang memiliki tipe data yang sama
dan dinyatakan dengan nama yang sama. Array merupakan konsep yang
penting dalam pemrograman, karena array memungkinkan untuk
menyimpan data maupun referensi objek dalam jumlah banyak dan
terindeks. Array menggunakan indeks integer untuk menentukan urutan
elemen-elemennya, dimana elemen pertamanya dimulai dari indeks
0,elemen kedua memiliki indeks 1, dan seterusnya.

Contoh :

- Angka untuk menyimpan sederetan bilangan

- Buku untuk menyimpan sekumpulan data buku

- Mahasiswa untuk menyimpan beberapa data mahasiswa

· Sebagai contoh jika A merupakan sebuah array dengan tipe integer, maka notasi dari array A adalah: A[n], dengan n merupakan angka index dari array tersebut misal:

A[0]=100
A[1]=200
A[2]=300
A[3]=400

Contoh Program memasukkan data dan mencari rata-rata menggunakan array

Screenshotnya :

Script programnya :

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
a:array[1..10]of integer;
tot,jum,i:integer;
rata:real;
begin
writeln ('Nama : Andi Khoirudin');
writeln ('Kelas/NIM : 1B/114224042');
writeln;
writeln ('>>> Menghitung rata-rata sejumlah data <<<');
writeln;
write('Masukkan Jumlah Data = '); readln(jum);
writeln;
i:=1; tot:=0;
while i <=jum do

begin
write('Masukkan data ke ',i,' = '); readln(a[i]);
Tot:=tot+a[i];
i:=i+1;
end;
rata:=tot/jum;
writeln('RATA-RATA = ',rata:10:1);
writeln;
writeln;
writeln;
writeln('>>>-----> Visit : http://indonetizensia.blogspot.com/ <-----<<<');
readln;
end.

Contoh ke2 Membuat program seperti di kasir 'Selamat datang di alfa***t' menggunakan Array
Screenshotnya :

Script programnya :

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
namabar:array[1..100]of string;
harga:array[1..100]of integer;
i,tot:integer;lagi:string;
begin
writeln ('Nama : Andi Khoirudin');
writeln ('Kelas/NIM : 1B/114224042');
writeln;
writeln ('>>> Program Kasir <<<');
writeln;
tot:=0; i:=1;

repeat
write('Nama barang = '); readln(namabar[i]);
write('Harga Rp = '); readln(harga[i]);
tot:=tot+(harga[i]);
i:=1+1;
writeln('Lagi y/t'); readln(lagi);
writeln;
writeln;
until(lagi<>'y') or (lagi<>'y') ;
writeln('Total Harga Rp = ',tot);
writeln;
writeln;
writeln;
writeln('>>>-----> Visit : http://indonetizensia.blogspot.com/ <-----<<<');
readln;
end.

Silahkan dikembangkan sendiri programnya. Semoga bermanfaat & Selamat Mencoba
Kurang lebihnya mohon maaf dan terima kasih sudah berkunjung

Wassalamualaikum Wr. Wb

Baca Selengkapnya »