R中的乘法表

时间:2018-04-16 12:52:21

标签: r

我需要编写一个函数,在给定用户指定的整数的情况下,将一个乘法表(1到10)打印到控制台。该函数不应该有任何参数,但应该请求用户输入。

3 个答案:

答案 0 :(得分:2)

有一些关于如何获取用户输入并在函数here中使用它的教程:

readinteger <- function()
{ 
  n <- readline(prompt="Enter an integer: ")
  return(as.integer(n))
}

print(readinteger())

有关于您希望实现的目标的完整教程here

代码如下(显然不是我的,因为我从上面借过它):

# R Program to find the multiplicationtable (from 1 to 10)
# take input from the user
num = as.integer(readline(prompt = "Enter a number: "))
# use for loop to iterate 10 times
for(i in 1:10) {
print(paste(num,'x', i, '=', num*i))
}

输出如下:

Enter a number: 7
[1] "7 x 1 = 7"
[1] "7 x 2 = 14"
[1] "7 x 3 = 21"
[1] "7 x 4 = 28"
[1] "7 x 5 = 35"
[1] "7 x 6 = 42"
[1] "7 x 7 = 49"
[1] "7 x 8 = 56"
[1] "7 x 9 = 63"
[1] "7 x 10 = 70"

可能有一点谷歌会回答你的问题吗?

答案 1 :(得分:1)

这是一个函数mult_tab,它在给定用户输入的整数时创建一个乘法表。

mult_tab <- function(n) seq.int(n) %o% seq.int(n)

例如,

mult_tab(4)
#      [,1] [,2] [,3] [,4]
# [1,]    1    2    3    4
# [2,]    2    4    6    8
# [3,]    3    6    9   12
# [4,]    4    8   12   16

答案 2 :(得分:0)

multiplication <- function(){

  m <- as.numeric(readline("Input: ")) # Take user input
  print(paste("Multiplication table of", m))
  # print multiplication table
  for (i in 1:10){ print (paste(m, "x", i, "=", i*m)) }  
}

multiplication()

输出:

Input: 7
#[1] "Multiplication table of 7"
#[1] "7 x 1 = 7"
#[1] "7 x 2 = 14"
#[1] "7 x 3 = 21"
#[1] "7 x 4 = 28"
#[1] "7 x 5 = 35"
#[1] "7 x 6 = 42"
#[1] "7 x 7 = 49"
#[1] "7 x 8 = 56"
#[1] "7 x 9 = 63"
#[1] "7 x 10 = 70"
>