浙大远程16年秋数据库应用程序设计离线作业(兼容)
16春浙大远程Web程序设计离线作业

浙江大学远程教育学院《Web程序设计》课程作业姓名:学号:年级:15年春学习中心:—————————————————————————————HTML部分一、选择题:1.以下哪个选项能显示成两行文字a) The first line and <BR> second lineb) The first line and \n second linec) The first line andsecond lined) The first line and second line答:a) The first line and <BR> second line2. <A href="mailto:"> post your resume </A>a) mailto:是一种协议,是email发送的地址b) mailto: 是邮件被发送的地址c) mailto: 是显示在web网页上的超链接d) 以上都不对答:a) mailto:是一种协议,是email发送的地址3. <STYLE>标记可以出现在a) <HEAD>…</HEAD>中b) <BODY>…</BODY>中c) a)和b)都正确d) 以上都不正确答:a) <HEAD>…</HEAD>中4. 以下代码会生成什么样的Frame结构<html><frameset border=”5” cols=”*,20%”><frameset rows=”20%,*”><frame src=”top.html” name=”topFrame” scrolling=”NO”/><frame src=”left.html” name=”leftFrame”/></frameset><frame src=”right.html” name=”rightFrame” scrolling=”NO”/> </frameset></html>a)b)d)答:c) 不过形状有点问题,应该是5. 以下HTML代码在浏览器中的显示结果正确的是<TABLE WIDTH="100%" BORDER=1 BGCOLOR=gray><CAPTION> Sample table </CAPTION><TR ALIGN=CENTER ><TD COLSPAN=2>Cell</TD> <TD> Cell </TD></TR><TR ALIGN=CENTER ><TD ROWSPAN=2>Cell</TD> <TD> Cell </TD> <TD> Cell </TD></TR> <TR ALIGN=CENTER ><TD> Cell </TD> <TD> Cell </TD></TR> </TABLE>a)Sample TableSample Table二、简答题:1、简述Web的工作原理答:Web的工作原理就是用户通过浏览器来得到服务器上的某项服务的过程。
浙大远程操作系统原理离线作业及答案

浙⼤远程操作系统原理离线作业及答案操作系统原理离线作业⼀、单选题1.进程P0和P1的共享变量定义及其初值为boolean flag[2];int turn=0;flag[0]=FALSE;flag[1]=FALSE;若进程P0和P1访问临界资源的类C代码实现如下:void P0() //P0进程{ while(TURE){flag[0]=TRUE; turn = 1;while (flag[1] && turn == 1) ;临界区;flag[0] = FALSE;}}void P1() //P1进程{ while(TURE){flag[1]=TRUE; turn = 0;while (flag[0] && turn == 0) ;临界区;flag[1] = FALSE;}}则并发执⾏进程P0和P1时产⽣的情况是:DA.不能保证进程互斥进⼊临界区、会出现“饥饿”现象B.不能保证进程互斥进⼊临界区、不会出现“饥饿”现象C.能保证进程互斥进⼊临界区、会出现“饥饿”现象 D.能保证进程互斥进⼊临界区、不会出现“饥饿”现象2.有两个进程P1和P2描述如下:shared data:int counter = 6;P1 :Computing;counter=counter+1;P2 :counter=counter-2;两个进程并发执⾏,运⾏完成后,counter的值不可能为 C 。
A. 4B. 5C. 6D. 73.某计算机采⽤⼆级页表的分页存储管理⽅式,按字节编址,页⼤⼩为210字节,页表项⼤⼩为2字节,逻辑地址结构为:页⽬录号页号页内偏移量逻辑地址空间⼤⼩为216页,则表⽰整个逻辑地址空间的页⽬录表中包含表项的个数⾄少是BA.64 B.128 C.256 D.5124.在动态分区系统中,有如下空闲块:空闲块块⼤⼩(KB)块的基址1 80 602 75 1503 55 2504 90 350此时,某进程P请求50KB内存,系统从第1个空闲块开始查找,结果把第4个空闲块分配给了P进程,请问是⽤哪⼀种分区分配算法实现这⼀⽅案? CA.⾸次适应B. 最佳适应C. 最差适应D. 下次适应5.在⼀页式存储管理系统中,页表内容如下所⽰。
数据库应用程序设计第一次离线作业答案

