上机实验报告Word文件下载.docx
- 文档编号:6790052
- 上传时间:2023-05-07
- 格式:DOCX
- 页数:5
- 大小:16.50KB
上机实验报告Word文件下载.docx
《上机实验报告Word文件下载.docx》由会员分享,可在线阅读,更多相关《上机实验报告Word文件下载.docx(5页珍藏版)》请在冰点文库上搜索。
根据b的值选择不同的运算。
当b=1时,去进行c+d的运算练习;
当b=2时,去进行c-d的运算练习;
当b=3时,去进行c×
d的运算练习。
每完成一个算题就给出是否正确的信息。
3.根据答案正确与否统计。
正确时,显示’right’;
错误时,显示’wrong’。
4.步骤重复10次。
5.输出学生成绩。
三.
运行结果:
num:
03name:
wfage:
18sex:
fmath:
98phy:
75eng:
65Inputthe2student:
06name:
scage:
17sex:
78phy:
45eng:
65Inputthe3student:
09name:
ytage:
mmath:
69phy:
50
-----------------------------table--------------------------------------------------------------------------------------------------------------------------------num
name
agesexmathphy
engave---------------------------------------------------------------------------------------------------
3
wf
18
f
---------------------------------------------------------------------------------------------------
9
yt
17
m
----------------------------------------------------------------------------------------------------
6
sc
3------------------------------------------------------------------------------------------------num
agesexmathphyengave-----------------------------------------------------------------
-------------------------------
-------------------------------------------------------------------------------------------------
6------------------------------------------------------------------------------------------------num
agesexmathphyengave------------------------------------------------------------------------------------------------
----------------------------------true?
y/Ny1
----------------table---------------------------------------------------------------------------------------------------------------num
agesexmath
phy
eng
ave-------------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------------
0
1math:
passnumis:
3
nopassnumis:
+82=114right!
97*15=1455right!
99-58=41right!
76-66=
10right!
58+13=71right!
37+49=86right!
99+52=151right!
49*69=5462wrong!
73-38=31wrong!
86+34=120right!
markis80四.
主要错误改正方法1.在本题的编写过程中常出现begin和end不配对,只要始它们的个数相同就可以了,就可以了。
在程序中常出现的’unknownidentifier’没有定义的错误,只要在程序前加上定义,就可以了。
还有就是typemismatch’的类型不匹配,只要根据前后内容,重新定义,就可以了。
2.在本题编写中,题目要求是两个两位数运算,如果写成c:
=random在运行过程中,就会出现一位数运算,只要把它写成c:
=random+10,就可以了。
五.
实习小结1.第一题的程序编写比较复杂,需要较多的定义,因而在后面的程序部分,就常出现标识符重复,而导致的类型不匹配。
还有就是每个部分编好后,上下不能连接,而无法调用。
2.第二题较第一题简单,和书上的例题类似,所以,比较简单,但从中也出现一些不问题。
以上两大题中出现的问题,要在同学的帮助下,才能完成。
总的来说两题程序比较困难六.
程序清单;
constm=3;
n=3;
typestudent=recordnum:
integer;
name:
string[3];
age:
sex:
char;
s:
array[1..n]ofreal;
math,eng,phy:
real;
ave:
end;
sarr=array[1..m]ofstudent;
ta=array[1..m]ofstudent;
f=string[6];
varstu:
sarr;
ct:
ta;
k,d:
procedurereadin;
constwrong='
0stu[p].avethenp:
=i;
tm[1]:
=stu[p];
stu[p]:
=stu[j];
stu[j]:
=tm[1];
procedurehead;
vari:
beginwrite;
fori:
=1to72dowrite;
writeln;
write;
withct[1]dobeginwrite;
=1tondowrite;
procedurefind;
varn,i:
u:
boolean;
beginu:
=true;
whileudobeginwrite;
readln;
=1tomdobeginifstu[i].num=nthenbeginct[1]:
=stu[i];
=false;
d:
=iend;
proceduredel;
b:
beginhead;
ifb='
y'
thenbeginwrite;
withstu[d]dobeginnum:
=0;
='
0'
;
sex:
f'
=1tondos[i]:
=0end;
endelseend;
proceduretj;
varw1,q1,q2,num,j:
h1,h2,h3:
beginh1:
h2:
h3:
q1:
q2:
casew1of1:
h1:
2:
3:
if
h1thenbeginbeginforj:
=1tomdowithstu[j]doifstu[j].math>
=60thenq1:
=q1+1elseq2:
=q2+1;
ifh2thenbeginbeginforj:
=1tomdowithstu[j]doifstu[j].phy>
ifh3thenbeginbeginforj:
=1tomdowithstu[j]doifstu[j].eng>
procedurehead1;
varj,i:
beginwriteln;
forj:
=1tomdobeginwithstu[j]dobeginwrite;
beginreadin;
ave;
k:
whilek5dobeginwriteln;
read;
whileandandandanddobeginwriteln;
readend;
casekof1:
beginpx;
head1end;
beginfind;
headend;
del;
px;
4:
begintj;
5:
end..;
vara,b,c,d,e:
right:
procedures1;
=trueend;
procedures2;
=falseend;
procedures3;
varh:
ifh=x+ythens1elses2end;
procedures4;
varh,w:
beginifx<
ythenbeginw:
=x;
x:
=y;
y:
=wend;
ifh=x-ythens1elses2end;
procedures5;
ifh=x*ythens1elses2end;
beginrandomize;
e:
fora:
=1to10dobeginc:
=random+10;
=random;
casebof0:
s3;
1:
s4;
s5;
ifrightthene:
=e+10;
writelnend.
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 上机 实验 报告