【任务需求】用r语言 定义一个函数，根据杨辉三角的数学概念，使用循环嵌套进行编写实现杨辉三角的关，并用 for 循环实现10阶杨辉三角，最后输出时需使10阶杨辉三角每行数字左右对称，按要求编写程序

在R语言中，我们可以创建一个函数来生成指定阶数的杨辉三角（Pascal's Triangle）。杨辉三角是一个二项式系数的几何排列，每个数字是上一行两个对应位置数字之和。以下是使用for循环和嵌套循环来实现10阶杨辉三角，并使其每行数字左右对称的示例代码：

# 创建一个函数，输入阶数，返回相应阶数的杨辉三角
generate_pascal_triangle <- function(n) {
  triangle <- matrix(0, nrow = n, ncol = n)
  
  # 从第一行开始填充，每行的第一个和最后一个元素为1
  for (i in 0:(n - 1)) {
    triangle[i + 1, 1] <- triangle[i + 1, n] <- 1
  }
  
  # 使用嵌套循环填充中间部分
  for (i in 2:(n - 1)) {
    for (j in 2:(i - 1)) {
      triangle[i, j] <- triangle[i - 1, j - 1] + triangle[i - 1, j]
    }
  }

  # 左右对称
  for (i in 2:n) {
    triangle[i, ] <- c(triangle[i, ], rev(triangle[i, ][-1]))
  }
  
  return(triangle)
}

# 生成10阶杨辉三角
pascal_10th_row <- generate_pascal_triangle(10)

# 输出结果
print(pascal_10th_row)

这个函数首先初始化一个矩阵，然后通过两层循环填充杨辉三角，最后通过第三层循环保证每一行都是左右对称的。运行此代码后，你会看到10阶的杨辉三角。