Assalamualaikum Wr.wb kawan, Detik ini saya akan membagikan ilmu Coding mengenai ProgramUntuk Menentukan Luas Bujursangkar,Persegi Panjang,dan Lingkaran secara tersusun dengan bahasa pemrograman  turbo pascal. Untuk membuat sebuah bahasa pemrograman turbo pascal dalam mencari hasil sebuah perhitungan,lebih...

Cara membuat pilihan perhitungan luas dengan bahasa pemrograman pascal

Assalamualaikum Wr.wb kawan,

Detik ini saya akan membagikan ilmu Coding mengenai Program Untuk Menentukan Luas Bujursangkar,Persegi Panjang,dan Lingkaran secara tersusun dengan bahasa pemrograman  turbo pascal.

  • Untuk membuat sebuah bahasa pemrograman turbo pascal dalam mencari hasil sebuah perhitungan,lebih tepatnya mencari luas suatu bangun,kita perlu mengetahui Rumus Bangun Itu sendiri.sehingga nanti bisa di aplikasikan ke dalam bahasa pemrograman itu sendiri.
  • Pilihan Menu Perhitungan yang digunakan Pada bahasa pemrograman pascal ini,yaitu Luas Bujur Sangkar , Luas Persegi panjang dan Luas Lingkaran.
  • Menu Perhitungan Tersebut Dapat digunakan hasil output bahasa pemrograman nya dengan cara Memilih Angka. Jika kita memilih angka 1 berarti perhitungan yang keluar mengenai Luas Bujur Sangkar, jika kita memilih Angka 2 Maka Berarti Perhitungan yangakan muncul yaitu perhitungan Luas Persegi Panjang dan Apabila memilih Angka 3 maka akan muncul perhitungan Luas Lingkaran, tetapi jika selain angka tersebut dipilih maka akan muncul informasi 'Maaf..!! tidak ada dalam MENU'.
  • Adapun Source Code Program Perhitungan Luas tersebut ada di bawah ini :

  program luas;

         uses

              crt;

   const

            phi=3.14;

   var

                panjang,lebar,sisi,jari_jari:real;

   x:integer;

   begin

     clrscr;

                       writeln('$ MENU PERHITUNGAN $');

                       writeln('1. Luas Bujur Sangkar');

                       writeln('2. Luas Persegi Panjang');

                       writeln('3. Luas Lingkaran');

     writeln;

                        write('masukkan pilihan : ');readln(x);

     writeln;

     case x of

                         1 : begin

       writeln('anda memilih perhitungan Luas Bujur Sangkar');

       writeln;

       write('masukkan panjang sisi : ');readln(sisi);

       writeln;

       write('Luas bujur sangkar = ',sisi*sisi:0:2);

     end;

                           2: begin

            writeln('Anda memilih perhitungan Luas Persegi Panjang');

            writeln;

            write('masukkan panjang : ');readln(panjang);

            write('masukkan lebar   : ');readln(lebar);

            writeln;

            write('Luas Persegi Panjang = ',panjang*lebar:0:2);

         end;

                           3 : begin

               writeln('anda memilih perhitungan Luas Lingkaran');

               writeln;

               write('masukkan jari_jari : ');readln(jari_jari);

               writeln;

               write('Luas Lingkaran : ',phi*jari_jari*jari_jari:0:2);

             end;

         else

             writeln('maaf..!! tidak ada dalam MENU');

         end;

              readln;

     end.

 

  • Dari sebuah hasil output dengan menekan CTRL + F9 dari eksekusi bahasa pemrograman pascal di atas.sehingga Akan di dapat hasil perhitungan luas seperti yang akan kita gunakan dengan memilih angka dari 1-3 seperti yang dijelaskan di atas.

        Sekian Tutorial kali ini mengenai cara pemilihan perhitungan untuk mencari luas seperti yang di jelaskan di atas .semoga bermanfaat dan bisa mempelajari lebih baik lagi bagi kawan – kawan yang membutuhkan dan dapat di amalkan untuk pengetahuan kepada orang lain. Wassalamualikum . terimakasih…

 

#

About Author

hendra

Seorang lulusan teknik informatika yang gemar menulis Coding yang tanpa lelah terus belajar untuk dapat menaklukan bahasa pemrograman.


Comment & Discussions

    Please LOGIN before if you want to give the comment.