Sulhan Setiawan

Tentang parameter

Sekarang kita akan membahas tentang parameter dari sebuah prosedur secara lebih mendalam. Perhatikan contoh program berikut:

program Parameter;
{$APPTYPE CONSOLE}
var
  n:integer;
  procedure TambahBilangan(bilangan:integer);
  begin
    bilangan:=bilangan+1;
    Writeln('bilangan di dalam prosedur:',bilangan);
  end;
begin
  Write('Masukkan sebuah bilangan: ');
  Readln(n);
  TambahBilangan(n);
  Writeln('bilangan di dalam program:',n);
  Writeln('Tekan Enter');
  Readln;
end.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

program Parameter;

{$APPTYPE CONSOLE}

var

n:integer;

procedure TambahBilangan(bilangan:integer);

begin

bilangan:=bilangan+1;

Writeln('bilangan di dalam prosedur:',bilangan);

end;

begin

Write('Masukkan sebuah bilangan: ');

Readln(n);

TambahBilangan(n);

Writeln('bilangan di dalam program:',n);

Writeln('Tekan Enter');

Readln;

end.

Prosedur melakukan perubahan terhadap parameternya. Tetapi perhatikan hasilnya jika dijalankan. Ternyata variabel yang dikirimkan sebagai parameter tetap tidak berubah.

Masukkan sebuah bilangan: 5
bilangan di dalam prosedur:6
bilangan di dalam program:5
Tekan Enter

1

2

3

4

Masukkan sebuah bilangan: 5

bilangan di dalam prosedur:6

bilangan di dalam program:5

Tekan Enter

Perhatikan contoh yang lain:

program Parameter2;
{$APPTYPE CONSOLE}
var
  n:integer;
  procedure TambahBilangan(var bilangan:integer);
  begin
    bilangan:=bilangan+1;
    Writeln('bilangan di dalam prosedur:',bilangan);
  end;
begin
  Write('Masukkan sebuah bilangan: ');
  Readln(n);
  TambahBilangan(n);
  Writeln('bilangan di dalam program:',n);
  Writeln('Tekan Enter');
  Readln;
end.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

program Parameter2;

{$APPTYPE CONSOLE}

var

n:integer;

procedure TambahBilangan(var bilangan:integer);

begin

bilangan:=bilangan+1;

Writeln('bilangan di dalam prosedur:',bilangan);

end;

begin

Write('Masukkan sebuah bilangan: ');

Readln(n);

TambahBilangan(n);

Writeln('bilangan di dalam program:',n);

Writeln('Tekan Enter');

Readln;

end.

Dengan penambahan kata yang dicadangkan var sebelum parameter, maka perubahan terhadap parameter didalam…

Kita sudah pernah menggunakan prosedur tanpa parameter. Pada saat itu parameter memang tidak dibutuhkan dalam prosedur tersebut. Prosedur tersebut akan selalu menghasilkan sesuatu yang benar-benar sama. Sekarang bayangkan sebuah prosedur yang bisa bertindak sesuai dengan keadaan, sehingga prosedur membutuhkan informasi untuk menentukan tindakannya. Cara untuk mengirimkan informasi ke dalam prosedur adalah dengan menggunakan parameter. Contoh…

Prosedur

Posted inDelphi - LazarusPemrogramanSemuaTutorial
Leave a comment on Prosedur
Posted bySulhan Setiawan
12 Desember 201316 Desember 2013

Prosedur adalah sebuah subprogram. Beberapa urutan perintah yang sering dilakukan dapat dibuat menjadi sebuah prosedur. Setiap kali urutan tersebut dibutuhkan untuk dilaksanakan pada program utama, kita cukup mamanggil prosedur yang berisi urutan tersebut dengan menuliskan nama prosedurnya. Susunan dari sebuah prosedur adalah sebagai berikut:

procedure NamaProsedur;
//bagian deklarasi prosedur
begin
  //badan prosedur
end;

1

2

3

4

5

procedure NamaProsedur;

//bagian deklarasi prosedur

