华水C语言实验报告3由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“华水c语言实验报告”。
华北水院高级语言程序设计（C语言）实验报告
（三）2012--2013学年第二学期
2012级专业：学号：姓名：………………………………………………………………………………………………
一、实验题目：循环结构程序设计
二、实验目的：（略）
三、实验内容
1.程序验证（略）
2．程序设计
1)找出100-900之间的无暇素数。所谓无暇素数是指本身为素数，且其逆序数也是素数的数。例如：113是一个素数，311也是一个素数，113就是无暇素数。源代码：
#include
#include
int fun(int x)
{
int k;
for(k=2;k
if(x%k==0)
return 0;return 1;}
main()
{
int i,count=0;
for(i=100;i
{
int temp1=i%10;
int temp2=(i)/10%10;
int temp3=i/100;
int temp4=temp1*100+temp2*10+temp3;
if(fun(i)&&fun(temp4))
{
count++;
printf(“%d ”,i);
if(count%9==0)
printf(“n”);
}
}
printf(“n”);return 0;
}
运行结果101 107 113 131 149 151 157 167 179181 191 199 311 313 337 347 353 359
373 383 389 701 709 727 733 739 743
751 757 761 769 787 797
Pre any key to continue
2)编程：用迭代法求某数a的平方根。平方根的迭代公式如下：xn+1=(xn+a/xn)/2;设x0=a/2;
当迭代相邻两项差的绝对值小于10-5时，迭代结束。
源代码：
#include
#include
void main()
{
float a,x0,x1;
printf(“Input a number:”);
scanf(“%f”,&a);
if(a
printf(“Error!n”);
else
{
x0=a/2;
x1=(x0+a/x0)/2;
do
{
x0=x1;
x1=(x0+a/x0)/2;
}
while(fabs(x0-x1)>1e-6);
printf(“sqrt(%f)=%fn”,a,x1);
}
}
运行结果：
Pre any key to continue
