# 문제 1. 호텔 숙박을 예약하려고 한다. 숙박비는 12만원인데
# 거기에 세금 10%, 봉사료 15%가 더 붙는다고 할 때,
# 총 예약 비용은 얼마인지 계산하시오.
Accommodation_costs <- 120000
Accommodation_costs <- Accommodation_costs*1.25
print(Accommodation_costs)cat("총 예약 비용:");cat(Accommodation_costs)
-------------------------------------------------------------------------------------------
# 문제 2. 섭씨온도와 절대온도, 화씨온도는 다음과 같은 관계를 가진다.
# 다음 식들을 이용하여 절대온도 200K를 화씨온도로 바꾸시오.
# 화씨온도=1.8*섭씨온도+32
# 절대온도=섭씨온도+273
k <- 200
c <- k-273
f <- 1.8*c+32
print(f)cat("화씨온도:"); cat(f)
-------------------------------------------------------------------------------------------
#문제 3. 제품종류, 크기, 색상 정보가 나타나 있는 제품코드(ex. TVLED48W)에서
#정보를 분리 추출하여 TVLED-48-W와 같이 문자열을 재구성한 후 출력하시오.
#(단, 제품종류는 5글자, 크기는 2글자, 색상은 1글자라고 가정)
Product_code <- "TVLED48W"
Kinds <- substr(Product_code,1,5)
Size <- substr(Product_code,6,7)
Color <- substr(Product_code,8,8)
Product_code_data <- paste0(Kinds,"-",Size,"-",Color)
print(Product_code_data)
-------------------------------------------------------------------------------------------
댓글 피드백 환영합니다.