《数据库应用技术》作业第六章6、系统DSN 用户DSN 文档DSN 系统DSN7、基于BDE的两层数据库应用程序、基于ADO的两层数据库应用程序、基于dbExpress 的两层数据库应用程序、基于InterBase的两层数据库应用程序8、三层开发结构的数据库应用程序方法主要有三种:基于DataSnap技术开发的多层结构数据库应用程序、基于Bussiness Broker Server技术开发的多层数据库应用程序和基于逻辑三层结构的数据库应用程序。
9、ODBC各部件及层次关系图10、1)打开ODBC数据源管理器:执行【开始】->【控制面板】命令,在控制面板窗口中双击【性能维护】图标,再双击【管理工具】图标,然后再双击【数据源(ODBC)】图标,将会展示【ODBC数据源管理器】对话框2)选择数据源类型并添加数据源:在【ODBC数据源管理器】对话框中单击【系统DSN】,再单“添加”按钮,出现【创建新数据源】对话框3)选择驱动数据源的驱动程序:在【创建新数据源】对话框中,选择【Microsoft Access Driver (*.mdb)】后单击【完成】按钮,出现【ODBC Microsoft Access安装】对话框4)设置数据源参数:在【数据源名】文本框中输入数据源名,在【说明】文本框中抒发说明信息。
单击【选择】按钮,出现【选择数据库】对话框。
在该对话框中选择对应的数据库名后单击【确定】按钮5)在【ODBC Microsoft Access安装】对话框中单击【确定】按钮,完成数据源的配置。
11、1)打开ODBC数据源管理器:执行【开始】->【控制面板】命令,在控制面板窗口中双击【性能维护】图标,再双击【管理工具】图标,然后再双击【数据源(ODBC)】图标,将会展示【ODBC数据源管理器】对话框2)选择数据源类型并添加数据源:在【ODBC数据源管理器】对话框中单击【系统DSN】,再单“添加”按钮,出现【创建新数据源】对话框3)选择驱动数据源的驱动程序:在【创建新数据源】对话框中,选择【SQL Server】后单击【完成】按钮,出现【创建到SQL Server的新数据源】对话框4)为数据源命名并选择SQL 服务器:在【创建到SQL Server的新数据源】对话框的【名称】文本框中输入数据源名,在【描述】文本框中输入数据源的描述,在【服务器列表框中选择或输入SQL服务器的名称。
数据库应用程序设计离线作业

