@echo off
:start
CLS
echo.
set/p "b1=Nilai Pertama :
"
set "k1="
set "k2="
echo.
echo [1] kali
echo [2] tambah
echo [3] bagi
echo [4] kurang
set/p "pil=Pilih perintah :
"
if %pil%==''goto start
if %pil%==1 goto kali
if %pil%==2 goto tambah
if %pil%==3 goto bagi
if %pil%==4 goto kurang
echo.
:kali
set/a b1=b1*b2
echo Hasil %b1%*%b2% = %b1%
pause
goto start
:tambah
set/a b=b1+b2
echo Hasil %b1%+%b2% = %b%
pause
goto start
:bagi
set /a c=b1/b2
set /a k1=(b1-c*b2)*10/b2
set /a k2=((b1-c*b2)*10-(k1*b2))*10/b2
if /i %k1% lss 0 set /a k1=0-k1
if /i %k2% lss 0 set /a k2=0-k2
echo Hasil Pembagian dari %b1%/%b2% = %c%,%k1%%k2%
pause
goto start
:kurang
set/a b=b1-b2
echo Hasil %b1%-%b2% = %b%
pause
goto start
:keluar
exit
pause
goto start
1. Perintah untuk Perkalian
:kali // register untuk
perintah perkalian
set/a b1=b1*b2 // kalikan bilangan pertama
dengan bilangan ke dua
echo Hasil %b1%*%b2% = %b1% //
tampilkan hasil dari perkalian
pause // menunda proses
batch program dan menampilkan pesan
yang mendorong user untuk tekan
goto start // kembali ke start
:tambah // register untuk
penjumlahan
set/a b=b1+b2 // jumlahkan bilangan pertama
dengan bilangan kedua
echo Hasil %b1%+%b2% = %b% // tampilkan hasil operasi penjumlahan
pause // menunda proses
batch program dan menampilkan pesan
yang mendorong user untuk tekan
goto start // kembali ke start
:bagi // register pembagian
set /a c=b1/b2 // melakukan operasi pembagian
set /a k1=(b1-c*b2)*10/b2 //
angka pertama di belakang koma
set /a k2=((b1-c*b2)*10-(k1*b2))*10/b2
// angka kedua di belakang koma
if /i %k1% lss 0 set /a k1=0-k1
if /i %k2% lss 0 set /a k2=0-k2
pause // menunda
proses batch program
dan menampilkan pesan yang mendorong user untuk tekan
goto start // perintah kembali ke start
4. Perintah untuk Pengurangan
set/a b=b1-b2 // kurangkan bilangan pertama dengan bilangan
kedua
echo Hasil %b1%-%b2% = %b% // tampilkan hasil pengurangan bilangan
pertama dengan bilangan kedua
pause // menunda
proses batch program
dan menampilkan pesan yang mendorong user untuk tekan
goto start // perintah untuk kembali ke start
mantap
BalasHapusrasanya seperti and amenjadi ironmen
BalasHapus