Menerapkan Syntax Case Dan Procedure Dalam Pembuatan Menu Perhitungan Sederhana Menggunakan Delphi Console

Hai Palcomster… salam semangat buat adek-adek mahasiswa dan mahasiswi PalComTech yang luar biasa bangeudh. Kita kembali lagi ke materi algoritma pemrograman menggunakan Delphi Console. Kali ini kita akan mencoba membuat menu perhitungan sederhana menggunakan salah satu komponen deklarasi program yaitu …

Review Overview

User Rating: 4.02 ( 3 votes)
0

Hai Palcomster… salam semangat buat adek-adek mahasiswa dan mahasiswi PalComTech yang luar biasa bangeudh. Kita kembali lagi ke materi algoritma pemrograman menggunakan Delphi Console. Kali ini kita akan mencoba membuat menu perhitungan sederhana menggunakan salah satu komponen deklarasi program yaitu Procedure. Seperti yang kita tahu, bahwa Procedure merupakan bagian yang terpisah dari kode program utama tapi bisa diaktifkan didalam program utama. Procedure berfungsi sebagai subprogram yang dapat menggunakan parameter global maupun lokal. Sedangkan syntax CASE dalam kasus branching digunakan untuk menentukan 1 pilihan diantara beberapa kondisi yang diperiksa.

Dalam tutorial kali ini, kita akan coba membuat tampilan menu perhitungan sederhana yang didalamnya kita akan memilih 1 diantara beberapa pilihan menu dengan menerapkan Procedure dan CASE dalam program utama. Sebelum adek-adek menuliskan kode programnya, silahkan adek-adek perhatikan algoritmanya dibawah ini :

1) Siapkan variabel global yg terdiri dari variabel untuk menyimpan data pilihan menu (Pilih), data bilangan yang akan dihitung (Bilg_1, Bilg_2), dan hasil perhitungan (Hasil).

2) Buatlah Procedure Menu untuk menampilkan Menu Perhitungan Sederhana dan menyimpan pilihan nomor menu oleh user.

3) Buatlah Procedure Jumlah untuk menghitung penjumlahan kedua bilangan yang telah diinput sebelumnya:

  1. Input data kedalam variabel Bilg_1 dan Bilg_2
  2. Hitung :Hasil ß Bilg_1 + Bilg_2
  3. Cetak nilai yang telah didapatkan oleh variabel Hasil

4)  Buatlah Procedure Bagi untuk menghitung pembagian kedua bilangan yang telah diinput sebelumnya;

  1. Input data kedalam variabel Bilg_1 dan Bilg_2
  2. Hitung :Hasil ß Bilg_1 / Bilg_2
  3. Cetak nilai yang telah didapatkan oleh variabel Hasil dengan menentukan banyaknya digit angka didepan dan dibelakang koma. Hal ini dilakukan karena kemungkinan besar nilai yang didapat oleh variabel hasil akan berupa angka decimal (Real).

5) Panggil Procedure Menu untuk menampilkan menu perhitungan sederhana yang dimaksud. Kemudian baca pilihan nomor menu yang disimpan kedalam variabel Pilih.

6)  Lakukan Branching untuk memeriksa dan mengeksekusi pilihan nomor menu yang dilakukan oleh user:

  1. Jika User memilih nomor menu 1, maka panggil Procedure Jumlah
  2. Jika User memilih nomor menu 2, maka panggil Procedure Bagi
  3.  Jika User memilih nomor menu selain 1 dan 2, maka beritahu bahwa user salah memilih nomor menu, dan user diberi kesempatan 1 kali lagi untuk memilih (user hanya diberi 1 kali kesempatan dari 1 kali kesalahan pemilihan menu yang dilakukan)

7)  Aplikasi selesai.

Naahh.. yoookk sekarang kita coba tulis dan eksekusi listing program berikut di aplikasi Delphi Console :


Program Menu_Hitung;

{$APPTYPE CONSOLE}

Uses

SysUtils;

Label

Selesai;

{Deklarasi Variabel Global yang akan digunakan}

Var

Ulang, Pilih, Bilg_1, Bilg_2 : Integer;
Hasil : Real;
{variabel Hasil diberikan tipe data Real karena juga akan digunakan
untuk menyimpan hasil pembagian bilangan bulat (integer) yang kemungkinan akan berupa nilai desimal dengan digit angka didepan dan dibelakang koma}</i></b></p>

Coding selengkapnya dapat dilihat disini

Dan hasil eksekusi programnya adalah seperti gambar dibawah ini :

Eksekusi pilihan nomor menu 1 :

choromosome

Eksekusi pilihan nomor menu 2 :

choromosome1

Eksekusi pilihan nomor menu selain 1 dan 2 :

choromosome2

Selamat mencoba ya adek-adek… Good Luck…!!

Febria Sri Handayani

Beliau merupakan dosen di STMIK PalComTech yang mengajar khusus pada mata kuliah pemprograman

Leave a Reply

Your email address will not be published. Required fields are marked *

*

[+] kaskus emoticons nartzco


Shares