浙江大学远程教育学院《数据库应用程序设计》课程作业(必做)姓名:赵崇君学号:913005012001年级:13年春学习中心:杭州学习中心—————————————————————————————备注:提交时请直接提交源代码程序,不提交EXE可执行文件。
第一章1、Delphi2007 for win32集成开发环境由哪几部件组成?简述各部分的功能。
主窗口:提供系统菜单栏、系统工具条和组件面板设计视图:提供项目程序设计工作区域代码编辑器:提供程序代码编写、快捷的代码编写功能、对象观察器结构视图:窗体设计器工作状态,用于显示窗体中可视化控件的继承结构;窗体设计器代码编辑状态,用于显示源代码对象的继承结构,同时提供代码编写错误提示信息;项目管理器、模型视图和数据管理器项目管理器:显示工程结构和工程文件管理;模型视图:提供项目逻辑表示数据管理器:用于浏览数据库中的对象,也可以用于创建和管理数据链接; 欢迎界面:引导进入delphi开发,同时显示最近打开过的项目,还是显示网络和RSS的最新新闻、资源;历史代码页面:记录项目文件历史编辑过程日志,当前单元文件的编辑日期及作者;帮助系统:Borland delphi 2007快速启动指南;Delphi 2007在线帮助;Mircrosoft .NET Framework在线帮助;Borland软件开发技术支持和相关网站;2、Delphi单元文件主要由哪几个部分组成?简述各部分的功能。
库单元文件头:其中声明了库单元的名字.Interface部分:由保留字interface开始,结束于保留字implementation,它用来声明引用的单元,常量,数据类型,变量,过程和函数.在 Interface部分声明的变量,常量,数据类型,过程,函数都可以供外部引用,对整个程序而言是共有的.也就是说,对于所有引用该单元的单元来说,这些声明都是可见和可访问的.在Interface部分,只需写出过程和函数的首部,具体的定义是在下面的implementation部分给出的.Interface部分又可分为多个可选部分,分别为单元引入部分(uses),常量说明部分,类型说明部分,变量说明部分,过程和函数声明部分.Implementation部分:Implementation部分分为两部分.一部分是声明部分,包括单元引用,常量,类型,变量,过程和函数的声明,这一点和Interface部分相似.区别有两点:(1):在Implementation部分声明的只对本单元是公共的,可见的,其他单元即使引用了该单元,也不能访问它们.(2):在Implementation部分声明的过程和函数,不需要遵循先声明后定义的规则,而可以直接写出过程和函数的定义.另一部分是在Interface部分声明的过程和函数的定义.4.Initialization部分:用于初始化该库单元,此处的代码最先执行.如果多个库单元中包含Initialization部分那么它们的执行顺序就和Program的uses部分引用单元的出现顺序是一致的.Finalization部分:通常用于释放Initialization部分分配的资源.如果多个库单元中包含Finalization部分,其执行顺序和Initialization部分正好相反.3、模仿例1.1,编写一个简单的窗体程序,显示如下内容:***************************欢迎学习Delphi语言!***************************提示:使用三个TLabel直接设置其Caption属性值。
浙江大学远程教育2016年秋季计算机基础知识题1

第1章计算机基础知识(单选题)这些题目必须做一遍,来自统考题库(期末考试题也多半出在这里),参考答案在另一个Word文档中(上传自己做的答案后才可以下载…)。
据说,统考题库中大约有10,000测试题,我想它的十分之一还是要做的。
只要大家听话,一次性通过考试还是没问题的。
知识题以单选题的形式给出。
一.关于计算机的诞生与发展1、一般认为,世界上第一台电子数字计算机诞生于__A____。
A.1946年B.1952年C.1959年D.1962年[解析]参考p.12、当前的计算机一般被认为是第四代计算机,它所采用的逻辑元件是___C___。
A.集成电路B.晶体管C.大规模集成电路D.电子管[解析]请记忆:第一代主要元件是电子管,第二、三代分别是晶体管和集成电路(参考p.1和p.2)。
计算机经历了四个时代,其划分主要依据是计算机的“构成元件”(又称电子元器件)。
3、下列关于世界上第一台电子计算机ENIAC的叙述中,错误的是__D____。
A.世界上第一台计算机是1946年在美国诞生的B.它主要采用电子管作为主要电子器件C.它主要用于军事目的和科学计算,例如弹道计算D.确定使用高级语言进行程序设计[解析] ENIAC是第一台电子计算机的英文缩写。
从第二代计算机才开始引入高级程序语言BASIC和ForTran等,所以D是错的。
4、目前,微型计算机中广泛采用的电子元器件是__D____。
A.电子管B.晶体管C.小规模集成电路D.大规模和超大规模集成电路[解析]略5、早期的计算机体积大、耗电多、速度慢,其主要原因是制约于__D____。
A.元材料B.工艺水平C.设计水平D.元器件 -----早期的计算机元器件是电子管,其体积大、耗电多。
[解析]略二.计算机的分类6、计算机可分为数字计算机、模拟计算机和数模混合计算机,这种分类是依据__B____。
A.功能和用途B.处理数据的方式(或处理数据的类型)C.性能和规律D.使用范围[解析]参考p.2。
2016浙大远程信息系统安全离线作业