begin

//badan prosedur

end;

procedure adalah kata yang dicadangkan oleh Delphi. Setiap prosedur harus…

Program faktorial dengan repeat until

Kita juga bisa menghitung nilai faktorial menggunakan perulangan repeat until seperti contoh berikut:

program HitungFaktorial4;
{$APPTYPE CONSOLE}
var
  n,i,faktorial:cardinal;  
begin
  Write('Masukkan sebuah bilangan: ');
  Readln(n);
  faktorial:=1;
  if (n<>0) then
  begin
    i:=1;
    repeat
      faktorial:=faktorial*i;
      i:=i+1;
    until (i>n);
  end;
  Write('Faktorial dari ',n);
  Writeln(' adalah ',faktorial);
  Writeln('Tekan Enter');
  Readln;
end.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

program HitungFaktorial4;

{$APPTYPE CONSOLE}

var

n,i,faktorial:cardinal;

begin

Write('Masukkan sebuah bilangan: ');

Readln(n);

faktorial:=1;

if (n<>0) then

begin

i:=1;

repeat

faktorial:=faktorial*i;

i:=i+1;

until (i>n);

end;

Write('Faktorial dari ',n);

Writeln(' adalah ',faktorial);

Writeln('Tekan Enter');

Readln;

end.

Perhatikan bahwa kita tidak membutuhkan begin dan end; untuk membuat statemen majemuk di dalam perulangan yang menggunakan repeat until. Sama dengan while do, perubahan variabel pada repeat until juga tidak selalu selisih 1.

Program faktorial dengan while do

Selain dengan menggunakan perulangan for, kita juga bisa menghitung faktorial dengan perulangan while do seperti contoh berikut:

program HitungFaktorial3;
{$APPTYPE CONSOLE}
var
  n,i,faktorial:cardinal;  
begin
  Write('Masukkan sebuah bilangan: ');
  Readln(n);
  faktorial:=1;
  if (n<>0) then
  begin
    i:=1;
    while (i<=n) do
    begin
      faktorial:=faktorial*i;
      i:=i+1;
    end;
  end;
  Write('Faktorial dari ',n);
  Writeln(' adalah ',faktorial);
  Writeln('Tekan Enter');
  Readln;
end.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

program HitungFaktorial3;

{$APPTYPE CONSOLE}

var

n,i,faktorial:cardinal;

begin

Write('Masukkan sebuah bilangan: ');

Readln(n);

faktorial:=1;

if (n<>0) then

begin

i:=1;

while (i<=n) do

begin

faktorial:=faktorial*i;

i:=i+1;

end;

Write('Faktorial dari ',n);

Writeln(' adalah ',faktorial);

Writeln('Tekan Enter');

Readln;

end.

Sebelum masuk kedalam perulangan, kita tentukan nilai i terlebih dahulu. Di dalam perulangan, nilai i kita modifikasi dengan cara menambahnya dengan 1. Berbeda dengan perulangan menggunakan for yang perubahan variabelnya selalu selisih 1, maka perubahan variabel pada…

Variasi program faktorial

Aksi setelah then pada pernyataan if pada contoh program sebelumnya hanya merupakan statemen tunggal, jadi tidak diperlukan begin dan end;. Akan tetapi aksi setelah else merupakan aksi dengan statemen yang majemuk, jadi dibutuhkan begin dan end;. Perhatikan statemen pertama pada blok else. Statemen tersebut adalah statemen faktorial:=1 yang merupakan statemen yang sama dengan statemen pada…

Perulangan dan Percabangan

Dalam pemrograman, seringkali sebuah program harus mengulang sebuah aksi yang sama secara berulang. Salah satu contoh program yang melakukan perhitungan menggunakan perulangan adalah pada contoh program menghitung faktorial. Sebuah ekspresi n! (dibaca n faktorial) adalah hasil perkalian dari bilangan 1 hingga n. Sebagai contoh, 5! Adalah hasil dari 1x2x3x4x5. Khusus untuk bilangan 0, pengertiannya tidaklah…

