Praktek Uts

Praktek uts perhitungan persegi, segitiga, lingkaran dan layang - layang

#!/bin/bash
function menu(){
clear
n=9
i=4
while [ $i -le $n ];
do
tput cup $i 25
printf "|\n"
i=$(($i+1));
done
tput cup 1 15
printf "Luas Bangun Datar \n"
tput cup 2 15
printf "===================\n\n"
printf "1.persegi\n"
printf "2.segitiga\n"
printf "3.lingkaran\n"
printf "4.layang-layang\n"
printf "5.keluar\n"
read -p "pilihan anda (1-5)? " pil
if [ $pil == '1' ]; then
persegi;
elif [ $pil == '2' ]; then
segitiga;
elif [ $pil == '3' ]; then
lingkaran;
elif [ $pil == '4' ]; then
layang;
elif [ $pil == '5' ]; then
keluar;
else
printf "\nInput Salah\n"
fi
}
function persegi(){
ulang='y'
while [ $ulang == 'y' ];
do
local s;
tput cup 4 26
read -p "Masukan Panjang Sisi:" s
luas=$(($s*$s))
tput cup 5 26
printf "Luas persegi =$luas cm "
tput cup 6 26
read -p "Hitung Lagi ? (y/t);" ulang
if [ $ulang == 't' ]; then
menu;
fi
done
}
function segitiga(){
ulang='y'
while [ $ulang == 'y' ];
do
local s;
tput cup 4 26
read -p "Masukan alas segitiga :" a
tput cup 5 26
read -p "Masukan tinggi segitiga :" b
luas=$(($a*$b/2))
tput cup 6 26
printf "Luas segitiga =$luas cm"
tput cup 7 26
read -p "Hitung Lagi ? (y/t);" ulang
if [ $ulang == 't' ]; then
menu;
fi
done
}
function lingkaran(){
ulang='y'
while [ $ulang == 'y' ];
do
local s;
tput cup 4 26
read -p "Masukan jari jari:" j
luas=$((3*$j*$j))
tput cup 5 26
printf "Luas Lingkaran =$luas cm "
tput cup 6 26
read -p "Hitung Lagi ? (y/t);" ulang
if [ $ulang == 't' ]; then
menu;
fi
done
}
function layang(){
ulang='y'
while [ $ulang == 'y' ];
do
local s;
tput cup 4 26
printf "Menghitung Luas Layang-layang"
tput cup 5 26
read -p "Masukan diagonal 1 :" d1
tput cup 6 26
read -p "Masukan diagonal 2 :" d2
luas=$(($d1*$d2/2))
tput cup 7 26
printf "Luas layang-layang =$luas cm"
tput cup 8 26
read -p "Hitung Lagi ? (y/t);" ulang
if [ $ulang == 't' ]; then
menu;
fi
done
}
function keluar(){
clear
}
menu;