实验五土壤密度、土粒密度的测定实验报告
实验地点：
生地楼实验时间：
实验人：
一、目的要求
土壤密度、土粒密度是度量土壤物理特性的指标。由于土壤矿物质和有机质的组成不同，土粒排列松紧不同，团聚体的形状、大小不同，都能引起土壤密度、土粒密度的差异。测定土壤密度、土粒密度，不仅可以计算孔隙度，而且可以计算土壤组成、养分、有机质以及盐分的实际含量。所以，它能为研究土壤组成、性状及肥力提供必要的依据。
二、实验原理
土壤密度，又称为土壤容重，是指单位容积原状土壤的质量，是衡量土壤松紧状态的指标。其单位是g.cm-3，测定土壤密度方法将一定容积的环刀插入土壤中采土，同时，取同层土测量土壤含水量（新鲜土样烘9-12h），然后称重，准确至0.001g，按照干土重计算土壤密度。
土粒密度，表示单位容积土壤固相颗粒的质量（不包括土壤空气和水分），其单位是g.cm-3，在传统土壤学中曾称土壤比重，是指单位体积土壤固相颗粒与同体积4℃水的质量
，之比，由于4℃纯水的密度约为1.0g.cm-3，故土粒密度与土壤比重在数值上非常接近。土粒
密度是用比重瓶测定的，即将已知重量的风干土样，放入有水的比重瓶内，排除空气，定容，求出土壤代换出水的体积。以烘干土重除以体积，即求得土粒密度。
三、实验仪器
比重瓶（50mL）、天平、温度计、电热砂溶干燥器、电炉、烧杯、取土环刀、环刀托、剖面刀、铝盒。
四、操作步骤
1.
?
?
?
?
? 土壤密度的测定——环刀法 野外选剖面点，挖土壤剖面，分层削出横向平面，用剖面刀修平； 环刀托套住环刀无刃口一端，环刀口朝下，垂直下压环刀托把； 将环刀压入土层平面下，待整个环刀全压入土中，且土面将触及环刀托把顶是停止； 挖开环刀周围土壤，切断环刀下方土壤，环刀口应留一些多余土壤，削平； 盖上环刀底盖，垫上滤纸，翻转环刀，使盖好的刃口一端朝下，取下环刀托，同样削平无刃口一端的土面，并盖好盖。
2. 测土壤含水量
? 在环刀采样处另取土样，测定土壤含水量，或直接用环刀内土样测含水量。要三次重复测定土壤含水量。
3. 土粒密度的测定
? 称土：称通过1mm筛孔的风干土样10g（精确到0.001g）装入比重瓶，比重瓶容积为
50mL。
? 加热:向比重瓶内加蒸馏水，约至比重瓶容积一半处，徐徐摇动，使土样充分湿润，与
水混合均匀。将比重瓶放在沙浴上加热沸腾，并保持一小时，在沸腾过程中要经常摇动比重瓶，以驱逐土壤中空气，使土样和水分充分混合均匀。
? 冷却定容：从沙浴上取下比重瓶，冷却，再加入预先煮沸的去co2 蒸馏水，加至略低
于瓶颈为止，静置、冷却澄清后，在比重瓶内继续加蒸馏水至瓶颈，塞好瓶塞，使多余的水从颈孔溢出，用滤纸擦干水分。
五、结果计算
土壤密度(ρb)=
式中：ρ?.100?(100%+?)-3； b——土壤密度（g/cm）
g——环刀内湿土样重量（g）；
V——环刀容积（cm3）；
W——土壤含水量（％）；
土粒密度(ρb)=
式中：ρ??+g1?g2ρwt -3； b——土粒密度（g/cm）
g——烘干土重（g）;
g1——t℃时比重瓶+水重（g）;
g2——t℃时比重瓶+水重+土样重（g）；
ρ
wt——t℃时蒸馏水密度（g/cm-3）；
土壤密度记录表
重复 环刀重 环刀内湿土重
g 环刀+干土重 土壤含水量w 土壤容重rs 平均土壤密度
Ⅰ 101.52 158.36 241.10 12.23% 1.58
1.60
Ⅱ 102.51 162.58 246.30 11.13% 1.62
土粒密度记录表
重复
Ⅰ 10.000 74.650 81.042 3.608 3.256 3.058
Ⅱ 10.000 78.945 85.472 3.473 2.879 g烘干土重 g1t℃时比重瓶+水重 g2t℃时比重瓶+水重+土样重 g+g1-g2 土粒密度 平均土粒密度
六、结果分析与讨论
1. 加热时应不断摇动比重瓶，以除去土壤空气。 2. 比重瓶冷却至室温澄清后，再盖上瓶盖。
3. 在测定土粒密度时，用温度计测瓶内水温为24.0℃。
第二篇：实验五(c语言实验报告)
上机题5
一.实验目的：输出1+2+3+?+100和1^+2^+3^+?+100^的值
二.实验设备：计算机
三.实验内容：
1)实验题目：编写程序：求1+2+3+?+100和1^+2^+3^+?+100^
2)算法分析：
(1)int s1=0,i=1,double s2=0;
(2)判断i<=100?是否成立,是则执行下一步；否则结束循环；
(3)s1=s1+i,s2=s2+i*i,i=i+1;返回第二步；
(4)输出s1,s2的值。
3).流程图：省略
4).源代码：
#include<stdio.h>
main()
{int s1,i;
double s2;
s1=0,s2=0,i=1;
while(i<=100)
{s1+=i;
s2=s2+i*i;
i++;
}
printf("s1=1+2+3+?+100=%d\n",s1);
printf("s2=1^+2^+3^+?+100^=%lf\n",s2);
}
5).输出数据（截屏复制）：
四、数据结果分析或实验体会：学会for的使用
上机题7
一.实验目的：在屏幕上输出一个用“*”组成的菱形。
二.实验设备：计算机
三.实验内容：
1
1.)实验题目：编写程序：在屏幕上输出一个用“*”组成的菱形，如
下图所示，并编写程序改变其大小。
从20列开始输出*
????????????*
***
*****
???????????*******
将该文件数保留 *****
在变量t中 ***
*
由“*”组成的菱形
2.)算法分析：利用循环控制行数，“ ”和“*”
3.)源代码：
1．为变形前的： 2.变形后的：
#include<stdio.h> #include<stdio.h>
main() main()
{int i,j,k,t; {int i,j,k,t;
for(i=0;i<=3;i++) for(i=0;i<=5;i++)
{for(j=0;j<=20-i;j++) {for(j=0;j<=20-i;j++)
printf(" "); printf(" ");
for(k=0;k<=2*i;k++) for(k=0;k<=2*i;k++) printf("*"); printf("*"); printf("\n"); printf("\n");
} }
t=j; t=j;
for(i=0;i<=2;i++) for(i=0;i<=4;i++)
{for(j=0;j<=t+i;j++) {for(j=0;j<=t+i;j++)
printf(" "); printf(" ");
for(k=0;k<=4-2*i;k++) for(k=0;k<=8-2*i;k++)
printf("*"); printf("*");
printf("\n");｝｝ printf("\n");｝｝
4.)输出数据（截屏复制）：
2
（1） （2）
四、数据结果分析或实验体会：
利用空格和“*”可以组成各种图形
上机题8
一.实验目的：求100以内的整数中为13的倍数的最大数
二.实验设备：计算机
三.实验内容：
1.)实验题目：（1）编写程序输出100以内的整数中为13的倍数的最
大数
（2）将“break;”改成“continue；”后，分析程序
的运行结果
2.)算法分析：（1）int i=100;
(2)判断i>=0,是则执行下一步；否则退出循环
（3）判断i%13是否等于0，是则中断循环，输出i
的值；否则返回第二步；
3.)源代码：
（1） #include<stdio.h> （2）#include<stdio.h>
main() main()
{int i; {int i;
for(i=100;i>=0;i--) for(i=100;i>=0;i--)
if(i%13==0)break; if(i%13==0)contiune;
printf("%d\n",i); printf("%d\n",i);
} }
5.)输出数据（截屏复制）
（1） （2）
四、数据结果分析或实验体会：
要理解并区分break与continue的作用和效果
上机题9
一.实验目的：设s=1+2+?+n,求满足s>100时s的最下值。
二.实验设备：计算机
三.实验内容：
1.)实验题目：编写程序实现：设s=1+2+?+n,求满足s>100时s的最下
值；
3
2.)算法分析：(1)int i=1,s=0;
(2)判断i<=20是否成立，是则下一步；否则退出循环；
(3)s=s+i,i++;if(s>100)break;否则返回第二步；
(4)输出s的值。
3.)源代码：
#include<stdio.h>
main()
{int i,s=0;
for(i=1;i<=20;i++)
{s=s+i;
if(s>100)break;
}
printf("s=%d\n",s);
}
4.)输出数据（截屏复制）：
四、数据结果分析或实验体会：运用break达到控制结束的目的 上机题10
一.实验目的：找出2—5000中的所有完数
二.实验设备：计算机
三.实验内容：
1.)实验题目：一个数如果恰好等于它的因子之和，这个数就称为“完
数”，编写程序找出2—5000中的所有完数。
2.)算法分析：
（1）int s,i,x;s=0；s=2;
（2）判断x<=5000是否成立，是则执行下面循环；否则退出循环
（3）s=0;i=1;判断i<=x-1是否成立，是则执行下一步；否则退出循
环，返回第二步；
（4）if(x%i==0),则s=s+i; if(s==x),则输出x的值
3.)源代码：
#include<stdio.h>
main()
{int s,i,x;
s=0;
4
for(x=2;x<=5000;x++)
{s=0;
for(i=1;i<=x-1;i++)
if(x%i==0)s=s+i;
if(s==x)printf("%d\n",x);｝｝
4.)输出数据（截屏复制）：
四、数据结果分析或实验体会：认识到什么是完数，以及掌握for的用法
【上机题11】
一.实验目的：计算sinx的近似值，精确到0.0000001.
二.实验设备：计算机
三.实验内容：
1.)实验题目：编写程序，计算sinx的近似值，精确到0.0000001。
2.)算法分析：
（1）double s,x,a,b,c; int i; i=1,s=0,b=1;
（2）输入x;a=x;
(3)c=a/b;s=s+c;a=-a*x*x; b=b*2*i*(2*i+1); i++;
(4)判断c的绝对值是否大于0.000001，是则返回第三步；否则退
出循环，输出s的值。
3.)源代码：#include<stdio.h>
#include<math.h>
main()
{double s,x,a,b,c;
int i;
i=1,s=0,b=1;
scanf("%lf",&x);
a=x;
do
{c=a/b;
s=s+c;
a=-a*x*x;
b=b*2*i*(2*i+1);
5
i++;
}
while(fabs(c)>0.000001);
printf("%lf\n",s);
}
4.)输入数据（截屏复制）：
5.)输出数据（截屏复制）：
四、数据结果分析或实验体会： 进一步灵活运用
while,for,do-while 6