完整的delphi程序设计教程课后习题答案
239页1题小时钟
procedure TForm1.Timer1Timer(Sender: TObject);
var
xt,yt:integer;
h,m,s,ms:word;
begin
decodetime(time,h,m,s,ms);
xt:=paintbox1.clientwidth div 2;
yt:=paintbox1.clientheight div 2;
paintbox1.refresh;
paintbox1.canvas.moveto(xt,yt);
paintbox1.canvas.pen.width:=3;
paintbox1.canvas.lineto(xt+round(sin((60*h+m)/(12*60)*2*pi)*100), yt-round(cos((60*h+m)/(12*60)*2*pi)*100));
paintbox1.canvas.moveto(xt,yt);
paintbox1.canvas.pen.width:=2;
paintbox1.canvas.lineto(xt+round(sin(m/60*2*pi)*140),
yt-round(cos(m/60*2*pi)*140));
paintbox1.canvas.moveto(xt,yt);
paintbox1.canvas.pen.width:=1;
paintbox1.canvas.lineto(xt+round(sin(s/60*2*pi)*180),
yt-round(cos(s/60*2*pi)*180));
end;
end.
239页3题求两点间的距离
procedure TForm1.Button1Click(Sender: TObject);
begin
paintbox1.Refresh;
formpaint(sender);
end;
procedure TForm1.FormPaint(Sender: TObject);
var
xt,yt:integer;
ax,ay,bx,by:integer;
begin
xt:=paintbox1.ClientWidth div 2;
yt:=paintbox1.Clientheight div 2;
paintbox1.canvas.MoveTo(xt,0);
paintbox1.canvas.lineTo(xt,2*yt);
paintbox1.canvas.MoveTo(0,yt);
paintbox1.canvas.lineTo(2*xt,yt);
ax:=strtoint(edit1.text);
ay:=strtoint(edit2.text);
bx:=strtoint(edit3.text);
by:=strtoint(edit4.text);
edit5.Text:=floattostr(sqrt((ax-bx)*(ax-bx)+(ay-by)*(ay-by))); paintbox1.canvas.MoveTo(xt+ax*10,yt-ay*10);
paintbox1.canvas.lineTo(xt+bx*10,yt-by*10);
end;
end.
226页5题输入学生成绩
var
Form1: TForm1;
type
studentrecord=record
xh,xm:string[6];
xb:boolean;
yy,sx,dz:integer;
end;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var t:studentrecord;
f:file of studentrecord;
size:integer;
begin
t.xh:=edit1.Text;
t.xm:=edit2.Text;
t.sx:=strtoint(edit3.Text);
t.yy:=strtoint(edit4.Text);
t.dz:=strtoint(edit5.Text);
if radiobutton1.Checked then
t.xb:=true
else
t.xb:=false;
assignfile(f,'c:\my documents\stu.dat');
if fileexists('c:\my documents\stu.dat') then
reset(f)
else
rewrite(f);
size:=filesize(f);
seek(f,size);
write(f,t);
closefile(f);
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
end;
procedure TForm1.Button2Click(Sender: TObject); begin
close;
end;
end.
226页8题保存获得奖学金者
var
Form1: TForm1;
type
studentrecord=record
xh,xm:string[6];
xb:boolean;
yy,sx,dz:integer;
end;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject); var t:studentrecord;
f,f1:file of studentrecord;
p1,p2:boolean;
begin
assignfile(f,'c:\my documents\stu.dat');
reset(f);
assignfile(f1,'c:\my documents\stu1.dat');
rewrite(f1);
while not eof(f) do
begin
read(f,t);
p1:=(t.sx>=85)and(t.yy>=85)and(t.dz>=85);
p2:=t.sx+t.yy+t.dz>=270;
if p1 or p2 then
write(f1,t);
end;
closefile(f);
closefile(f1);
end;
procedure TForm1.FormCreate(Sender: TObject);
var t:studentrecord;
f:file of studentrecord;
xingbie:string;
begin
assignfile(f,'c:\my documents\stu1.dat');
reset(f);
while not eof(f) do
begin
read(f,t);
if t.xb then
xingbie:='男'
else
xingbie:='女';
listbox1.Items.Add(t.xh+' '+t.xm+' '+xingbie+' '+inttostr(t.sx)+ ' '+inttostr(t.yy)+' '+inttostr(t.dz));
end;
closefile(f);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
end.
166页22题素数
procedure TForm1.Button1Click(Sender: TObject);
type
sushuset=set of byte;
var
sushu:sushuset;
i,j,n,m,k:longword;
s,s0:string;
begin
n:=strtoint(edit1.text);
m:=strtoint(edit2.text);
if n mod 2=0 then n:=n+1;
k:=m-n;
if k>255 then
showmessage('范围太大，请重新输入区间端点!')
else
begin
sushu:=[0..k];
for i:=2 to n-1 do
for j:=n to m do
if j mod i =0 then sushu:=sushu-[j-n];
for i:=n to m div 2 do
for j:= i+1 to m do
if j mod i =0 then sushu:=sushu-[j-n];
s:='';
s0:='';
for i:=n to m do
if i-n in sushu then
begin
if length(s0+' '+inttostr(i))>60 then
begin
s:=s+s0+chr(13);
s0:=''
end;
s0:=s0+' '+inttostr(i);
end;
s:=s+s0;
label1.caption:=s;
groupbox1.Top:=(panel1.Top-groupbox1.height) div 2;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
groupbox1.Top:=(panel1.Top-groupbox1.height) div 2;
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); var j:set of char;
begin
j:=['0'..'9',#8];
if not(key in j) then key:=#0;
end;
end.
148页12题整除的数
implementation
{$R *.dfm}
function d7(x:integer):boolean;
begin
if x mod 7=0 then d7:=true
else d7:=false;
end;
function d17(x:integer):boolean;
begin
if x mod 17=0 then d17:=true
else d17:=false;
end;
procedure TForm1.FormActivate(Sender: TObject);
var
n:integer;
begin
for n:=1000 to 4000 do
if d7(n)and d17(n) then memo1.Lines.Add(inttostr(n)); end;
end.
148页17题求斐波那契数列问题
implementation
{$R *.dfm}
function fib(n:integer):int64;
begin
case n of
1,2:fib:=1;
else
fib:=fib(n-1)+fib(n-2);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
k:integer;
begin
memo1.lines.clear;
for k:=1 to strtoint(edit1.text) do
memo1.lines.add(format('%2d %3d',[k,fib(k)]));
end;
end.
120页10题，判断是否是闰年
procedure TForm1.Button1Click(Sender: TObject);
var
y,m:integer;
begin
y:=strtoint(edit1.text);
m:=strtoint(edit2.text);
label3.Caption:='';
if((y mod 4 = 0) and (y mod 100 <> 0)) or (y mod 400=0) then label3.Caption:=edit1.text+'年是闰年,'
else
label3.Caption:=edit1.text+'年不是闰年,';
case m of
3,4,5:Label3.Caption:=Label3.Caption+edit2.Text+'月份是春天,'; 6,7,8:Label3.Caption:=Label3.Caption+edit2.Text+'月份是夏天,'; 9,10,11:Label3.Caption:=Label3.Caption+edit2.Text+'月份是秋天,'; else
Label3.Caption:=Label3.Caption+edit2.Text+'月份是冬天,';
end;
case m of
1,3,5,7,8,10,12:Label3.Caption:=Label3.Caption+'共有31天,';
4,6,9,11:Label3.Caption:=Label3.Caption+'共有30天,';
else
if((y mod 4 = 0) and (y mod 100 <> 0) or (y mod 400=0)) then Label3.Caption:=Label3.Caption+'共有29天,'
else
Label3.Caption:=Label3.Caption+'共有28天,';
end;
end;
end.
120页11题求和的
procedure TForm1.Button1Click(Sender: TObject);
var
n,k,j:integer;
s:int64;
begin
n:=strtoint(edit1.text);
j:=0;
s:=0;
for k:=1 to n do
begin
j:=j+k;
s:=s+j;
end;
panel2.Caption:=format('s = %d',[s]);
edit1.setfocus;
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); var b:boolean;
begin
b:=(key<>#8)and(key<#48)or(key>#57);
if b then key:=#0;
end;
end.
120页12题男人，女人，小孩各有多少人
procedure TForm1.Button1Click(Sender: TObject);
var
x,y,z:integer;
p:string;
begin
memo1.clear;
for x:=0 to 16 do
for y:=0 to 24 do
begin
z:=30-x-y;
if 3*x+2*y+z/1=50 then
begin
p:=format('%3d %3d %3d',[x,y,z]);
memo1.lines.add(p);
end;
end;
end;
end.
98页2题求长方体的表面积
procedure TForm1.Button1Click(Sender: TObject);
var
s,l,k,h:double;
begin
l:=strtofloat(edit1.text);
k:=strtofloat(edit2.text);
h:=strtofloat(edit3.text);
s:=2*l*k+2*k*h+2*l*h;
label1.Caption:=floattostr(s);
end;
end.
98页5题计算圆的面积和周长
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); var
r:real;
b:boolean;
begin
b:=(key<>#8)and(key<>'.')and(key<>#13)and(key<#48)or(key>#57); if b then key:=#0;
if key =#13 then
begin
if edit1.text='' then edit1.text:='0';
r:=strtofloat(edit1.text);
if radiobutton1.Checked then
label1.Caption:=format('圆的面积为：%f',[pi*r*r]);
if radiobutton2.Checked then
label1.Caption:=format('圆的周长为：%f',[2*pi*r]);
if radiobutton3.Checked then
label1.Caption:=format('圆的面积为：%f'+chr(13)+ '周长为: %f',[pi*r*r,2*pi*r]); edit1.SelectAll;
end;
end;
procedure TForm1.RadioButton1Click(Sender: TObject);
var
sender0:tobject;
key:char;
begin
sender0:=edit1;
key:=#13;
form1.edit1keypress(sender0,key);
end;
procedure TForm1.RadioButton2Click(Sender: TObject);
var
sender0:tobject;
key:char;
begin
sender0:=edit1;
key:=#13;
form1.edit1keypress(sender0,key);
end;
procedure TForm1.RadioButton3Click(Sender: TObject);
var
sender0:tobject;
key:char;
begin
sender0:=edit1;
key:=#13;
form1.edit1keypress(sender0,key);
end;
end.
98页6题统计奇数和偶数的个数
procedure TForm1.Button1Click(Sender: TObject);
var
k,j,n:word;
begin
k:=0;
n:=combobox1.items.count;
for j:=1to n do
if strtoint(combobox1.items[j-1]) mod 2 = 0 then
k:=k+1;
label1.caption:=format('共有: '+#13+'%d个偶数，'+#13+'%d个奇数。',[k,n-k]); end;
procedure TForm1.Button2Click(Sender: TObject);
begin
combobox1.items.clear;
end;
procedure https://www.360docs.net/doc/3c10198097.html,boBox1KeyPress(Sender: TObject; var Key: Char); begin
if (key =#13)and(combobox1.text<>'') then //按
combobox1.items.insert(0,combobox1.text); //按
combobox1.text:='';
end;
if key = #27 then
if combobox1.itemindex<>-1 then
combobox1.items.Delete(combobox1.itemindex);
end;
end.
98页8题设置倒计时的时间，并进行倒计时
procedure TForm1.Timer1Timer(Sender: TObject);
var
m,n,s,h:integer;
begin
timer1.Tag:=timer1.Tag-1;
m:=timer1.Tag;
if m<0 then
begin
timer1.enabled:=false;
showmessage('预定的时间到了！');
edit1.Text:='0';
end
else
begin
s:=m;
n:=s div 60;
s:=s mod 60;
h:=n div 60;
n:=n mod 60;
maskedit1.text:=format('%d:%d:%d',[h,n,s]);
if n <> strtoint(edit1.text) then edit1.Text:=inttostr(n); end;
end;
procedure TForm1.Button1Click(Sender: TObject); begin
timer1.enabled:=True;
timer1.Tag:=strtoint(edit1.Text)*60;
end;
end.
Delphi_程序设计基础教程_习题答案(hzd)
Delphi 程序设计基础教程 第 1 章Delphi 集成开发环境 1. 填空题 (1) Delphi 是一个集成开发环境，从3程序设计、代码编译、调试，到最布程序的全部工作都可以在这个集成环境中完成。 (2) 在Delphi 集成环境的主要组成部分中有许多功能强大的工具，如：3主窗体、 对象树状视图、对象观察器、窗体设计器、代码编辑器工具等。 (3) Delphi 集成开发环境的界面分为4个部分，分别是。主窗口、窗体窗口、代码编辑窗口和对象查看器窗口 (4) 对象查看器的功能是：编辑设置窗体、组件的属性，并为窗体、组件添加事件的响应处理过程 (5) Delphi 主窗口由：标题栏、菜单栏、工具栏和组件板组成，它是打开其他窗口和退出D elphi 集成环境的主要界面。 2. 选择题 D(1) 对象查看器由组成。 A. 标题栏、菜单栏、属性标签和事件标签 B. 标题栏、菜单栏、对象选择器和事件标签 C. 标题栏、菜单栏、对象选择器和属性标签 D. 标题栏、对象选择器、属性标签和事件标签 D(2) Delphi 用来管理用户开发的应用程序中的各个文件，有序地管理可以极大地提高应用程序开发的质量和速度。 A. 单元 B. 组件 C. 属性 D. 项目 B(3) 用来编写应用程序的代码。 A. 调试器窗口 B. 代码编辑窗口
C. 报表生成器窗口 D. 数据库桌面窗口 B(4) 代码编辑窗口分为左、右两部分：。 A. 左边是单元代码窗口，右边是单元浏览器窗口 B. 左边是单元浏览器窗口，右边是单元代码窗口 C. 左边是单元调试窗口，右边是单元浏览器窗口 D. 左边是单元浏览器窗口，右边是单元调试窗口 A(5) 属性选项卡即标签名为“Properties”的选项卡，用于设置当前组件的属性，属性选项卡是一个两列的表格，。 A. 左列是属性标题，右列是属性值 B. 左列是组件名称，右列是事件名 C. 左列是属性标题，右列是事件名 D. 左列是组件名称，右列是属性值 C(6) 事件选项卡即标签名为“Events”的选项卡，用于为当前组件添加各种响应事件(如单击、拖曳事件等)，它随对象选择器中的所选组件而发生变化。事件选项卡为一个两列的表格，，默认时右列为空，在空格处双击则可以为当前组件添加事件，并进入代码编辑器窗口。 A. 左列是属性标题，右列是属性值 B. 左列是组件名称，右列是事件名 C. 左列是事件名称，右列是事件处理过程 D. 左列是组件名称，右列是属性值 ab(7) 在项目管理器中列出了当前项目中的各个，用户可以对它们进行操作。 A. 项目文件和单元文件 B. 项目文件和窗体文件 C. 项目文件和对象映射文件 D. 单元文件和窗体文件 3. 判断题 (1) Delphi 的状态栏不过是把一些常用的菜单命令以图标按钮的方式显示出来，以便于快速访问。(F )
C语言程序设计实验指导(课后习题)参考答案
《实验指导》课后练习题参考答案实验1： 1.主函数 2-4：DDC 5.stdio.h 6-9：CCCC 实验2： 1.double 2-4:ABB 5.2 6-12：CDDDADC 13.! 14.8 15-17:ACC 18.G 19-20:CA 21.5 4 22.x=6c 23-25:DCA 26.0x 27.2.000000 28-29:AB 30.a=3 31.D 32.3.15 33.B 34.double 实验3： 1-3:CCD 4.B 5.2,0 6-8：CAC 9. (1)pass, (2)中 及格 不及格 10-12：ADD 13.2 14.B 15.10 16.6 17.x>=1 && x<=sqrt(10)
实验4： 1.B 2.1 3.A 4.3/5,5/8 5.30 实验5： 1.D 2.(1)9 (2)1 3-5:CDB 6.(1)10 (2)7 7.C 8.(1)x=16 (2)y=8 9.return 实验6： 1-5:CCADA 6.10,20 7.13 11 12 8.7 9.2 10.B 11.(1)3 (2) 1 12-13:CB 14.-31 15.221 16.main函数 17.22 18.(1)return (2)void 实验7： 1.C 2.auto 3.9 4.(1) 4 (2) 0 5.10 6.(1)5 (2) 7 (3) 8 7.C 8.110 9-12:DDBC 13.(1) 1 (2) 3
15.6 720 16.auto 17.48 18.(1)1 (2)2 19.D 20.D 21.5,25 22.6 实验8： 1-2. DD 3. 16 4. (1)0 2 3 (2)2 3 5 (3)7 11 13 5. (1)i<9 (2)j<9-i (3)a[j]=a[j+1] (4)a[j+1]=temp 实验9： 1. D 2. (1)-1 (2)2 3. (1)1 (2)a[i-1][j-1]+a[i-1][j] (3)j<=i 4. (1)1 3 4 5 6 7 (2)3 4 5 6 (3)End of main()! 实验10： 1. 0或NULL 2-5. CACA 6. (1)10 (2)15 (3)19 7. (1)i 计算机程序设计(C)综合 实践 设计报告 学院：电子通信与物理学院 设计名称：职工信息管理系统 专业班级：电子信息科学与技术14-2 学生：本良 学号： 201401100211 组号： 140203 指导教师：宋戈 完成时间： 2015年 7月23日 目录 第1部分实训题目与要求 (2) 1. 问题提出 (2) 2. 功能要求 (2) 3. 任务分工 (2) 第2部分设计实训题目功能......................................................................... . (3) 1. 总体设 计...................................................................... (3) 2. 数据结 构...................................................................... (4) 3. 程序设 计...................................................................... (5) 4. 测试与调 试...................................................................... (8) 第3部分实训总结......................................................................... . (12) 1. 个人总 结...................................................................... (12) 2. 结束 语...................................................................... (12) 第4部分参考文献......................................................................... . (13) 《C程序设计综合实践》评分表......................................................................... (14) 实验1 C++基础 6．编写程序，输入某大写字母的ASCII码值，输出该字母的对应小写字母。 #include { float a,b,c; 潣瑵?请输入直角三角形的两条边长：; cin>>a>>b; c=sqrt(a*a+b*b); 潣瑵?直角三角形的斜边=< 3．输入一个学生的成绩，如高于60分，则输出“pass”；否则，输出“failed”。 #include 4.2练习题 一、选择题 1．D 2．B 3．A 4．B和D 5．C 6．A 7．B 二、填空题 1．//或/* */ 2．主或main 3．函数首部和函数体4．编译和连接 5．分号 5.2练习题 一、选择题 1．A 2．D 3．B 4．B 5．C 6．C 7．D 8．A 9．B 10．B 11．D 12．B 13．A或B 14．C 15．B 17．D 18．D 19．C 20．D 21．B 22．A 23．D 24．C 25．C 26．B 27．C 28．D 29．A 30．B 二、填空题 1．102，10 2．#define 宏名字符串 3．1 4．n=1 5．-4 6．a=1,b= ,c=2 7．c=A 8．n1=%d\nn2=%d 9．a+b>c&&a+c>b&&b+c>a 10．ch>=’a’&&ch<=’z’|| ch>=’A’&&ch<=’Z’11．7 12．0 13．8,4 6.2练习题 一、选择题 1．A 2．C 3．D 4．C 5．A 6．B 8．D 9．B 10．C 11．A 12．A 13．C 14．B 15．正确答案为： 二、填空题 1．10 2．y=1 x%i==0 3．屏幕中间输出一个由星号组成的菱形4．1 5．13 6．(cx=getchar())!=-1 front=cx; 7．m%n 8．4 9．*p px=&x py=&y 三、读程序，写结果 1．-1 2．3,1,-1, 3．a=16,y=60 4．x=12,y=4 5．59 7.2练习题 一、选择题 1．B 2．C 3．C 4．A 5．D 6．C 7．D 要求：所有程序至少由二个函数完成 A类-简单题 A1:设计一个菜单程序，选择数字键1~3分别在屏幕中间输出正三角形、菱形和空心的平行四边形，选择数字4结束操作并回到操作系统状态。 A3:从键盘上输入三个矩阵，输出三个矩阵主对角线的和及乘积。 A4:字符左右排序 要求编制函数jsSort()，以行为单位对字符串按给定的条件进行排序，排序后的结果仍按行重新存入字符串数组中。 排序条件：将字符串从中间一分为二，左边部分按字符的ASCII码升序排序，排序后左边部分与右边部分进行交换。如果原字符串长度为奇数，则最中间的字符不参与处理，仍放在原位置上。 例如，原字符串： dcbahgfe 432198765 则处理后字符串： hgfe abcd 876591234 A5:简单的文件操作 编程完成读出文件 sfile.txt 中的内容，反序写入另一个文件 dfile.txt 中去。 A6:有一个一维数组，内放10个学生成绩，输出各分数段人数、平均分、最高分和最低分，保留小数点后一位。 A7:编写程序求出555555的约数中最大的三位数是多少。 A8:编写程序，实现比较两个分数的大小。 比较方法是：先比较两个数的分母，分母相同比较分子；否则通分后比较。 A9:求这样一个三位数，该三位数等于其每位数字的阶乘之和。 A10:求兔子问题。第1年有1对兔子，每对兔子从出生后第3个年起,就可每年生1对兔子，兔子的寿命是6年，问第n年有多少对兔子? A11:用C实现时钟程序。 A12：有5个人坐在一起，问第5个人多少岁，他说比第4个人大2岁。问第4个人多少岁，他说比第3个人大2岁。问第3个人多少岁，他说比第2个人大2岁。问第2个人多少岁，他说比第1个人大2岁。问第1个人多少岁，他说是10岁。请问第5个人多大？ A13.用指针编写字符串函数strcpy,strcmp,strcat,strlen。并编写程序加以验证。 A14:给定某个年、月、日，计算出这一天为该年的第几天。要求写出计算闰年的函数和计算日期的函数。 实验教材实验一 1：单项选择题： A A C C C D C B B C 2：填空题： （1）.bas （2）.vbp，.frm （3）视图工具箱 （4）对象 （5）属性对象事件方法 （6）Windows （7）事件行为 （8）窗体模块 实验二 1：单项选择题： A D C C A B A B D C B B C B C B A B D C 2：基本运算题： （1）27 （2）3.33333333333333 （3）3 （4）0 （5）-3 （6）2 （7）ab33 （8）类型不匹配 （9）3 （10）AB3 实验三 1：单项选择题： B C B D C 2：填空题： （1）300 （2）321456 （3）Shanghai （4）6 7 6 （5）True （6）2+3=5 （7）”area=” 12.56 （8）VISUAL 实验四 1：单项选择题： C A A C A 2：填空题： （1）7 （2）3 5 （3）输入的数小于0 （4）3 （5）False （6）2010 is not leap year. 试验五 1：单项选择题： A C C A B A C C C B 2：填空题： （1）9 （2）①n ②1 （3）①Len(a) ②n\2 ③Mid(a,(n-i+1),1) ④Mid(a,(n-i+1),1) （4）①n Mod 3=1 And n Mod 5=1 And n Mod 7=1 ②While CountN<5 （5）Mid(c1,1,i) 实验六 1：单项选择题： D B D C D A C A D D 2：填空题： （1）30 （2）3 （3）①a(2) ②a(3) ③a(1) （4）①1 ②2 ③a(i)=a(6-i) （5）①i+j ②0 ③a(i,j) （6）①Print ②k ③a(k,j)=a(j,k) ④a(k,j); 实验七 1：单项选择题： A B B A C B 2：填空题： （1）15 （2）①Preserve a(n+1) ②a(i+1)=a(i) ③Exit For ④a(i+1)=m⑤0 to n+1 (或LBound(a) to UBound(a)) （3）d,c,b,a 实验八 1：单项选择题： C A D B D C A C B 2：填空题： （1）a=9 b=4 （2） 36 25 16 9 4 1 （3）①a ②UBound(b) ③ 1、完成实验A（P.259）中的第1、 2、 3、5题。 2、参照第2章例2.6，建立一个类似记事本的应用程序，提供：(1) 剪切、复制和粘贴的编辑操作；(2) 字体大小的格式设置；此外，再对记事本的应用程序的功能进行一点扩允。 1．完成在实验B 顺序结构程序。（P.262）中的第1、2 、4 、5.、6题 2．完成实验C 选择结构（P.266）中的第1、2、4、5题 3．用上面实验B的第二题和实验C的第二题完成下面的实验报告。 1、完成实验D循环结构（P.268）中的第1、3、4、6题，其中第1题利用单循环结构显示如图D.1(P.268)所示的界面,而后将图形改为倒三角形。 2、选做实验E数组（P.271）中的第1、2、3题中的任意二题 3、以实验D中的第4题和实验E中的做完的某一题完成下面的实验报告。 A．1 Private Sub Command1_Click() Label3 = Text1 End Sub A．2 Private Sub Form_Load() Timer1.Interval = 0 End Sub Private Sub Command1_Click() '自动 Timer1.Interval = 200 End Sub Private Sub Command2_Click() '手动 Timer1.Interval = 0 Call MyMove End Sub Private Sub Timer1_Timer() Call MyMove End Sub Sub MyMove() Label1.Move Label1.Left - 50 If Label1.Left < 0 Then Label1.Left = Form1.Width End Sub A．3 Private Sub Form_Click() Text1 = Val(Text1) + 1 End Sub Private Sub Form_Load() Text1 = 0 End Sub A．5 实验一熟悉C程序运行环境 班级学号姓名成绩 一、实验目的 1. 熟悉C语言Visual C++调试环境。 2. 掌握C程序的编辑、调试及运行。 二、实验内容 项目1. 调试并运行下面程序，并写出运行结果： #include <> int main() { printf(“Good morning!\n”); printf(“Hello,world!\n”); return 0; } 运行结果（注意，按照屏幕输出格式写）： 项目2. 调试并运行下面程序，并写出运行结果： #include <> int main() { int a , b , sum; /*定义变量*/ a=23; b=56; /*为变量赋值*/ sum=a+b; /*计算两个变量的和*/ printf(“sum is %d\n”,sum); /*输出计算结果*/ return 0; } 运行结果： 项目3. 调试并运行下面程序，并写出运行结果： #include <> int max(int,int); int main() { int a , b , c; /*定义变量*/ a=23; b=56; /*为变量赋值*/ c=max(a,b); /*调用max函数，将得到的值赋给c*/ printf(“max is %d\n”,c); /*输出c的值*/ return 0; } int max(int x,int y) /*定义max函数，函数值为整型*/ { int z; /*定义变量*/ if(x>y) z=x; else z=y; return(z); /*将z的值返回*/ } 运行结果： 三、提高部分 1.试想，如果求10个数中的最大者，则程序该如何编写。 程序代码 运行结果： 任务 18 课题名称 某航空公司飞机购票模拟系统（服务器端） 课题内容 文件信息： 航线信息：航线编码、起点、终点、公里数、飞行时间。 航班信息：航班编号、航线编码、起飞时间、可售机票总数、票价、当前状态（准备、已出票、售完、已结束）。 售票信息：航班编号、顾客ID、顾客姓名、购票时间（y-m-d-h-m-s 以顺序存储结构设计程序能实现以下航空公司服务器端功能： （1）航线的维护（创建、修改、删除（不能删除已出票、售完航班）（2)航班的维护（创建、修改、删除（不能删除已出票、售完航班））。 ））。 （3）显示航班列表。 （4）显示指定航班的售票情况（明细和统计值）。 （5）显示各航班的销售情况。 int hbId; int userId; char userName[NUMBER]; char buytime[NUMBER]; 任务 19 课题名称 某航空公司飞机购票模拟系统（客户端） 课题内容 航班文件信息： 航线信息：航线编码、起点、终点、公里数、飞行时间。 航班信息：航班编号、航线编码、起飞时间、可售机票总数、票价、当前状态（准备、已出票、售完、已结束）。 售票信息：航班编号、顾客ID、顾客姓名、购票时间（y-m-d-h-m-s ）。 以链式存储结构设计程序能实现以下顾客端功能： （1）搜索指定航线、指定时间段的航班 （2）购票 （3）退票 （4）输入顾客 ID ，显示顾客的购票信息 主菜单 /****************************************/ /* 模块名称： Menu.c 功能描述：实现菜单功能*/ #include "stdio.h"/* 输入输出函数的头文件 */ #include "shoupiao.c" #include "hangban.c" #include "hangxian.c" void menu(); /* 菜单 */ // 航班 void init_hb(hbnum *hb);// 初始化列表 void create_hb(hbnum *hb);// 从文件中加载数据 void append_hb(hbnum *hb, hbinfo x);/* 添加数据 */ void display_hb(hbnum hb);/* 输出航班信息表 */ void display_xs(hbnum hb);/* 输出航班销售信息表 */ hbinfo search_hb(hbnum hb, int id);// 根据 id 查找航班的售票情况hbnum update_hb(hbnum hb,hbinfo x);// 根据 id 修改航班信息 void dele_hb(hbnum *hb, int id);// 删除航班信息 void InsertSort_hb(hbnum *r);// 排序 void save_hb(hbnum *hb);// 将数据保存到文件中 // 航线 void init_hx(hxnum *hx);// 初始化列表 void create_hx(hxnum *hx);// 从文件中加载数据 void append_hx(hxnum *hx, hxinfo x);/* 添加数据 */ void display_hx(hxnum hx);/* 输出航班信息表 */ hxinfo search_hx(hxnum hx, int id);// 根据 id 查找航班的售票情况hxnum update_hx(hxnum hb,hxinfo x);// 根据 id 修改航线信息 void dele_hx(hxnum *hx, int id);// 删除航班信息 void InsertSort_hx(hxnum *r);// 排序 void save_hx(hxnum *hx);// 将数据保存到文件中 // 售票 void init_sp(spnum *sp);// 初始化列表 void create_sp(spnum *sp);// 从文件中加载数据 void append_sp(spnum *sp, spinfo x);/* 添加数据 */ void display_sp(spnum sp);/* 输出航班信息表 */ spinfo search_sp(spnum sp, int id);// 根据 id 查找航班的售票情况void search_mx(spnum sp, int id); int search_tj(spnum sp, int id); void dele_sp(spnum *sp, int id);// 删除航班信息 void InsertSort_sp(spnum *r);// 排序 void save_sp(spnum *sp);// 将数据保存到文件中 /* 主函数 */ main(){ hbnum hb; 实验指导 1、 n=input('请输入一个三位数：'); a=fix(n/100); b=fix((n-a*100)/10); c=n-a*100-b*10; d=c*100+b*10+a 2（1） n=input('请输入成绩'); switch n case num2cell(90:100) p='A'; case num2cell(80:89) p='B'; case num2cell(70:79) p='C'; case num2cell(60:69) p='D'; otherwise p='E'; end price=p （2）n=input('请输入成绩'); if n>=90&n<=100 p='A'; elseif n>=80&n<=89 p='B'; elseif n>=70&n<=79 p='C'; elseif n>=60&n<=69 p='D'; else p='E'; end price=p （3）try n; catch price='erroe' end 3 n=[1,5,56,4,3,476,45,6,3,76,45,6,4,3,6,4,23,76,908,6]; a=n(1)； for m=2:20 if n(m)>a a=n(m); elseif n(m)=0 disp(A([n],:)); elseif n<0 disp(lasterr); else disp(A([6],:)); disp(lasterr); end 7（1） f=[]; for n=1:40 程序设计实践-CAL-FENGHAI-(2020YEAR-YICAI)_JINGBIAN 苏州科技学院 二○一四～二○一五学年第二学期电子与信息工程学院课程设计报告书 课程名称： 班级： 学号： 姓名： 指导教师： 二○一五年三月 1.题目 小型图书信息管理系统 2.功能 1、信息录入，包括记录的追加和插入； 2、信息删除； 3、信息修改； 4、信息排序和查询； 5、信息的保存和装载； 6、简单的帮助。 3.要求 (1)整个系统均用C语言实现； (2)利用指针、链表来实现图书馆的数据结构设计； (3)系统具有输入、显示、查询、删除、排序、插入，保存、读取基本功能； (4)系统的各个功能模块都用函数的形式来实现； (5)可以将图书信息保存在文件中。 (6)可以将图书信息从文件中读取出来。 4.设计内容 整个系统除了主函数外，另外还有6个函数，实现八大功能：输入功能，查找功能，插入功能，保存功能，删除功能，读取功能。各个函数的详细设计说明分别如下： 主函数 main() 利用无限次循环for(;;)实现各函数的调用，系统根据输入的数字选项来调用相应的函数。 初始化函数 book *create() 这是一个无参函数，它的作用是使链表初始化,使head的值为NULL。 输入函数 Insert(book *head) 这是一个无参函数，用来执行图书信息的输入。 算法：先声明一个首节点head，并将head->next设为NULL。每输入一个数据就声明一个新节点p，把p->next设为NULL，并且链接到之前列表的尾端。 N-S 修改函数 change(book *head) 用于修改图书信息。 算法：输入需修改图书的书名，判断是否有本书，若有，再进行修改。 N-S 显示记录函数 void Print(book *head) 这是一个不返回值的有参函数，将记录的输出。 算法：先将p结点的指针指向第一个结点，将p结点的数据输出，再将p结点的指针指向下一结点，将下一结点的数据输出。重复执行此步聚直到p指针指向NULL为止。 N-S 查找记录函数 void search(book *head) 这是一个不返回值的有参函数，形参为“链表头的指针”，实现按书名对某书进行查找，并显示所查找到的记录。 算法：采用线性查找法往下一个节点查找。输入所要查找的图书的名称，设一个指针变量p，先指向第一个结点，当strcmp(p->name,name1) && p != NULL 时，使p后移一个结点，如果p!=NULL，输出p所指的结点。 N-S 239页1题小时钟 procedure TForm1.Timer1Timer(Sender: TObject); var xt,yt:integer; h,m,s,ms:word; begin decodetime(time,h,m,s,ms); xt:=paintbox1.clientwidth div 2; yt:=paintbox1.clientheight div 2; paintbox1.refresh; paintbox1.canvas.moveto(xt,yt); paintbox1.canvas.pen.width:=3; paintbox1.canvas.lineto(xt+round(sin((60*h+m)/(12*60)*2*pi)*100), yt-round(cos((60*h+m)/(12*60)*2*pi)*100)); paintbox1.canvas.moveto(xt,yt); paintbox1.canvas.pen.width:=2; paintbox1.canvas.lineto(xt+round(sin(m/60*2*pi)*140), yt-round(cos(m/60*2*pi)*140)); paintbox1.canvas.moveto(xt,yt); paintbox1.canvas.pen.width:=1; paintbox1.canvas.lineto(xt+round(sin(s/60*2*pi)*180), yt-round(cos(s/60*2*pi)*180)); end; end. 239页3题求两点间的距离 procedure TForm1.Button1Click(Sender: TObject); begin paintbox1.Refresh; formpaint(sender); end; procedure TForm1.FormPaint(Sender: TObject); var xt,yt:integer; ax,ay,bx,by:integer; begin xt:=paintbox1.ClientWidth div 2; yt:=paintbox1.Clientheight div 2; paintbox1.canvas.MoveTo(xt,0); paintbox1.canvas.lineTo(xt,2*yt); paintbox1.canvas.MoveTo(0,yt); paintbox1.canvas.lineTo(2*xt,yt); ax:=strtoint(edit1.text); Visual Basic 程序设计学习与实验指导答案 上篇学习指导 第1章Visual Basic 概述 1.事件 2.查看对象 3.工程 4.视图属性窗口 5.窗体编辑器 第2章面向对象程序设计初步 1.控件 2.事件 3.类属性 4.属性 5.略 https://www.360docs.net/doc/3c10198097.html, 第3章Visual Basic 语言基础 1.(a*sin(30/180*3.14)+c*(log(b)/log(10)))/((Abs(d)+1)*(e+f))+1 2.mod 3.X=Int(X) And Y=Int(Y) And X*Y>0 4. 4.Y Mod 4=0 And Y Mod 100<>0 Or Y Mod 400=0 5.x=Int((99-10+1)*Rnd+10) 6.0 “” 7.空格 8.6，845.30 9. （1）8 （2）1 （3）abcd （4）出错，类型不匹配 （5）False （6）2008-6-29 （7）I likeVB （8）4 （9）4 4 （10）3 4 （11）10 -10 （12）-1 （13）aa （14）3 （15）0 （16）1 （17）C （18）5 （19）8 （20）34.54 （21）中国 （22）上海 （23）VISUAL BASIC （24）visual basic 10. （1）x<-100 or x>100 （2）a=Int(a) And b =Int(b) Or a<0 And b<0 （3）x<=y or x>=z （4）a>0 And a<>Int(a) （5）a=0 xor b=0 （6）Len(S)<10 （7）UCase(S)=S （8）Left(S,1)=”a” And Right(S,1)=”a” （9）Instr(S,”@”)<>0 （10）Trim(S)=S （11）Date=#8/8/2008# 1.Alice喜欢n位数，Bob喜欢能被m整除的数，请问被Alice和Bob都喜欢的数有多少个？ 输入：第一行是一个整数K（K<= 10000）,表示样例的个数 每一个样例是一行，两个整数n（1<=n<=18）,m(2<=m<=1000000) 输出：每行输出一个样例的结果。 样例输入：4 样例输出 5 1 2 450 3 2 300 3 3 0 3 10000 2.给一个字符串，请判断字符串是否出现了所有的英文字母（不分大小写）。 输入：每行一个只含英文字母的字符串，长度不超过1000. 输出：每行输出一个样例的结果，如果出现了所有的字符串，输出“Yes”,否则输出“No”(不要引号）。 样例输入： ProgrammingPratice TheQuickBrownFoxJumpsOverLazyDog 输出：No Yes 提示：巨大输入量，请使用C风格的输入。 3.给你n个数，祛除其中的重复的数，并保持第一次出现的数原有的相对顺序。 比如{3, 2, 2, 3, 1}，那么祛除重复元素以后为{3，2，1}。 输入：每一行是一个整数K, K表示样例的个数，不超过100； 每个样例的第一行是一个整数n（1<=n<=10000）表示数的个数；第二行是n个正整数，其值不超过10^9. 输出：每行输出一个样例的结果，每个整数之间用一个空格隔开； 样例输入：输出： 2 3 2 1 5 1 2 3 3 2 2 3 1 3 1 2 3 提示：巨大的输入输出，请使用C风格，避免超时 4、小明很喜欢钓鱼，现在有n个池塘可以钓鱼，第i个池塘首次内能钓到ai条鱼，第i个池塘如果被钓过k次，那么每次下一次能钓到的鱼的数目为max{0，ai - k * bi}，现在小明能钓m次鱼，请问他最多能钓到多少条鱼？ 输入：第一行是一个整数T(1<=T<=100),表示样例个数，每个样例第一行是n(1<=n<=1000), m(1<=m<=100000); 以后的n行，每行是ai（1<=ai<=10000）,bi(0<=bi<=100) 输出：每行输出一个样例结果 《Delphi 程序设计》试题及解答 卷6 一、填空题（20分，每空2分） 1、现实世界中对象具有自己的状态和行为。对应着，面向对象技术中的对象可以具有自己的属性和 。 2、结构化程序设计要求程序中仅采用顺序、分支和循环三种控制结构，其中每种结构只能有 和一个出口。 3、Delphi 应用程序中单元文件的扩展名是 。 4、与数学表达式 53)(cos 2++x b a 对应的Object Pascal 表达式是 。 5、对于下面的条件表达式： （（3 <= x ）AND （x < 0）） OR （x in [1..10]） 当x = 3 时， 该表达式的值为 。 6、ListBox 对象列表框中的内容是通过 属性来进行设置的。 7、如果想设计DBGrid 对象的列标题和对齐方式，可以对DBGrid 对象的 属性进行设置。 8、时钟组件（Timer ）能有规律的以一定时间间隔触发 事件 9、能够实现格式化输入的编辑框组件是 10、利用 对象的LineTo 等方法，可以绘制基本图形。 二、单项选择题（20分，每题2分） 1、Delphi 程序设计的基本特点是（ ）。 A ． 可视化程序设计 B ． 代码程序设计 C ． 事件驱动编程 D ． A 和C 2、进度显示组件ProgressBar 的当前进度可以通过（ ）属性设置。 A ． Step B ．Scroll C ． Position D ．Max 3、下列变量命名正确的是（ ）。 A ．7ABC B ． My7 C ． page@2 D ．cmd..1 4、“x 是小于200的非负数”的Object Pascal 表达式是（ ）。 A ．0 ≤ x < 200 B ． x >= 0, x<200 C ．(x >=0) AN D (x < 200) D ． (x >= 0 ) OR (x<200) 5、在窗体上建立多页面的用户界面，需要首先建立的对象是（ ） A ． TabControl B ．PageControl C ． HeaderControl D ．PageScroller 6、能够删除edit1中内容的语句是（ ）。 A ． edit1.Clear ; B ．edit1. Focused ； C ． edit1.Text= null ; D ．edit1.text :='\0' ; 7、现建立一个简单报表，仅包含数据列标题栏、数据栏和汇总栏，则在Bands 属性的子属 P18 (1) #include (3) #include printf("整数%d的个位数字是%d,十位数字是%d，百位数字是%d\n",n,c,b,a); return0; } P27 (2) #include intmoney,year; doublerate,interest; printf("Entermoney,year,rate:"); scanf("%d%d%lf",&money,&year,&rate); interest=money*pow(1+rate,year)-money; y=pow(x+1,2)+2*x+1/x; } else{ y=sqrt(x); } printf("y=f(%f)=%.2f\n",x,y); return0; } (4) #include { inti,n,product; printf("Entern:"); scanf("%d",&n); product=1; 程序设计实践课题 ?课题要求： 每位同学选择以下4个课题中的任一课题独立完成，最后根据课题完成情况给出最终成绩。 程序设计要求： （1）采用面向对象程序设计思想。 （2）采用模块化程序设计。 （3）必须上机调试通过，生成可执行文件。 （4）程序代码必须具有可读性，关键性算法或者代码必须要有注释。 ?课程最后提交： 1、课程设计报告1份； 2、程序源代码1份。 ?最后评定： 1、按优、良、中、及格、不及格五个等级评定成绩。 2、根据学生日常纪律、源程序及运行结果、文档、答辩情况综合评定课程设计成绩。 3、程序雷同者，视情况扣分或记零分。 ?课题内容： 一、班级成绩管理 1、程序说明 该系统实现对班级成绩的录入、显示、修改、排序、保存等操作的管理。2、程序设计要求 （1）一个班级有N个学生，每个学生有M门课，每门课程有相应的成绩。（2）设置系统登陆密码，只有正确输入密码方可进入管理系统。 （3）成绩显示时，如果输入学号，则显示该学号学生的所有成绩，包括平均分；如果输入0，则显示所有学生的成绩，包括每个学生的平均分。 （4）根据学号和课程号修改成绩时，要求先输入密码，如果密码正确方可修改成绩，否则不予操作；在修改之前需要用户进一步确认，确认无误后再进行操 作。 （5）系统主菜单： a、密码重置 b、成绩录入 c、成绩显示 d、根据学号和课程号修改成绩 e、根据课程号统计平均分 f、根据班级号显示该班每位学生的平均分（按平均分从高到低排序） g、退出系统 （6）执行一个具体的功能之后，程序将重新显示菜单。 二、电话薄 1、程序说明 该程序是一个电话薄管理小程序。具有加入、删除、显示和查询联系人电话号码的功能。 2、程序设计要求 （1）在修改或删除之前需要用户进一步确认，确认无误后再进行操作。 （2）根据姓名首字母查询电话簿数据，即查询时只输入姓名的首字母，所有符合这一条件的电话资料均在屏幕上显示。 （3）系统主菜单： a、添加电话薄记录 b、显示电话薄内容 c、根据姓名查询电话薄数据 d、根据姓名首字母查询电话簿数据 e、根据姓名修改电话薄数据 f、根据姓名删除电话薄数据 g、退出系统 （4）执行一个具体的功能之后，程序将重新显示菜单。 三、个人财政管理 1、程序说明 管理您的财政支出。计算机程序设计(C)综合实践
C++程序设计实践教程思考题答案
c语言程序设计实践教程答案完整版
D2_《C／C 语言程序设计》计算机实践_题目列表
vb程序设计实验教程习题答案
VB程序设计教程(第3版)课后实验答案最新版2
C语言程序设计实验实验指导书及答案
《面向过程程序设计实践》课题资料.doc
MATLAB程序设计教程课后答案
程序设计实践
完整的delphi程序设计教程课后习题答案
VB程序设计学习与实验指导答案
程序设计实践的题目和样例
Delphi程序设计试题及解答1-1-111
C语言程序设计实验与习题指导课后程序设计答案,DOC
程序设计实践课题