2016浙大远程信息系统安全离线作业浙江大学远程教育学院《信息系统安全》课程作业姓名:学号:年级:学习中心:—————————————————————————————第一次作业一、判断题提示:此题为客观题,进入“在线”完成。
二、选择题提示:此题为客观题,进入“在线”完成。
三、简答题1、SIM卡是(Subscriber Identity Model 客户识别模块)的缩写,也称为智能卡、用户身份识别卡, GSM数字移动电话机必须装上此卡方能使用。
一般SIM卡的IC芯片中,有8kB 的存储容量,可供储存以下信息: (1) 100组电话号码及其对应的姓名文字。
(2) 15组短信息(Short Message)。
(3) 5组以上最近拨出的号码。
(4) 4位SIM卡密码(PIN)。
SIM卡有两个PIN码:PIN1码和PIN2码。
通常讲的PIN 码就是指PIN1码,它用来保护SIM卡的安全,加密SIM卡中的数据,是属于SIM卡的密码。
PIN2码跟网络的计费(如储值卡的扣费等)和SIM卡内部资料的修改有关。
某间谍被国家安全部门抓获,将手机SIM卡咬碎成几个部分。
国家安全部门将SIM卡的各部分数据恢复整合,获得部分联系人信息。
问国家安全部门需要进行哪些流程。
(视频教学内容第13、14章)1)S IM被咬碎成几个部分,首先需要把每个部分存储的IC芯片中的数据读出2)根据咬碎几个部分的几何位置,恢复原SIM卡中8KB数据3)恢复的8KB数据是加密过的数据,属于密文4)需要破解PIN1码,PIN码只有4位,可以穷举从0000到9999。
5)用PIN1码解密获得电话号码、短信、最近拨出的号码。
6)容易出错地方:PIN2可以不解密。
根据题意,PIN2与计费有关和SIM卡内部资料的修改,不用来加密数据2、银行卡复制器是一种金融入侵工具,安装在银行的柜员机的磁卡入口处,只要卡插入后账户资料就被磁卡采集器读取,同时需要偷看用户的密码。
2016秋新版 浙大远程 电子技术基础 离线作业答案 第二篇 第1章习题(word文档良心出品)

