1.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(s in((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(s in(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(s in(s/60*2*pi)*180),
yt-round(cos(s/60*2*pi)*180)); end;
end.
2.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*1
0,yt-ay*10);
paintbox1.canvas.lineTo(xt+bx*10,
yt-by*10);
end;
end.
3.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,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\stu.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.
4.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.
5.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-grou
pbox1.height) div 2;
end;
end;
procedure
TForm1.FormCreate(Sender:
TObject);
begin
groupbox1.Top:=(panel1.Top-grou
pbox1.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.
6.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.
7.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.
8.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.Capt ion+edit2.Text+'月份是春天,';
6,7,8:Label3.Caption:=Label3.Capt ion+edit2.Text+'月份是夏天,';
9,10,11:Label3.Caption:=Label3.C aption+edit2.Text+'月份是秋天,'; else
Label3.Caption:=Label3.Caption+e dit2.Text+'月份是冬天,';
end;
case m of
1,3,5,7,8,10,12:Label3.Caption:=L
abel3.Caption+'共有31天,';
4,6,9,11:Label3.Caption:=Label3.C
aption+'共有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.
9.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.
10.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.
11.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.
12.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(Sende r: TObject);
var
sender0:tobject;
key:char;
begin
sender0:=edit1;
key:=#13;
form1.edit1keypress(sender0,key); end;
procedure
TForm1.RadioButton2Click(Sende r: TObject);
var
sender0:tobject;
key:char;
begin
sender0:=edit1;
key:=#13;
form1.edit1keypress(sender0,key); end;
procedure
TForm1.RadioButton3Click(Sende r: TObject);
var
sender0:tobject;
key:char; begin
sender0:=edit1;
key:=#13;
form1.edit1keypress(sender0,key);
end;
end.
13.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.doczj.com/doc/8b7259798.html,boBox1KeyPress(Sen
der: TObject; var Key: Char);
begin
if (key
=#13)and(combobox1.text<>'')
then //按
的选项
begin
combobox1.items.insert(0,combob
ox1.text); //按
项
combobox1.selstart:=0;
combobox1.text:='';
end;
if key = #27 then
if combobox1.itemindex<>-1 then
combobox1.items.Delete(combobo
x1.itemindex);
end;
end.
14.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.
各大学教材课后习题答案网址 《线性代数》（同济第四版）课后习题答案（完整版） 高等数学（同济第五版）课后答案（PDF格式，共527页） 中国近现代史纲要课后题答案 曼昆《经济学原理》课后习题解答 21世纪大学英语读写教程（第三册）参考答案 谢希仁《计算机网络教程》（第五版）习题参考答案（共48页） 《概率论与数理统计》习题答案 http:// 《模拟电子技术基础》详细习题答案（童诗白，华成英版，高教版） 《机械设计》课后习题答案（高教版，第八版，西北工业大学） 《大学物理》完整习题答案 .com/viewthread.php?tid=217&fromuid=164951 《管理学》课后答案（周三多） 机械设计基础(第五版)习题答案[杨可桢等主编] 程守洙、江之永主编《普通物理学》（第五版）详细解答及辅导 .php?tid=3&fromuid=164951 新视野大学英语课本详解（四册全） 21世纪大学英语读写教程（第四册）课后答案 新视野大学英语读写教程3册的课后习题答案 1
新视野大学英语第四册答案（第二版） 《中国近现代史》选择题全集（共含250道题目和答案） 《电工学》课后习题答案（第六版，上册，秦曾煌主编） 完整的英文原版曼昆宏观、微观经济学答案 《数字电子技术基础》习题答案（阎石，第五版） 《电路》习题答案上（邱关源，第五版） 《电工学》习题答案（第六版，秦曾煌） https://www.doczj.com/doc/8b7259798.html,/viewthread.php?tid=112&fromuid=164951 21世纪大学英语读写教程（第三册）课文翻译 《生物化学》复习资料大全（3套试卷及答案+各章习题集） 《模拟电子技术基础》课后习题答案（共10章）ewthread.php?tid=21&fromuid=164951 《概率论与数理统计及其应用》课后答案（浙江大学盛骤谢式千编著）《理论力学》课后习题答案（赫桐生，高教版） 《全新版大学英语综合教程》（第四册）练习答案及课文译文viewthread.php?tid=78&fromuid=164951 《化工原理答案》课后习题答案（高教出版社，王志魁主编，第三版）《国际贸易》课后习题答案（海闻P.林德特王新奎） 大学英语综合教程1-4册练习答案 read.php?tid=1282&fromuid=164951 《流体力学》习题答案 《传热学》课后习题答案（第四版） 高等数学习题答案及提示
部编语文四年级下册教材课后答案 第 1 课古诗词三首 2.读下面的诗句 , 说说你眼前浮现出了怎样的情景。 〔答案大家找〕“儿童急走追黄蝶 , 飞入菜花无处寻。”描绘了 儿童捕蝶的欢快场景。 “日长篱落无人过 , 惟有蜻蜓蛱蝶飞。”让我们看到农民早出晚 归的场景 , 蛱蝶飞又让我们感受到静中有动的情景。 “大儿锄豆溪东 , 中儿正织鸡笼。最喜小儿亡赖 , 溪头卧剥莲蓬。”大儿子在溪东豆地里锄草 , 二儿子在家里编织鸡笼 , 三儿子只知任意地调皮玩耍 , 躺卧在溪边剥莲蓬吃。 第 2课乡下人家 1.朗读课文 , 想象画面。如果给课文配画 , 你觉得可以画几幅 ?试 着给每幅画取个名字。 〔答案大家找〕 7 幅 , 屋前搭瓜架、门前种鲜花、屋后春笋冒、 院里鸡觅食、河中鸭嬉戏、门前吃晚饭、夜静催眠曲。 2.你对课文描写的哪一处景致最感兴趣 ?和同学交流。 〔答案大家找〕描写门前五颜六色的花和雨后春笋的景致我最 感兴趣 , 本来是朴素的乡下 , 可是门前这些五彩缤纷的花朵、雨后的春 笋又给本来朴素的乡下带来了勃勃生机, 读完以后让我也向往乡下这 样恬静安逸的生活。
3. 读句子 , 再从课文中找出像这样写得生动形象的句子, 抄写下来。 〔答案大家找〕他们的屋后倘若有一条小河 , 那么在石桥旁边 , 在绿树荫下 , 会见到一群鸭子游戏水中 , 不时地把头扎到水下去觅食。天边的红霞 , 向晚的微风 , 头上飞过的归巢的鸟儿 , 都是他们的好友 , 它们和乡下人家一起 , 绘成了一幅自然、和谐的田园风景画。秋天到 了, 纺织娘寄住在他们屋前的瓜架上。月明人静的夜里, 它们便唱起歌来: “织 , 织, 织, 织啊 ! 织, 织, 织, 织啊 ! ”那歌声真好听 , 赛过催眠曲 ,让那些辛苦一天的人们, 甜甜蜜蜜地进入梦乡。 选做 你眼里的乡村景致是怎样的?用一段话写下来。 〔答案大家找〕大树也绿 , 小草也茂盛 , 花朵也艳丽 , 田园的风光真是美。近处 , 一棵棵大杨树挺直身板, 抬起头 , 密密麻麻的绿叶里闪过一丝丝日影。远远地看去, 这些杨树就像一名名威武的保卫者。小 草又嫩又绿 , 茂密的草地就像一大块碧绿的地毯, 躺在软软的绿地上 ,比躺在沙发上还要舒服。那的野花不是一般的香, 在千里之外都可以闻到。每一朵花都神气十足地仰起头。每个人家的门前都有一块可爱的菜地 , 种有茄子、黄瓜、辣子、豇豆、草莓等蔬菜水果。从高处往 下看 , 那些蔬菜水果就像一个个精英士兵, 你就像那位大将军 , 准备率领十万精英去攻打敌人的城池。晚上 , 无数颗星星眨着眼睛 , 等我们睡着, 星星才肯离开
【程序1】 题目：古典问题：有一对兔子，从出生后第3个月起每个月都生一对兔子，小兔子长到第三个月后每个月又生一对兔子，假如兔子都不死，问每个月的兔子总数为多少？ 1.程序分析：兔子的规律为数列1,1,2,3,5,8,13,21.... 【程序2】 题目：判断101-200之间有多少个素数，并输出所有素数。 1.程序分析：判断素数的方法：用一个数分别去除2到sqrt(这个数)，如果能被整除， 则表明此数不是素数，反之是素数。 【程序3】 题目：打印出1000以内所有的"水仙花
数"，所谓"水仙花数"是指一个三位数，其各位数字立方和等于该数本身。例如：153是一个"水仙花数"，因为153=1的三次方＋5的三次方＋3的三次方。 1.程序分析：利用for循环控制100-999个数，每个数分解出个位，十位，百位。 【程序4】 题目：将一个正整数分解质因数。例如：输入90,打印出90=2*3*3*5。 程序分析：对n进行分解质因数，应先找到一个最小的质数k，然后按下述步骤完成： (1)如果这个质数恰等于n，则说明分解质因数的过程已经结束，打印出即可。 (2)如果n<>k，但n能被k整除，则应打印出k的值，并用n除以k的商,作为新的正整数你n,重复执行第一步。(3)如果n不能被k整除，则用k+1作为k的值,重复执行第一步。
【程序5】 题目：利用条件运算符的嵌套来完成此题：学习成绩>=90分的同学用A表示，60-89分之间的用B表示，60分以下的用C表示。 1.程序分析：(a>b)?a:b这是条件运算符的基本例子。 【程序6】 题目：输入两个正整数m和n，求其最大公约数和最小公倍数。 1.程序分析：利用辗除法。 【程序7】
Database Systems: The Complete Book Solutions for Chapter 2 Solutions for Section 2.1 Exercise 2.1.1 The E/R Diagram. Exercise 2.1.8(a) The E/R Diagram Kobvxybz Solutions for Section 2.2 Exercise 2.2.1 The Addresses entity set is nothing but a single address, so we would prefer to make address an attribute of Customers. Were the bank to record several addresses for a customer, then it might make sense to have an Addresses entity set and make Lives-at a many-many relationship. The Acct-Sets entity set is useless. Each customer has a unique account set containing his or her accounts. However, relating customers directly to their accounts in a many-many relationship conveys the same information and eliminates the account-set concept altogether. Solutions for Section 2.3 Exercise 2.3.1(a) Keys ssNo and number are appropriate for Customers and Accounts, respectively. Also, we think it does not make sense for an account to be related to zero customers, so we should round the edge connecting Owns to Customers. It does not seem inappropriate to have a customer with 0 accounts;
大学教材课后习题答案免费下载链接 （上中下）190-290 本资料由https://www.doczj.com/doc/8b7259798.html,上网购返利网分享汽车理论习题答案(考研_作业).pdf→→ https://www.doczj.com/doc/8b7259798.html,/s/1zobam 汽车理论第五版_课后习题答案(正确).pdf→→ https://www.doczj.com/doc/8b7259798.html,/s/1o67DaHk 波动习题答案.pdf→→https://www.doczj.com/doc/8b7259798.html,/s/1pJDGFyj 泵与风机课后习题答案.pdf→→https://www.doczj.com/doc/8b7259798.html,/s/1gdBph3H 流体力学习题解答李晓燕吴邦喜.pdf→→ https://www.doczj.com/doc/8b7259798.html,/s/1qWM2gAo 液压与气压传动习题答案.pdf→→ https://www.doczj.com/doc/8b7259798.html,/s/1bnksUmV 物理化学第五版习题解答（上下册）.pdf→→ https://www.doczj.com/doc/8b7259798.html,/s/1sjvvFPj 物理学教程第二版马文蔚下册课后答案完整版_cropped.pdf→→https://www.doczj.com/doc/8b7259798.html,/s/1sj98Mct 物理学第五版上册习题答案.pdf→→ https://www.doczj.com/doc/8b7259798.html,/s/1jG1F9NS 王勖成《有限单元法》1-5章课后习题答案.pdf→→ https://www.doczj.com/doc/8b7259798.html,/s/1nt8vc3B 理论力学教程_第三版_周衍柏_课后习题答案_总汇(1).pdf→→
理论力学教程_第三版_周衍柏_课后习题答案_总汇.pdf→→https://www.doczj.com/doc/8b7259798.html,/s/1eQABmxW 电力系统分析课后习题答案.pdf→→ https://www.doczj.com/doc/8b7259798.html,/s/1bngpktD 电动力学习题答案chapter5.pdf→→ https://www.doczj.com/doc/8b7259798.html,/s/1pJ7AZ5x 电子商务法律与法规综合复习题与答案.pdf→→ https://www.doczj.com/doc/8b7259798.html,/s/1c0nEFUo 电子测量技术基础课后习题答案上1,2,5,6,7,8.pdf→→https://www.doczj.com/doc/8b7259798.html,/s/1hq3f7Is 电子线路习题答案梁明理版.pdf→→ https://www.doczj.com/doc/8b7259798.html,/s/1bn5rEIr 电工学简明教程（第二版）学习辅导与习题解答.pdf→→https://www.doczj.com/doc/8b7259798.html,/s/1mgHQ6xi 电机与拖动基础第三版李发海答案（全）.pdf→→https://www.doczj.com/doc/8b7259798.html,/s/1dD25KyP 电气测试技术第三版_课后习题答案%28林德杰%29.pdf→→https://www.doczj.com/doc/8b7259798.html,/s/1jGwVRE2 电磁场与电磁波习题答案 (6).pdf→→ https://www.doczj.com/doc/8b7259798.html,/s/1bnrK3pX 电磁场与电磁波习题答案 (7).pdf→→
第1.2章建筑的传热与传湿 （7）试求出用同一种材料构成的5层厚度为20mm封闭空气间层的热阻值与1层厚度为100mm的封闭空气间层的热阻值各为多少？
（15）已知20i t C =o ；50%i ?=。问：若采用如[例1.2-2]中图1.2-20所示墙体，在保证内表面不结露的 情况下，室外气温不得低于多少？若增加保温层使其传热系数不超过1.0W/（㎡·K ），此时的室外气温又不得低于多少？ 解：由20i t C =o ，50%i ?=，查表可得出室内露点温度9.d t C =o 5 要保证内表面不结露，内表面最低温度不得低于露点温度。 平壁的总传热阻： 01233 1 2 123 2()( )0.020.20.02 0.11( )0.040.81 1.740.93 0.312/i e i e i e R R R R R R R R R d d d R R m K W λλλ=++=++++=++++=++++=? 根据公式1.2-20，取1m =得到 10 ()i i i e d R t t t t R θ=- -≥ 这里，1θ表示维护结构内层表面的温度，i R 表示内表面换热阻，将数值代入得室外气温不超过： 00.312()=20(209.)9.790.11 e i i d i R t t t t C R ≥- ---=-o 5 若增加一保温层使其传热系数不超过1.0W/（㎡·K ），则增加保温层后的总热阻为 20 1()/R m K W '≥? 这时外界气温不得低于01()=20(209.)75.450.11 e i i d i R t t t t C R '≥----=-o 5
我先给你一些VF的例题看看吧！ Vfp--程序设计典型例题 Vfp题库：程序设计基础典型例题 [例1] 在（）窗口中可以控制列表框内显示的变量种类。 A.跟踪窗口 B.监视窗口 C.局部窗口 D.调动堆栈窗口 分析：局部窗口用于显示模板程序中的内存变量，并显示它们的名称.当前取值的类型。它可以控制在列表内显示的变量类型。 答案c 例2下面选项中关于ACCEPT命令说法错误的是（） A.ACCEPT命令格式是：ACCEPT[<字符表达式>] TO<内存变量> B.该命令只接收字符串,但是用户在输入字符串时,必须要加上定界符 C如果不输入任何内容直接按回车键,系统就会把空串赋给指定的内存变量 D如果选用<字符表达式>,那么系统就会首先显该表达式的值,作为提示信息 分析:该命令只接收字符串,但用户在输入时不需要加定界符;否则,系统会把定界符当作字符串的一部分输出. 答案:B 例3下列关于过程的说法中不正确的是 A.过程文件可以放在任何程序文件代码的后面,也可以保存在称为过程文件的单独文件里 B.过程文件只包含过程,这些过程只能被过程文件调用 C.如果需要打开多个过程文件,可以在调用过程语句中加ADDITVE,那么在打开过程文件时, 并不关闭原先已打开的过程文件 D.关闭个别过程文件的命令格式是:RELESE PROCEDURE<过程文件> 分析:过程文件只包含过程,这些过程可以被任何其它程序调用.命令格式SETPOCEDURE TO[<过程文件>][ADDITIVE]就可以打开多个过程文件.当使用不带任何文件名的SET PROCEDURE TO命令时,将会关闭所有的过程文件,使用命令RELEASE PROCEDURE<过程文件>时,将关闭指定的过程文件. 答案:B 例4 在一个程序定义了的一些变量,选出局部变量( ) 1.PRG PUBLIC aI LOCAL a2,a3 SCORE'B'TO a4 LOCATE a5 A.a1 B.a2,a3 C.a4 D.a5 分析:A是公共变量,C是私有变量,D的命令和LOCA TE相似,但不存在这样定义变量的命令.只有B才是定义了两个局部变量. 答案:B 例5 不需要先建立就可以使用的变量是( ) A.局部变量 B.公共变量 C.私有变量 D.数组 分析:私有变量是指在程序中直接使用,由系统自动隐含建立的变量.即没有通过PUBLIC 或
工程数学基础习题解答
习题一 A
一、判断题 1.√；， 2.√； 3.×； 4.×； 5.×； 6.×； 7.×； 8.√； 9.√；10.×. 二、填空题 1.;C C A B 2.111(){1,2,3,4},(){,,},(){,,},(){1,4},(){2,3};f f a b e f A a b e f B f b --=====D R 3.满; 4.2sup = E ,3inf -=E ; 5.0; 6.0; 7. n ; 8.Y . B 1.证 ()y f A B ?∈?,x A B ?∈?使得)(x f y =.由x A B ∈?,得x A ∈,且x B ∈故()()y f x f A =∈且()y f B ∈,即()()y f A f B ∈?,因此()()()f A B f A f B ???. 当f 是单射时,只需证明()()()f A f B f A B ???即可： ()()(),y f A f B f ?∈??R f 由是单射知,(). (),(),1X y f x y f A y f B x ?=∈∈∈使得且 ,,()(),x A x B x A B y f x f A B ∴∈∈∈?=∈?且即从而故()()()f A f B f A B ???. 是可能的，例如, 2:,[2, 0],[1, 3],[1, 0].f x x A B A B =-=-?=-取则()([1,0])[0, 1], f A B f ?=-=于是而 [][]()()0, 4[0, 9]0, 4.f A f B ?=?=从而有 . 2. 证（1）n ?∈,有)2 ,2(12 ,12][-?-+-n n ,故 ∞ =-?-+-1)2 ,2(12 12][n n ,n . 另一方面,)2 ,2(-∈?x ,k ?∈ ,使][12 ,12k k x -+-∈,故 ∞ =-+-∈1 ][12 12n n ,n x ,于是 ? -)2 ,2( ∞ =-+-1 ][12 12n n ,n . 因此, ∞ =-+-= -1 ][12 ,12)2 ,2(n n n . （2）n ?∈,有)12 ,12(]2 ,2[n n +--?-,故 ∞ =+--?-1)12 ,12(]2 ,2[n n n . 另一方面,对任意]2 ,2[-?x ,即2>x ,k ?∈ ,使得212>+>k x ,即 )12 ,12(k k x +--?,从而 ∞ =+--?1)12 ,12(n n n x ，故 ∞ =-?+--1 ]2,2[)12 ,12(n n n .
第 1 章Linux 概况 一、选择题 1、下列哪个选项不是Linux 支持的？ A. 多用户 B. 超进程 C. 可移植 D. 多进程 2、Linux 是所谓的“Free Software”，这个“Free”的含义是什么？ A. Linux 不需要付费 B. Linux 发行商不能向用户收费 C. Linux 可自由修改和发布 D.只有Linux 的作者才能向用户收费 3、以下关于Linux 内核版本的说法，错误的是？ A. 依次表示为主版本号.次版本号.修正次数的形式 B. 1.2.2 表示稳定的发行版 C. 2.2.6 表示对内核2.2 的第6 次修正 D. 1.3.2 表示稳定的发行版 4、以下哪个软件不是Linux 发行版本？ A. 红旗 Server 4 B. Solaris 10 C. RedHat 9 D. Fedora 8 5、与Windows 相比Linux 在哪个方面相对应用得较少？ A. 桌面 B. 嵌入式系统 C. 服务器 D. 集群 A6、Linux 系统各组成部分中哪一项是基础？ A．内核 B. X Window C. Shell D. Gnome B7、Linux 内核管理不包括的子系统是哪个？ A. 进程管理系统 B. 内存管理系统 C. 文件管理系统 D. 硬件管理系统 A8、下面关于Shell 的说法，不正确的是哪个？ A. 操作系统的外壳 B. 用户与Linux 内核之间的接口 C. 一种和C 类似的高级程序设计语言 D. 一个命令语言解释器 B9、以下哪种Shell 类型在Linux 环境下不能使用? A.B Shell B.K Shel C.R Shell D.Bash 10、在Linux 中把声卡当作何种设备？ A. 字符设备 B. 输出设备 C. 块设备 D. 网络设备 二、填空题 1、Linux 采用 LRU 算法（最近最少使用）算法，淘汰最近没有访问的
程序设计典型例题解析(2)
典型例题解析（2） 一、填空题 1．以顺序输入模式打开“c:\source1.txt”文件的命令是（1）；以输出方式打开“c:\source2.txt”文件的命令是（2）。 分析：Print # 语句用于将把数据写入文件中。Print语句格式为： Open 文件名 [For模式] As [#] 文件号 “For 模式”为指定打开文件的模式是数据的输入模式还是输出模式。 结论：答案应为：（1）Open "c:\source1.txt" For Input As #1 （2）Open "c:\source2.txt" For Output As #2 2.在Visual Basic中，文件系统控件包括（1）、（2）和文件列表框（FileListBox）。三者协同操作可以访问任意位置的目录和文件，可以进行文件系统的人机交互管理。 分析：在Visual Basic中，文件系统控件包括驱动器列表框（DriveListBox）、目录列表
框（DirListBox）和文件列表框（FileListBox）。驱动器列表框可以选择或设置一个驱动器，目录列表框可以查找或设置指定驱动器中的目录，文件列表框可以查找指定驱动器指定目录中文件信息，三者协同操作可以访问任意位置的目录和文件，可以进行文件系统的人机交互管理。 结论：答案应为：（1）驱动器列表框（DriveListBox）（2）目录列表框（DirListBox） 3．每次重新设置驱动器列表框的Drive属性时，都将引发（1）事件。可在该事件过程中编写代码修改目录列表框的路径，使目录列表框内容随之发生改变。 分析：在Visual Basic中，每次重新设置驱动器列表框的Drive属性时，都将引发Change事件。可在Change事件过程中编写代码修改目录列表框的路径，使目录列表框内容随之发生改变。驱动器列表框的默认名称为Drive1，其Change事件过程的开头为Drive1_Change()。 结论：答案应为：（1）Change 4．目录列表框用来显示当前驱动器下目录
《及应用》实验指导书 《及应用》实验指导书 班级： T1243-7 姓名：柏元强 学号： 20120430724 总评成绩： 汽车工程学院 电测与汽车数字应用中心
目录 实验04051001 语言基础..................... 错误!未指定书签。实验04051002 科学计算及绘图............. 1错误!未指定书签。实验04051003 综合实例编程.. (31)
实验04051001 语言基础 1实验目的 1) 熟悉的运行环境 2) 掌握的矩阵和数组的运算 3) 掌握符号表达式的创建 4) 熟悉符号方程的求解 2实验内容 第二章 1. 创建的变量，并进行计算。 (1) 87，190，计算 、、a*b 。 (87); (190); *b (2) 创建 8 类型的变量，数值与(1)中相同，进行相同的计算。 8(87); 8(190); *b 2．计算： (1) 操作成绩 报告成绩
(2) e3 (3) (60) (3) (3*4) 3．设，，计算： (1) (2) (3) 23; (4*u*v)(v) (((u))^2)/(v^2) ((3*v))/(u*v) 4．计算如下表达式： (1) (2) (3-5*i)*(4+2*i) (2-8*i) 5．判断下面语句的运算结果。 (1) 4 < 20
(2) 4 <= 20 (3) 4 20 (4) 4 20 (5) 'b'<'B' 4 < 20 , 4 <= 20,4 20,4 20,'b'<'B' 6．设，，，，判断下面表达式的值。 (1) (2) (3) (4) (5) (6) 395837; a><>>> 7．编写脚本，计算上面第2题中的表达式。 ('(60)='); ((60)) ('(3)='); ((3)) ('(3*4)='); ((3*4)) 8．编写脚本，输出上面第6题中的表达式的值。395837;
第5页做一做答案 4是24的因数，24是4的倍数。 13是26的因数，26是13的倍数。 25是75的因数，75是25的倍数。 9是81的因数，81是9的倍数。 练习二答案 1、36的因数：1,2,3,4,6,9,12,18,36。 60的因数：1，2，3，4，5，6，10, 12, 15,20,30,60。 2、(1)10的因数：1,2,5,10。 17的因数：1,17。 28的因数：1,2,4,7,14,28。 32的因数：1,2,4,8,16,32。
48的因数：1，2，3，4，6，8，12, 16,24,48。 (2)（答案不唯一） 4的倍数：4，8，12，16,20。 7的倍数：7,14,21,28,35。 10的倍数：10,20, 30,40,50。 6的倍数：6,12,18,24, 30。 9的倍数：9,18, 27, 36,45。 3、把5,35,10,55,60,100这6颗星星涂上黄色。 4、15的因数有1，3，5,15。 15是1,3,5,15的倍数。 5、(1)√(2)× (3)√(4)× 6、1 2 4 7、(1)18 (2)1 (3)42 8、这个数可能是3，6，21,42。
思考题 14和21的和是7的倍数； 18和27的和是9的倍数。 发现：两个数分别是一个数的倍数，这两个数的和也是这个数的倍数。第9页做一做答案 2的倍数有24，90，106，60，130，280，6018，8100。 5的倍数有35，90，15，60，75，130，280,8100。 既是2的倍数，又是5的倍数：90，60，130,280,8100。 发现：既是2的倍数，又是5的倍数的数的个位一定是0。 第10页做一做答案 3的倍数有24，96。 在24后面可放卡片：0，3，6，9。 在58后面可放卡片：2，5，8。 在46后面可放卡片：2，5，8。 在96后面可放卡片：0，3，6，9。 练习三答案 1、奇数有33，355，123，881，8089，565,677。 偶数有98，0，1000，988，3678。 2、（1）55 （2）350 （3）100
1、加法练习程序：由用户通过键盘输入加数和被加数，程序显示加法式子，用户通过键盘作答后，程序给出正确与错误提示信息。要求：利用C的选择语句if条件语句或switch 开关语句，键盘输入数据前，程序会出被输入数据的信息提示。 #include
X M L基础教程课后习 题解答 内部编号：（YUUT-TBBY-MMUT-URRUY-UOOY-DBUYI-0128）
XML基础教程课后习题 习题一 1．答：HTML是用来编写Web页的语言、不允许用户自定义标记，HTML体现数据的显示格式。XML描述数据的组织结构、可自定义标记，其标记名称是对标记所包含的数据内容含义的抽象，而不是数据的显示格式。 2．答：使用UTF-8保存 5．答：（1）不可以，（2）可以，（3）不可以 6．答：： time { display:block;font-size:18pt;font-weight:bold } hour { display:line;font-size:16pt;font-style:italic } mimute { display:line;font-size:9pt;font-weight:bold } 习题二1．答：（1）使用ANSI编码。（2）可以。（3）不合理。 2．答：不相同。 3．答：（1）和（2）。 4．答：。
5．答：“root”标记包含的文本内容都是空白字符。“a1”标记包含的文本内容:
Unit 1 Text A Exercises 1. Reading comprehension A. Read the text and answer the following questions. 1. What, according to the author, do Americans love? Cite examples to illustrate your point. Americans love new frontiers. For example, they hanker after wide-open spaces; they like to explore; they like to make rules but refuse to follow them. 2. Is there a place on earth where you can go and be yourself? What is the place according to the author? According to the author, there is a place—cyberspace, where you can go and be yourself. 3. What metaphor does the author use to describe cyberspace? Why does she use such a metaphor? Real estate, because both real estate and cyberspace consist of different parts and each part is suitable for a particular group of people. 4. Does the author approve of regulating cyberspace? Why or why not? Yes, but first, it is fundamental to understand the nature of cyberspace. 5. What does the author think is needed in cyberspace besides government
大学经典C语言编程试 题
1.输入两个正整数，m和n，求其最大公约数和最小公倍数。 #include<> void main() { int hcf(int,int); /*函数声明*/ int lcd(int,int,int); /*函数声明*/ int u,v,h,l; printf("Please ｉｎｐｕｔ two numbers:\n"); scanf("%d,%d",&u,&v); h=hcf(u,v); l=lcd(u,v,h); } int hcf(int u,int v) { int t,r; if(v>u) {t=u;u=v;v=t;} while((r=u%v)!=0) {u=v;v=r;} return(v); } int lcd(int u,int v,int h) { return(u*v/h); } 2.输入一行字符，分别统计出其中字母、空格、数字和其他字符的个数。 #include<> int letter,digit,space,others; void main() { void count(char[]); char text[80]; printf("Please ｉｎｐｕｔ string:\n"); gets(text); printf("string:\n"); puts(text); letter=0; digit=0; space=0; others=0; count(text); printf("letter:%d,digit:%d,space:%d,others:%d\n",letter,digit,space,others); } void count(char str[]) {
第一章 1.1946 2.大规模集成电路 3.计算机辅助设计、计算机辅助教学、计算机辅助制造、计算机辅助测试、计算机辅助教育、操作系统 4.人工智能 5.存储程序工作原理 6.运算器 7.RAM 8.逻辑 9.字长 10.位、字节 11.位、字节 12.1024、1024、1024*1024 13.1 14.2 15.48H、65H、97H、32 16.288 17.操作系统 18.程序 19.高级语言 20.机器 21.编译、解释 22.应用、系统 23.输入、输出设备 24 .硬盘 25.高速缓冲存储器 26.传染性 27.2 28.R （文科不做） 29.111111 K 7f （文科不做） 30.213、D5 （文科不做） 第二章 1.255 2.隐藏 3.存档 4.内存条、硬盘 5.Alt
6.[cttl+shift]> [shift+o] [ctrl+space] [ctrl+o] 7.[alt+F4] 8.后台 9.[Shift]> [Ctrl] 10.[Shift] 11.[Ctrl] 12.回收站 13.msconfig 14.单击该按钮会弹出对话框、有下级了菜单、当前状态不可用 15.[Ctrl+Esc]或[win ] 16.最大化或还原 17.分辨率 18.刷新频率 19.磁盘清理 20.[Ctrl+Shift+Delete] 第三章 1.doc 2.我的文档 3.拼写错误、语法错误 4.一行、一段、全部 5.页面 6.回车符号 7.[Alt+Tab] 8.[Ctrl+O] 9.[Ctrl+N] 10.页眉页脚 第四章 1.3、255 2.65536、256 3.[Ctrl+； ]> [Ctrl+Shift+；] 4.= 5.40833 6. 3 7.[ Ctrl ] 8.$ 9.地址栏 10.F2 第五章
1.逆序输出正三位数 #include
double c=(a+b)/2.0; /* scanf("%d",&amount); 这是注释，我随便放的，没意义 int change=amount-price;*/ printf("%d和%d的平均值是%f\n",a,b,c); return 0; } 4.写出程序的输出： int i=1; switch ( i/3 ) { case 0: printf("zero"); case 1: printf("one"); case 2: printf("two"); } 正确答案是：zeroonetwo。 5.水仙花数是指一个N位正整数（N>=3），它的每个位上的数字的N次幂之和等于它本身。例如：153 = 13 + 53+33。本题要求编写程序,计算所有N位水仙花数。 输入格式： 输入在一行中给出一个正整数N（3<=N<=7）。 输出格式： 按递增顺序输出所有N位水仙花数，每个数字占一行。 输入样例： 3 输出样例： 153 370 371 407
XML基础教程课后习题 习题一 1．答：HTML是用来编写Web页的语言、不允许用户自定义标记，HTML体现数据的显示格式。XML描述数据的组织结构、可自定义标记，其标记名称是对标记所包含的数据内容含义的抽象，而不是数据的显示格式。 2．答：使用UTF-8保存 5．答：（1）不可以，（2）可以，（3）不可以 6．答：： time { display:block;font-size:18pt;font-weight:bold } hour { display:line;font-size:16pt;font-style:italic } mimute { display:line;font-size:9pt;font-weight:bold } 习题二1．答：（1）使用ANSI编码。（2）可以。（3）不合理。 2．答：不相同。 3．答：（1）和（2）。 4．答：。 5．答：“root”标记包含的文本内容都是空白字符。“a1”标记包含的文本内容:
《Visual Basic程序设计基础》教材 习题 第1章 Visual Basic 6.0程序设计概述 习题 一、判断题 参考答案： 1．√2．√3．√4．×5．√6．×7．√8．×9．√10．√11．×12．√13．×14．√15．√ 二、选择题 参考答案： 1. C 2. B 3．D 4．C 5．B 6．A 7．D 8．A 9．B 10．D 三、填空题 参考答案： 1．对象、事件2．属性、方法、事件3．控件、屏幕（Screen） 4．Left 5. Top 6．属性、<对象名>.<属性名>=<表达式> 7．网格8．F o rm1 9．Load或Initialize或Resize或Activate（自动执行的先后顺序也按此排列） 10．Activate、Deactivate 四、程序设计题 参考代码： 程序1．界面设计参看表1。 表1 各控件的主要属性设置
过程设计如下： Private Sub Command1_Click() Label2.Visible = False ‘使控件Label2看不见 Label1.Caption = Text1.Text + ": 欢迎使用" + Label1.Caption Text1.Visible = False ‘使控件Text1看不见Command1.Enabled = False ‘使控件Command1不能用Command2.Enabled = True ‘使控件Command2能用End Sub Private Sub Command2_Click() End ‘结束程序运行 End Sub 程序2．界面设计， 过程设计如下： Private Sub Command1_Click() '字体变大 Form1.FontSize = Form1.FontSize + 3 Form1.Cls: Print "欢迎使用VB" End Sub Private Sub Command2_Click() '字体变小 Form1.FontSize = Form1.FontSize - 3 Form1.Cls Print "欢迎使用VB" End Sub Private Sub Command3_Click() '字体加粗 Form1.FontBold = True