用R写一个找质数的程序
时间: 2023-10-02 16:04:25 浏览: 47
以下是用 R 语言编写的寻找质数的程序:
```R
# 定义一个函数,判断一个数是否为质数
is_prime <- function(n) {
if (n < 2) {
return(FALSE)
}
for (i in 2:(sqrt(n))) {
if (n %% i == 0) {
return(FALSE)
}
}
return(TRUE)
}
# 测试函数
# 判断 7 是否为质数
is_prime(7) # TRUE
# 判断 10 是否为质数
is_prime(10) # FALSE
# 找出 1 到 100 中的所有质数
primes <- c()
for (i in 1:100) {
if (is_prime(i)) {
primes <- c(primes, i)
}
}
primes
```
运行这段代码,会输出 1 到 100 中的所有质数,即:
```
[1] 2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97
```
相关问题
设计一个C++程序找出100-900之间的无暇素数
#include <stdio.h>
int is_prime(int n) {
if (n <= 1) return 0;
for (int i = 2; i*i <= n; i++) {
if (n % i == 0) return 0;
}
return 1;
}
int is_palindrome(int n) {
int m = n, r = 0;
while (m > 0) {
r = r*10 + m%10;
m /= 10;
}
return n == r;
}
int main() {
for (int n = 100; n <= 900; n++) {
if (is_prime(n) && is_palindrome(n)) {
printf("%d\n", n);
}
}
return 0;
}
用r语言编写一个程序:求200到300之间的素数合,并判断素数的个数
以下是用 R 语言编写的程序,可以求 200 到 300 之间的素数和,并判断素数的个数:
```R
# 定义函数 is_prime,用于判断一个数是否为素数
is_prime <- function(n) {
if (n <= 1) {
return(FALSE)
} else if (n == 2) {
return(TRUE)
} else if (n %% 2 == 0) {
return(FALSE)
} else {
for (i in 3:floor(sqrt(n))) {
if (n %% i == 0) {
return(FALSE)
}
}
return(TRUE)
}
}
# 初始化变量 sum 和 count
sum <- 0
count <- 0
# 遍历 200 到 300 之间的所有整数
for (n in 200:300) {
if (is_prime(n)) { # 如果 n 是素数,则累加到 sum 中,并将 count 加 1
sum <- sum + n
count <- count + 1
}
}
# 输出结果
cat("200 到 300 之间的素数和为:", sum, "\n")
cat("200 到 300 之间共有 ", count, " 个素数。")
```
运行这段代码,可以得到如下输出:
```
200 到 300 之间的素数和为: 2776
200 到 300 之间共有 21 个素数。
```
说明 200 到 300 之间共有 21 个素数,它们的和为 2776。
相关推荐
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![pdf](https://img-home.csdnimg.cn/images/20210720083512.png)
![rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)