Pertemuan Ke4 : Program Kalkulator

NAMA : MUHAMMAD REZA PAHLEVI
NIM : 0612 3070 1284
KELAS : 3 TCA MATA KULIAH : PRAKTEK SISTEM OPERASI

Source Program :

@echo off
:awal
echo.
set/p "b1=Masukkan Bilangan Pertama ="
set/p "b2=Masukkan Bilangan Kedua ="

set "k1="
set "k2="
echo.
echo [*] Kali
echo [+] Tambah
echo [-] Kurang
echo [/] Bagi
echo [c] close
set/p "pil=Pilih Perhitungan :...."
if %pil%=='' goto awal
if %pil%==* goto kali
if %pil%==+ goto tambah
if %pil%==- goto kurang
if %pil%==/ goto bagi
if %pil%==c goto keluar
echo.

:kali
set/a b=b1*b2
echo Hasil kalinya Adalah = %b%
pause
goto awal

:tambah
set/a b=b1+b2
echo Hasil tambahnya Adalah = %b%
pause
goto awal

:kurang
set/a b=b1-b2
echo Hasil kurangnya Adalah = %b%
pause
goto awal

:bagi
set/a x=b1/b2
set/a k1=(b1-x*b2)*10/b2
set/a k2=((b1-x*b2)*10-(k1*b2))*10/b2
if errorlevel 1 goto start
if /i %k1% lss 0 set /a k1=0-k1
if /i %k1% lss 0 set /a k2=0-k2
echo Hasil baginya Adalah = %x%,%k1%%k2%
pause
goto awal

echo.
:keluar
exit