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