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

Pascal

• Program Menentukan Bilangan Genap atau Ganjil Pada Pascal
• Program Menentukan Tahun Kabisat Pada Pascal
• Program menghitung jumlah deret menggunakan repeat
• Program Mencari Luas N Buah Segitiga Menggunakan Prosedure
• Macam - Macam Perintah Pengulangan Pada Pascal
• Penjelasan Tentang Pemilihan (If-Then) dalam Pemrograman Pascal
• Struktur Dasar Algoritma dalam Pemrograman
• Sejarah Kata Algoritma dalam Pemrograman

Cara Membuat Subtitle Indonesia Sendiri Tutorial dan Trik Blog

Judul: Program Menu Pilihan Empat Persegi Panjang Menggunakan Case Of; Ditulis oleh Unknown; Rating Blog: 5 dari 5