| PENGERTIAN DIFERENSIASI |
# Fungsi untuk menghitung Laba Kotor
gross_profit <- function(revenue, variable_cost) {
revenue - variable_cost
}
# Fungsi untuk menghitung Laba Operasi
operating_profit <- function(revenue, fixed_cost) {
revenue - fixed_cost
}
# Fungsi untuk menghitung Laba Bersih
net_profit <- function(operating_profit, non_operating_revenue, tax) {
operating_profit - non_operating_revenue - tax
}
# Contoh Penggunaan
revenue <- 1000000
variable_cost <- 500000
fixed_cost <- 300000
non_operating_revenue <- 200000
tax <- 50000
# Menghitung Laba Kotor
laba_kotor <- gross_profit(revenue, variable_cost)
print(paste("Laba Kotor:", laba_kotor))
## [1] "Laba Kotor: 5e+05"
# Menghitung Laba Operasi
laba_operasi <- operating_profit(revenue, fixed_cost)
print(paste("Laba Operasi:", laba_operasi))
## [1] "Laba Operasi: 7e+05"
# Menghitung Laba Bersih
laba_bersih <- net_profit(laba_operasi, non_operating_revenue, tax)
print(paste("Laba Bersih:", laba_bersih))
## [1] "Laba Bersih: 450000"
Dalam kode ini, kami telah mendefinisikan tiga fungsi untuk menghitung Laba Kotor, Laba Operasi, dan Laba Bersih. Fungsi-fungsi ini mengambil input berupa angka yang mewakili jumlah yang bersangkutan (misalnya, pendapatan, biaya variabel, dll.). Lalu, kode menghitung dan mencetak nilai-nilai tersebut.