Program CASE..OF di Pascal

Program CASE..OF di Pascal, kali ini saya akan kembali sedikit berbagi mengenai pemrograman Pascal, bagi anda yang sedang belajar emrograman pascal semoga postingan saya kali ini sedikitnya bisa membantu dan juga ini sebagai referensi saya supaya bisa diingat kembali dalam waktu kedepannya. Oke langsung saja berikut program CASE OF-nya :

uses wincrt;

var

   luas,sisi,p,l,pilih:integer;

   begin

        writeln('1. Program Menghitung Luas Persegi');

        writeln('2. Program Menghitung Luas Persegi Panjang');

        writeln;

        write('Pilih Program (1/2) : ');readln(pilih);

        clrscr;

        case pilih of

       

        1:begin

           write('Masukan Panjang Sisi Persegi : ');readln(sisi);

               luas:=4*sisi;

               writeln;

               writeln('Luas Persegi Adalah ',luas);

               end;

        2:begin

        write('Masukan Panjang Sisi Persegi Panjang : ');readln(p);

        write('Masukan Lebar Sisi Persegi Panjang : ');readln(l);

               luas:=p*l;

               writeln;

               end;end;end.



sedikit penjelasan : 

saya anggap mengerti saja mulai dari uses wincrt hingga begin yg pertama. Berikutnya kepada CASE PILIH OF kata PILIH disitu ialah berfungsi untuk memanggil program sesaui dengan pilihan yang kita masukan pada write('Pilih Program (1/2) : ');readln(pilih); pada statement ini kan kita disuruh untuk menginputkan pilihan program yang akan kita gunakan yaitu pada pilihan pertama (1) menghitung luas persegi dan pada pilihan kedua (2) program menghitung luas persegi panjang. Saat kita menginputkan pilihan maka pilihan kita akan disimpan oleh pilih yang saya beri warna merah dan saat anda tekan enter maka program yang ditandai dengan angka tersebut akan muncul sebagai program yang anda pilih. Misal, saya akan memilih program nomor 2 dan kemudian saya tekan enter maka yang muncul adalah program yang saya beri tanda 2:begin . Nah bagi anda yang bingung kenapa ada angka 1 dan 2 didepan begin ? begin penjelasan sederhananya, angka 1 dan angka 2 disitu bisa kita sebut dalam bahasa yang sederhana saja kita sebut sebagai kode program atau nomor program, jika kita masukan pilihan pertama angka 1 maka program pertama yang angka muncul dan apabila kita masukan angka 2 maka program yang kedua lah yang akan muncul. Mungkin bisa di mengerti ? kalau masih bingung silahkan tinggalkan pertanyaan dan komentar anda pad akolom yang telah tersedia.

Dengan program case..of ini kita bisa membuat berbagai macam program dan tentunya dalam jumlah program yang cukup banyak bisa kita buat kare case..of berfungsi untuk pemanggilan program sesuai dengan nomor program atau kode program yang sudah sedikit saya jelaskan diatas.

Terima kasih bagi anda yang sudah berkunjung dan sudah meninggalkan komentar anda. Jangan lupa like dan follow juga yaa :)