Percabangan Pada Delphi (If Then Else)

Percabangan Pada Delphi (If Then Else, If Then Else Bersarang)
Perintah percabangan IF adalah suatu perintah yang berfungsi untuk mengambil keputusan dari beberapa kondisi.

Percabangan merupakan salah struktur kendali yang memungkinkan pemilihan atas perintah yang akan dijalankan. Dalam Delphi terdapat beberapa percabangan yaitu :

A. IF THEN 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)

B. IF THEN ELSE BERSARANG

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
                         if (Kondisi 2) then
                              (Proses 1)
                                  else
                              (Proses 2);

Contoh Program IF THEN ELSE

1. Buka aplikasi delphi

2. Pilih File - New - Console Application

3. Setelah muncul jendela project, ketikkan script seperti berikut :

 4. Jalankan program dengan klik RUN/F9 ,dan masukkan data, lalu enter, maka tampilan seperti berikut :

 Contoh Program IF THEN ELSE BERSARANG

1. Buka aplikasi delphi

2. Pilih File - New - Console Application

3. Setelah muncul jendela project, ketikkan script seperti berikut :

 4. Jalankan program dengan klik RUN/F9 ,dan masukkan data, lalu enter, maka tampilan seperti berikut :

Program Array Pada Delphi

Array merupakan kumpulan data yang bertipe sama. Elemen array dapat diakses dengan menggunakan indeks yang berada pada kurung kotak([ ]). Delphi menyediakan beberapa tipe array, yaitu static array, dynamic array serta open array. Bentuk umum dari definisi array sebagai berikut :

<NamaArray>=array[tipe Indeks]of<Tipe Dasar>

<NamaArray>=array[tipe Indeks,......] of <Tipe Dasar>

<NamaArray>=array of<Tipe Dasar>

Larik (Array) adalah sebuah  tipe data referance yang dapat menampung sejumlah komponen yang mempunyai tipe yang sama(primitif atau referensi). Suatu larik mempunyai jumlah komponen yang banyaknya tetap. Komponen tersebut ditunjuk oleh suatu indek.

• Array Menghitung Rata-Rata :

Langkah Pertama

1. Buka aplikasi delphi
2. Pilih File - New - Console Application
3. Setelah muncul jendela project, ketikkan script seperti berikut :

 4. Jalankan program dengan cara pilih icon Run/F9 pada keyboard , masukkan data, maka tampilan seperti berikut ;

• Array Membuat Matrik 

Langkah Pertama

1. Buka aplikasi delphi
2. Pilih File - New - Console Application
3. Setelah muncul jendela project, ketikkan script seperti berikut :

4. Jalankan program dengan cara pilih icon Run/F9 pada keyboard , masukkan data, maka tampilan seperti berikut ;

Program Perulangan Pada Delphi

1. Perulangan For To Do

For To Do adalah program yang berjalan dengan menggunakan suatu variable counter yang akan bertambah secara otomatis ketika perintah yang di ulang selesai.

Langkah pertama 
1. Buka aplikasi delphi
2. Pilih File - New - Console Application
3. Setelah muncul jendela project, ketikkan script seperti berikut :

4. Jalankan program dengan cara pilih icon Run/F9 pada keyboard maka tampilan seperti berikut ;

2. Perulangan Repeat-Until

Perulangan repeat until digunakan untuk mengulang suatu kondisi sampai (until) kondisi bernilai salah.

Bentuk Umum :

Repeat – Statement/penyataan — Until – – – ungkapan logika

Contoh Sederhana :

Langkah pertama 
1. Buka aplikasi delphi
2. Pilih File - New - Console Application
3. Setelah muncul jendela project, ketikkan script seperti berikut :

4. Jalankan program dengan cara pilih icon Run/F9 pada keyboard maka tampilan seperti berikut ;

Contoh Lain ketikkan script seperti berikut :

Jalankan program dengan cara pilih icon Run/F9 pada keyboard maka tampilan seperti berikut ;

3. Perulangan While-Do

Perulangan While Do adalah statement perulangan akan terus melakukan suatu proses selama kondisi/syarat yang ditentukan bernilai benar.

Bentuk Umum

Statement While – Variabel Syarat – Do Pernyataan

Langkah pertama 
1. Buka aplikasi delphi
2. Pilih File - New - Console Application
3. Setelah muncul jendela project, ketikkan script seperti berikut :

4. Jalankan program dengan cara pilih icon Run/F9 pada keyboard maka tampilan seperti berikut ;

Program Menghitung Luas Segitiga & Volume Balok

Dalam pemrograman ini menggunakan aplikasi delphi .Sebelum membuat program ini , harus terlebih dahulu mengetahui tentang segitiga . Segitiga adalah sebuah bentuk yang dibentuk oleh tiga sisi yang berupa garis lurus dan tiga buah sudut. Rumus Luas segitiga :

atau L (luas) = 0,5*alas*tinggi .

Pemrograman menghitung luas segitiga menggunakan aplikasi delphi :

1. Buka aplikasi delphi
2. Pilih File - New - Console Application
3. Setelah muncul jendela project, ketikkan script seperti berikut :

4. Jalankan program dengan cara pilih icon Run/F9 pada keyboard maka tampilan seperti berikut ;

5. Masukkan alas dan tinggi lalu tekan enter maka tampilan seperti berikut ;

Pemrograman volume balok menggunakan aplikasi delphi :

Balok adalah benda yang berbentuk  persegi panjang dengan kedua ujung berbentuk  persegi. Balok memiliki  6 buah permukaan yaitu   sisi  depan dan belakang,  sisi atas dan bawah, dan 2 buah sisi ujung (kiri dan kanan).

sebelumnya harus mengetahui volume balok :

Langkah awal pemrogramannya seperti sebelumnya,

1.Setelah muncul jendela project, ketikkan script seperti berikut :

2. Jalankan program dengan cara pilih icon Run/F9 pada keyboard

3. Masukkan panjang,lebar,tinggi balok lalu tekan enter maka tampilan seperti berikut ;