输入输出二和控制流三实验.docx
- 文档编号:5941641
- 上传时间:2023-05-09
- 格式:DOCX
- 页数:13
- 大小:134.16KB
输入输出二和控制流三实验.docx
《输入输出二和控制流三实验.docx》由会员分享,可在线阅读,更多相关《输入输出二和控制流三实验.docx(13页珍藏版)》请在冰点文库上搜索。
输入输出二和控制流三实验
输入输出
(二)和控制流(三)实验
完成以下题目,把程序代码复制到word文件中,并截屏保存运行的情况。
上交word文件已{学号+姓名}为文件名。
1.
计算
例K=3,sum=1!
+2!
+3!
=9。
从键盘输入正整数k,将计算结果输出至屏幕,源程序:
programp1;
var
i,j,t,k,sum:
integer;
begin
write('pleaseiuputthek:
');
read(k);
fori:
=1tokdo
begin
sum:
=0;
t:
=1;
forj:
=1toido
begin
t:
=t*j;
sum:
=sum+t;
end;
end;
write('thesumis:
',sum);
writeln;
readln;
end.
结果:
2.求两自然数,其和是667,最小公倍数与最大公约数之比是120:
1(例如(115,552)、(232,435))。
源程序:
programp2;
vari,m,lcm,k,g:
longint;
functiongcd(a,b:
longint):
longint;
vary:
longint;
begin
whileb<>0do
begin
y:
=amodb;
a:
=b;
b:
=y;
end;
gcd:
=a
end;
begin
fori:
=2to333do
begin
g:
=667-i;
m:
=gcd(i,g);
lcm:
=(i*g)divm;
if(lcm=m*120)and(lcmmodm=0)then
writeln(i:
15,g:
15);
end;
readln;
end.
结果:
3.求三角形面积:
给出三角形的三个边长为a,b,c,求三角形的面积。
提示:
根据海伦公式来计算三角形的面积:
S=
;Area=
源程序:
programp3;
var
a,b,c:
real;
begin
write('pleaseenterthea,b,c:
');
read(a,b,c);
begin
t:
=(a+b+c)/2;
area:
=sqrt(t*(t-a)*(t-b)*(t-c));
end;
write('theareais:
',area);
writeln;
end.
结果:
4.输入小于5位的整数,将其反向输出。
如1234输出为4321.
源程序:
programp4;
var
k:
string;
n,i:
integer;
begin
writeln('pelaseenterthenumber:
');
read(k);
n:
=length(k);
fori:
=ndownto1do
begin
write(k[i]);
end;
writeln;
readln;
end.
结果:
5.输出上三角型和下三角型的九九乘法表。
源程序(下三角):
programp5;
var
i,j,t:
integer;
begin
fori:
=1to9do
begin
forj:
=1toido
begin
t:
=i*j;
write(i,'*',j,'=',t:
2,'':
2);
end;
writeln;
end;
readln;
end.
结果:
源程序(上三角):
programp5;
var
i,j,t:
integer;
begin
fori:
=1to9do
begin
forj:
=1toi-1do
write('':
8);
forj:
=ito9do
begin
t:
=i*j;
write(i,'*',j,'=',t:
2,'':
2);
end;
writeln;
end;
readln;
end.
结果:
6.编一个“念数字”的程序,它能让计算机完成以下工作:
当你输入一个0至99之间的数后,计算机就会用汉字拼音印出这个数的念结束。
例1:
Inputdata:
35SANSHIWU
例2:
Inputdata:
0
LING
如果输入的数不在0到99之间,就印出“CUOLE”(错了),请求重新输入。
注:
为了使不熟悉汉语拼音的同学也能做这个题,把“零,一,二,三,……,九,十”的拼音法写在下面。
零LING一YI二ER三SAN四SHI五WU
六LIU七QI八BA九JIU十SHI
源程序:
Programp6;
Varx,a,b:
Integer;
ProcedureReadDigit(n:
Integer);
Begin
Casenof
0:
write('LING');
1:
write('YI');
2:
write('ER');
3:
write('SAN');
4:
write('SHI');
5:
write('WU');
6:
write('LIU');
7:
write('QI');
8:
write('BA');
9:
write('JIU');
End;
End;
Begin
Repeatwrite('Inputdata:
');
readln(x);
if(x<0)or(x>99)then
writeln('CuoLe');
Until(x>=0)and(x<=99);
If(x>=0)and(x<=9)then
ReadDigit(x)
Else
Begin
a:
=xDIV10;
b:
=xmod10;
Ifa<>1then
ReadDigit(a);
write('Shi','':
2);
ifb<>0then
ReadDigit(b);
End;
writeln;
readln;
End.
结果:
7.输入10个数,输出其中的最小值和最大值
源程序:
programp7;
var
a:
array[1..10]ofinteger;
i,max,min:
integer;
begin
writeln('pleaseenterthe10numbers:
');
fori:
=1to10do
read(a[i]);
max:
=a[1];
min:
=a[1];
fori:
=1to10do
begin
ifa[i]>maxthen
max:
=a[i];
ifa[i] min: =a[i]; end; writeln('themin: ',min: 2,'': 2,'themax: ',max: 2); readln; end. 结果: 8.利用下列公式计算并输出π的值 源程序: programp8; var pi,t: real; n: integer; begin pi: =0; forn: =1to1000do begin t: =1/(4*n-3)-1/(4*n-1); pi: =pi+4*t; end; writeln('pi=',pi); readln; end. 结果: 9.选做-牛顿迭代法原理(参考下面或上网查看,) 设已知方程 的近似根 则在 附近 可用一阶泰勒多项式 近似代替.因此,方程 可近似地表示为 .用 表示 的根,它与 的根差异不大. 设 由于 满足 解得 重复这一过程,得到迭代格式 这就是著名的牛顿迭代公式,它相应的不动点方程为 . 用牛顿迭代法求方程 的正根 源程序: programp9; var x0,x1,f,f1: real; begin x0: =0.8; repeat x1: =x0; f: =x0*exp(x1)-1; f1: =exp(x1)+x0*exp(x1); x0: =x1-f/f1; untilabs(x1-x0)>=1e-5; writeln('theanswer: ',x0); readln; end. 结果:
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 输入输出 控制 实验