Kamis, 17 Januari 2013

Program Menu Pilihan Empat Persegi Panjang Menggunakan Case Of

Di cuaca yang cerah seperti sekarang, saya ingin berbagi Program Menu Empat Persegi Panjang menggunakan struktur case. Di dalam program ini ada 4 menu. Pertama, untuk menghitung luas persegi panjang. Kedua, Untuk menghitung keliling persegi panjang. Ke-3, untuk menghitung panjang diagonal. Dan Ke-4 Untuk keluar dari program.

Program ini merupakan gabungan dari rumus mencari luas, keliling dan diagonal persegi panjang. Dengan menggunakan struktur case, ketiga rumus tersebut di gabung menjadi satu program sehingga dapat menghemat tenaga untuk membuat  program yang menggunakan masing-masing rumus tersebut.

Selain menggunakan case, program membuat menu juga bisa di di lakukan menggunakan strukstur repeat-until.  Sebagai contohnya yaitu pada postingan ‘pembuatan menu menggunakan repeat-until ‘  yang lain di blog ini .

Baik ini dia program menu empat persegi panjang :

Program EmpatPersegiPanjang;
uses crt;
Var
NomorMenu : integer;
Panjang, lebar : real ;
Luas, keliling, diagonal : real ;
Begin
clrscr;
gotoxy(23,2);writeln ('NAMA  : PASCALMATLAB.BLOGSPOT.COM');
gotoxy(23,3);writeln ('NIM   : ______??');
gotoxy(23,4);writeln ('Prodi : MATEMATIKA??');
gotoxy(18,5);writeln('======================================');
gotoxy(23,6); Writeln (' MENU EMPAT PERSEGI PANJANG  ');
gotoxy(23,7);Writeln (' 1. Hitung Luas ');
gotoxy(23,8);Writeln (' 2. Hitung Keliling ');
gotoxy(23,9);Writeln (' 3. Hitung Panjang Diagonal ');
gotoxy(24,10);Writeln ('4. Keluar Program ');
gotoxy(20,11);Write (' Masukkan pilihan anda 1/2/3/4 : ') ; readln (NomorMenu);
Case NomorMenu of
1 : begin
        Clrscr;
gotoxy(21,2)    ;Writeln (' 1. Hitung Luas ');
gotoxy(21,3)    ;Writeln (' ============================== ');
gotoxy(21,4)    ;Write (' Panjang = '); readln (panjang);
gotoxy(21,5)    ;Write (' Lebar = '); readln (lebar);
    Luas := panjang*lebar;
gotoxy(21,6)    ;writeln ('Luas = ',Luas);
    Readln;
    End;
2 : begin
        Clrscr;
gotoxy(21,3)    ;Writeln (' 2. Hitung Keliling ');
gotoxy(21,4)    ;Writeln (' ============================== ');
gotoxy(21,5)    ;Write (' Panjang = '); readln (panjang);
gotoxy(21,6)    ;Write (' Lebar = '); readln (lebar);
    keliling :=2*panjang+2*lebar;
gotoxy(21,7)    ; writeln ('Keliling = ',keliling);
    Readln;
    End;
3 : begin
        Clrscr;
gotoxy(21,4)    ;Writeln (' 3. Hitung Panjang Diagonal ');
gotoxy(21,5)    ;Writeln (' ============================== ');
gotoxy(21,6)    ;Write (' Panjang = '); readln (panjang);
gotoxy(21,7)    ;Write (' Lebar = '); readln (lebar);
    diagonal:= sqrt(panjang*panjang+lebar*lebar);
gotoxy(21,8)    ;writeln ('Diagonal = ',diagonal);
    Readln;
    End;
4 : writeln ('Keluar Program ');
End;
End.

Tambahan :
Tidak semua bahasa pemrograman menyediakan struktur CASE (misalnya Bahasa Fortran). Bahasa Pascal dan C menyediakan struktur ini. Jika bahasa pemrogrman tidak menyediakan struktur CASE, maka dapat dig anti dengan struktur IF-THEn-ELSE yang ekivalen.

Berikut bentuk algoritmik dari program menu empat persegi panjang di atas :

ALGORITMIK :

PROGRAM EmpatPersegiPanjang
{Menampilkan menu perhitungan empat persegi panjang, memilih menu, dan melakukan proses perhitungan }
DEKLARASI
NomorMenu : integer;
Panjang, lebar : real;
Luas, keliling, diagonal : real;
ALGORITMA
{Cetak menu}
Write (‘ MENU EMPAT PERSEGI PANJANG’)
Write (‘ 1. Hitung Luas ‘)
Write (‘ 2. Hitung Kelilling ‘)
Write (‘ 3. Hitung Panjang Diagonal‘)
Write (‘ 4. Keluar Program ‘)
Case NomorMenu
1 : read (panjang,lebar)
Luas   panjang*lebar
Write (luas)
2 : read (panjang,lebar)
keliling   2*panjang+2*lebar
Write (keliling)
3 : read (panjang,lebar)
diagonal   sqrt(panjang*panjang+lebar*lebar)
Write (diagonal)
4: write (‘Keluar Program’)
endcase

Sekian, mudah-mudahan program ini dapat membawa manfaat untuk semua  dan selamat mengerjakan tugas dan dapatkanlah nilai yang bagus dengan program yang anda lihat ini.hehe….
Artikel Terkait
Judul: Program Menu Pilihan Empat Persegi Panjang Menggunakan Case Of; Ditulis oleh Al Mustakim; Rating Blog: 5 dari 5

2 komentar:

  1. posting spt ini cukup sulit ditemui, sangat bermanfaat, GAn
    belajar sistem windows

    BalasHapus
  2. wah terima kasih sudah berbagi

    BalasHapus