Membaca Masukan

Setelah kita melakukan percobaan bagaimana menuliskan pesan ke keluaran console, sekarang kita juga akan membaca masukan dari pengguna. Pada percobaan ini kita menggunakan beberapa variabel. Buatlah sebuah aplikasi console dengan cara seperti pada contoh sebelumnya. Setelah itu, buatlah listing program seperti berikut ini:

program HitungUmur;
{$APPTYPE CONSOLE}
var
   Nama:string;
   TahunSekarang,TahunLahir,Umur:integer;
begin
   //proses pengambilan data
   Write('Masukkan nama depan Anda : ');
   Readln(Nama);
   Write('Masukkan Tahun Anda lahir: ');
   Readln(TahunLahir);
   Write('Tahun berapakah sekarang : ');
   Readln(TahunSekarang);

   //proses perhitungan
   Umur:= TahunSekarang - TahunLahir;

   //proses menampilkan hasil
   Write('Hallo ',Nama,', umur Anda adalah ',Umur);
   WriteLn(' tahun');

   //menunggu penekanan Enter untuk memberi 
   //kesempatan pemakai melihat hasil
   Writeln('Tekan Enter');
   Readln;
end.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

program HitungUmur;

{$APPTYPE CONSOLE}

var

Nama:string;

TahunSekarang,TahunLahir,Umur:integer;

begin

//proses pengambilan data

Write('Masukkan nama depan Anda : ');

Readln(Nama);

Write('Masukkan Tahun Anda lahir: ');

Readln(TahunLahir);

Write('Tahun berapakah sekarang : ');

Readln(TahunSekarang);

//proses perhitungan

Umur:= TahunSekarang - TahunLahir;

//proses menampilkan hasil

Write('Hallo ',Nama,', umur Anda adalah ',Umur);

WriteLn(' tahun');

//menunggu penekanan Enter untuk memberi

//kesempatan pemakai melihat hasil

Writeln('Tekan Enter');

Readln;

end.

Jalankan program dengan menekan tombol F9, kemudian masukkan data-data yang diminta…

Hello World – Delphi

Aplikasi console adalah aplikasi yang tidak banyak melibatkan tampilan. Sebelum kita lanjutkan mengenai pengenalan komponen-komponen Delphi, ada baiknya kita melakukan percobaan-percobaan console untuk mendapatkan gambaran mengenai aspek-aspek pemrograman Delphi. Jika Anda telah mengenal Pascal, maka Anda boleh melewati bagian ini tanpa kehilangan apapun yang berarti. Susunan program Sebuah program Delphi memiliki susunan sebagai berikut:

program NamaProgram;

//bagian deklarasi

begin

//badan program utama

end.

1

2

3

4

5

6

7

8

9

program NamaProgram;

//bagian deklarasi

begin

//badan program utama

end.

…

Memulai Delphi

Posted inDelphi - LazarusPemrogramanSemuaTutorial
3 Komentar pada Memulai Delphi
Posted bySulhan Setiawan
5 Desember 201324 Desember 2013

Pada saat pertama kali Anda menjalankan Delphi, tampilan yang muncul kurang lebih adalah sebagai berikut: Form Form adalah tampilan dari program yang Anda buat. Cobalah untuk menjalankan program dengan menekan tombol F9. Anda akan melihat sebuah jendela program yang masih kosong. Tentu saja masih kosong karena Anda belum menambahkan apapun kedalamnya. Meskipun demikian program tersebut…

SulhanSetiawan.com

Featured

The Chronology of Nourishment: Reordering the Plate to Harmonize Internal Rhythms

Melbet App Download APK for Android & iOS in Bangladesh

Download Melbet App for iOS & Android

Variasi Rangkaian Lampu Hazard

Tentang parameter

Faktorial dengan prosedur

Prosedur

Program faktorial dengan repeat until

Program faktorial dengan while do

Variasi program faktorial

Perulangan dan Percabangan

Membaca Masukan

Hello World – Delphi

Memulai Delphi