编辑代码

convertCtoF <- function(degC) {
  degF <- round(degC * 9 / 5 + 32, digits = 2)
  return(degF)
}
convertTempRange <- function(minValue, maxValue, intervalValue) {
  results <- matrix(nrow = ((maxValue - minValue) / intervalValue) + 1, ncol = 2)
  colnames(results) <- c("Celsius", "Fahrenheit")
  
  for(i in seq(minValue, maxValue, by = intervalValue)) {
    fahrenheit <- convertCtoF(i)
    results[((i - minValue) / intervalValue) + 1, ] <- c(i, fahrenheit)
  }
  
  results <- round(results, 2)
  return(results)
}
cat("Temperature Conversion Program by Yanghong Liu\n")
cat("============================================\n")

results <- convertTempRange(0, 100, 20)
print(results, row.names = FALSE)