Algoritma Menentukan Luas Segitiga, Lingkaran dan Persegi

Judul :  Algoritma Menentukan Luas Segitiga, Lingkaran dan Persegi.

Spesifikasi : {Menampilkan luas segitiga, lingkaran dan persegi dengan data panjang, lebar, jari-jari, alas, tinggi yang di inputkan dari keyboard. Menampilkan Luas Segitiga, Lingkaran dan Persegi }

Deklarasi:

pilihan : integer

             luas : double

             panjang, lebar, jejari, tinggi : integer

Deskripsi :

             write(“Program Mencari Luas Segitiga”)

             write(“1. Luas Segitiga”)

             write(“2. Luas Lingkaran”)

             write(“3. Luas Persegi”)

             read(“Masukkan Pilihan”, pilihan)

             if pilihan ← 1 then

                             read(“Masukkan nilai alas = “, alas)

                             read(“Masukkan nilai tinggi = “,tinggi)

                             luas ← 0.5 * alas * tinggi

             else if pilihan = 2 then

                             read(“Masukkan nilai R = “, jariJari)

                             luas ← 3.14 * jariJari * jariJari

             else if pilihan = 3 then

                             read(“Masukkan nilai panjang = “, panjang)

                             read(“Masukkan nilai lebar = “, lebar)

                             luas ← panjang * lebar

             else

                             write(“Pilihan Tidak Tersedia”)

                             write(“Luas = “,luas)