第二篇 第1章习题题2.1.1 在图题2.1.1所示的差分放大电路中,设T 1、T 2管特性对称,已知β=60,r be =2 k Ω,其余参数如图中所示。
(1) 计算T 1、T 2管的静态集电极电流I CQ 和集电极电压V CQ ; (2) 求差模电压放大倍数vd A ;(3) 计算差模输入电阻R id 和输出电阻R o 。
图题 2.1.1答:(1)因恒流供电,所以,V V mA I CQ CQ 5,1=≈;(2).75-=vd A ;(3)8=i R k Ω,10=O R k Ω; 题2.1.2 在图题2.1.2所示的差分放大电路中,设T 1、T 2管特性对称,β1=β2=100,V BE =0.7V ,且r bb ′=200Ω,其余参数如图中所示。
(1) 计算T 1、T 2管的静态电流I C1Q 、I C2Q 和静态电压V CE1Q 、V CE2Q ; (2) 计算差模电压放大倍数iovd V V A =;(3) 若v I =20sin ωt m V ,写出v O 的波形表达式。
图题 2.1.2答:这是一个单入/单出差分放大电路。
(1)静态计算和双入/双出相同,输入静态为零时:因为V E =-0。
7后可求得:V V V V V V mA I I OQ Q CE Q CE Q C Q C 58.2,28.3,7.12,57.02121====;(2)1.52.=vd A ;(3))sin 04.158.2(t v o ω+=V 。
题2.1.3 在图题2.1.3所示的差分放大电路中,设T 1、T 2管特性对称,β1=β2=100,V BE =0.7V ,且r bb ′=200Ω,其余参数如图中所示。
(1) 计算T 1、T 2管的静态电流I CQ 和静态电压V CEQ 。
若将R c1短路,其它参数不变,则T 1、T 2管的静态电流和电压如何变化?(2) 计算差模输入电阻R id 。
当从单端(c 2)输出时的差模电压放大倍数2vd A &=?; (3) 当两输入端加入共模信号时,求共模电压放大倍数2vc A &和共模抑制比K CMR ; (4) 当v I1=105 mV ,v I2=95 mV 时,则T 2管集电极电压v C2是多少?e 点电压v E 是多少?图题 2.1.3答:(1) 求静态工作点:mA 56.0102101/107122)1/(1=⨯+-=+β+-=e b BE EE CQ R R V V IV 7.07.01010056.01-≈-⨯-=--=BE b BQ E V R I V V 1.77.01056.012=+⨯-=--=E c CQ CC CEQ V R I V V若将R c1短路,则mA 56.021==Q C Q C I I (不变) V 7.127.0121=+=-=E CC Q CE V V VV 1.77.01056.0122=+⨯-=--=E c CQ CC Q CE V R I V V (不变)(2) 计算差模输入电阻和差模电压放大倍数:Ω=⨯+=β++=k 9.456.026101200)1('EQ T bb be I V r r Ω=+⨯=+=k 8.29)9.410(2)(2be b id r R R5.338.2910100)(22.=⨯=+=be b cd r R R A β(3) 求共模电压放大倍数和共模抑制比:5.0201019.410101002)1(2.-=⨯++⨯-=+++-=e be b c c R r R R A ββ675.05.332.2.===c d CMR A A K (即36.5dB ) (4) 当v I1=105 mV ,v I2=95 mV 时,mV 109510521=-=-=I I Id v v vmV 100295105221=+=+=I I Ic v v v m V 285100)5.0(105.332.2.2=⨯-+⨯=⋅+⋅=∆Ic c Id d O v A v A v所以,V O2相对于静态值增加了285 mV 。
16浙大远程数据库技术离线作业资料

浙江大学远程教育学院《数据库技术》课程作业姓名:吴文杰学号:716129242005年级:16春学习中心:紫金港—————————————————————————————填空题:注:空白下划线处为需要填充的部分。
带下划线部分为考试时可能出题的部分,需要重点注意。
1.数据是信息的符号表示。
数据处理从某些已知的数据出发,推导加工出新的信息。
数据管理及其技术发展的阶段包括:人工管理阶段、文件系统阶段、数据库系统阶段、高级数据库系统阶。
2.人工管理阶段在20世纪50年代中期以前,其特点是:数据不保存在计算机中;没有软件系统对数据进行统一管理;基本没有文件的概念;一组数据对应一个程序,数据是面向程序的;程序和程序之间存在着大量的重复数据。
3.文件系统阶段在20世纪50年代后期至20世纪60年代中期,其特点是:数据长期保留在外存上,可经常对文件进行查询、修改、插入、删除等操作;有软件(文件系统)对数据进行管理,程序和数据有了一定的独立性;文件的形式多样化,有顺序文件、索引文件和散列文件等;数据的存取基本上以记录为单位。
4.数据库系统阶段在20世纪60年代后期开始,其特点是:面向全组织的数据结构化;数据的共享性高、低冗余、易扩充;数据独立性高。
5.数据库是长期储存在计算机存储设备上、相互关联的、可以被用户共享的数据集合。
6.数据独立性是指数据的组织和存储方法与应用程序互不依赖、彼此独立的特性。
7.数据库管理系统——DataBase Management System,简称DBMS ,DBMS运行在操作系统之上对数据库进行统一的管理和控制,并且使数据库能为多个用户共享,同时还能保证数据的安全性、可靠性、完整性、一致性,还要保证数据的高度独立性等。
数据库管理系统具备如下功能:数据库中数据的组织功能;数据库中数据的操纵功能;数据库中数据的维护功能;数据库中数据的查询功能;数据库控制功能;数据库通讯功能;数据库的数据服务功能。
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
浙江大学远程教育学院《数据库应用程序设计》课程作业姓名:学号:年级:15年春学习中心:—————————————————————————————作业第一章1.5 如何保存Delphi的项目?尝试自己动手创建一个项目,并保存。
答:练习课本例1.1,创建“我的第一个Delphi小程序”运行程序:保存项目,选择全部保存,保存为dpr格式:1.7 尝试设计如图1-10所示的窗体。
(图见教材P15页图1-10)图1-10答:向窗体中添加一个标签组件label,三个radionbutton按钮和两个按钮组件button,并根据原图设置对应的的Caption值,并使得radionbutton1的checked属性变为True,如图所示:运行后:第二章2.8设计如图2-5所示的界面。
单击“按钮1”或“按钮2”时在标签上显示用户所执行的操作。
单击“开启/停用按钮”可控制“按钮1”和“按钮2”是否可用,单击“退出系统”按钮时,结束程序的运行。
答:程序主要代码清单如下:procedure TForm1.Button1Click(Sender: TObject);beginlabel1.Caption:='您点击了按钮1!';end;procedure TForm1.Button2Click(Sender: TObject);beginlabel1.Caption:='您点击了按钮2!';end;procedure TForm1.Button3Click(Sender: TObject); beginlabel1.Caption:=' ';end;procedure TForm1.Button4Click(Sender: TObject); beginForm1.Close;end;2.9 设计如图2-6所示的界面。
当单击按钮时,可控制文本框中字体的颜色。
图2-5 图2-6 答:程序主要代码清单如下:procedure TForm1.Button1Click(Sender: TObject); beginEdit1.Font.Color:= clred;end;procedure TForm1.Button2Click(Sender: TObject); beginEdit1.Font.Color:= clgreen;end;procedure TForm1.Button3Click(Sender: TObject); beginEdit1.Font.Color:= clblue;end;第三章3.8 下列实数中哪些是合法的,哪些是不合法的?不合法的请说明理由。
(A)0.25E+02 (B).25+2 (C)25E+2(D)34.5 (E).123 (F)-3E-4答:(A)0.25E+02 合法(B).25+2 不合法,指数记数法不能省略E,小数点前后一定要有数字。
(C)25E+2 合法(D)34.5合法(E).123 不合法,因为小数点前后一定要有数字(F)-3E-4 合法3.12 数学式子sin30。
写成Delphi表达式是下列哪个?(A)Sin30 (B)Sin(30) (C)SIN(30。
)(D)Sin(30*Pi/180)答:要把角度30度转化为弧度表示,所以应该是(D)Sin(30*Pi/180)第四章4.7 利用3个数字编辑框分别输入小时、分、秒,换算共有多少秒,然后使用标签输出。
答:程序主要代码清单如下:procedure TForm1.Button1Click(Sender: TObject);beginlabel5.Caption:=inttostr(spinedit1.value*3600+spinedit2.value*60+spinedit3.value)+'秒'; end;4.8 在编辑框中输入一个实数,利用备注框输出该实数及其平方和平方根。
答:程序主要代码清单如下:procedure TForm1.Button1Click(Sender: TObject);beginmemo1.Lines.Clear;memo1.Lines.Strings[0]:=edit1.Text+'的平方是'+floattostr(sqr(strtofloat(edit1.Text) ) )+chr(13) +chr(10);memo1.Lines.Strings[1]:=edit1.Text+'的平方根是'+floattostr(sqrt(strtofloat(edit1.Text) ) ); end;procedure TForm1.FormCreate(Sender: TObject);beginmemo1.Lines.Clear; edit1.Clearend;第五章5.11 任意给定3个实数,按照从大到小的顺序依次输出这3个数。
答:程序主要代码清单如下:uses Math ;procedure TForm1.Button1Click(Sender: TObject);var a,b,c,d,e,f:real;begina:=strtofloat(edit1.Text);b:=strtofloat(edit2.Text);c:=strtofloat(edit3.Text);d:=max(max(a,b),c);f:=min(min(a,b),c);if (a<d) and (a>f) then e:=aelse if (b<d) and (b>f) then e:=belse if (c<d) and (c>f) then e:=c;label3.Caption:=floattostr(d)+' '+ floattostr(e)+' '+floattostr(f); end;procedure TForm1.FormCreate(Sender: TObject);beginedit1.clear;edit2.clear;edit3.clear;label3.Caption:=' ' ; end;5.13 假设工资的增幅标准为:若基本工资大于等于1000元,增加工资20%;若小于1000元大于等于800元,则增加工资15%;若小于800元,则增加工资10%。
请根据用户在文本框中输入的基本工资,计算出增加后的工资。
答:程序主要代码清单如下:procedure TForm1.Button1Click(Sender: TObject);vara,b:real;begina:=strtofloat(edit1.Text) ;if (a >= 1000) then b := a*1.2else if (a >= 800) then b := 1.15*aelse b := 1.1*a ;edit2.Text:=floattostr(b) ;end;procedure TForm1.FormCreate(Sender: TObject);beginedit1.clear;edit2.clear;end;第六章6.5 设s=1X2X3X…Xn,求s不大于20000时最大的n。
答:程序主要代码清单如下:procedure TForm1.Button1Click(Sender: TObject); varx,s:integer;beginx:=1;s:=1;while s <= 20000 dobegin x:=x+1; s:=x*s; end;label2.Caption :='n='+inttostr(x-1)end;procedure TForm1.FormCreate(Sender: TObject); beginlabel2.caption:=' ';end;6.10 在标签上输出100~200之间的所有的奇数,其中3的倍数除外。
答:程序主要代码清单如下:procedure TForm1.Button1Click(Sender: TObject);vara,i:integer ;ar : array[1..50] of integer;begini:=1;For a := 100 To 200 Dobeginif ((a mod 2 = 1) and ((a mod 3) <> 0 ) )thenbeginar[i] := a;label2.Caption := label2.Caption + inttostr(ar[i])+' ';if (i mod 10 =0 ) then label2.Caption := label2.Caption + chr(13)+chr(10);i:= i+1;end;end;end;procedure TForm1.FormCreate(Sender: TObject); beginlabel2.Caption:=' ' ;end;第七章7.4 求1~200这200个数的和,当和大于10000时结束计算。
(要求使用转向语句)答:程序主要代码清单如下:procedure TForm1.Button1Click(Sender: TObject);vari,sum,x:integer;beginsum:=0;i:=0;repeati:=i+1;sum:=sum+i;if (sum >10000) thenbegin x:=i-1;break; end;until i>=200;label3.Caption:='相加的数字是从1到'+inttostr(x)+',和为'+ inttostr(sum-x-1) ; end;procedure TForm1.FormCreate(Sender: TObject);beginlabel3.Caption:=' ';end;第八章8.8 编写函数,输出100~500之间所有能同时被3和13整除的数。
答:建立工程,设计界面如图:在代码编辑窗口的private 中定义函数ch的原型部分:private{ Private declarations }function ch(a,b:integer): string;将光标放在该函数原型的代码定义行,按下ctrl+shift+C组合键,在函数体定义中加入代码。
程序主要代码清单如下:function TForm1.ch(a, b: integer): string;var s:string;i:integer;beginfor i:=a to b doif (i mod 3 = 0) and (i mod 13 =0)then s := s+inttostr(i)+' ';result:=s;end;procedure TForm1.FormCreate(Sender: TObject);beginedit1.Clear;edit2.Clear;label4.Caption:=' ';end;procedure TForm1.Button1Click(Sender: TObject);beginlabel4.Caption:=ch(strtoint(edit2.Text) ,strtoint(edit1.Text)) ;end;第九章9.2 打开对话框组件和打开图片对话框组件有什么异同点?答:打开对话框组件和打开图片对话框组外观相似,只是打开图片对话框组件增加了一个预览区域,可以用来显示用户所选择的图象。