2017浙大远程《数据库应用程序设计》离线作业
- 格式:docx
- 大小:2.05 MB
- 文档页数:22
浙⼤远程操作系统原理离线作业及答案操作系统原理离线作业⼀、单选题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.在⼀页式存储管理系统中,页表内容如下所⽰。
浙江大学远程教育学院《数据库应用程序设计》课程作业(选做)姓名:郑黉宾学号:712021012001年级:2012春学习中心:福州学习中心—————————————————————————————备注:提交时请直接提交源代码程序,不提交EXE可执行文件。
第一章1、简述Delphi2007的安装要求与安装过程(for win32)。
1、IDE工具采用.Net2.0来编写,安装时候需要.Net frameWork2.0,但编译出来的Exe是纯正的Win32程序,发布不需要.Net frameWork2.0。
新IDE采用.Net frameWork2.0是为了更好的统一IDE平台,利用.Net的反射、泛型等高级特性,节省编写IDE时间。
新的IDE 确实比D7启动还要快,大概是五六秒时间左右就启动,跟2005差不多。
演示中,新的IDE编译新建工程比D7还要快一点。
2、Delphi2007支持Vista界面,封装了Vsita的新API函数。
3、Delphi2007有一个功能很有意思,支持D2006的所有BPL组件。
意思是,如果你用D2006编译过的BPL,没有源码和DCU,也可以直接安装在Delphi2007。
哈哈,这个是delphi 版本上的史无前例,即使第三方控件包来不及支持Delphi2007,也不妨碍开发人员从D2006 升级到Delphi2007做项目开发。
4、支持MS Build。
比如支持Debug、Release。
也支持编译前和编译后事件,可调用BAT 文件。
比如,你编译前邮件告诉老板,你要给我加薪50%,否则十分钟后销毁源代码。
另外,也可以修改其xml格式,只编译特定的程序代码。
5、Delphi2007 for Win32数据集控件全面支持Unicode。
比如,你的数据库表字段可采用中文名称作字段。
Filter也支持Unicode。
唉,为了这个filter支持Unicode,有些人在delphiBBS上苦苦守候了六七年。
1.【第1章】现实世界中所管理的对象称作(),其定义为:客观存在并可以相互区分的客观事物或抽象事件。
∙ A 实体(Entity)∙ B 联系∙ C 属性∙ D E-R∙单选题2.【第1章】()是位于用户与操作系统之间的一层数据管理软件。
∙ A DB∙ B DBS∙ C DBMS∙ D Data∙单选题3.【第1章】数据库中不仅存储数据本身,还要存储数据与数据之间的联系,这种数据和联系是需要描述和定义的,()正是完成此项任务的。
∙ A 数据库管理系统∙ B 数据模型∙ C 概念模型∙ D 层次模型∙单选题4.【第1章】数据库(DB)、数据库系统(DBS)和数据库管理系统(DBMS)三者之间的关系是:∙ A DBS包括DB和DBMS∙ B DBMS包括DB和DBS∙ C DB包括DBS和DBMS∙ D DBS就是DB,也就是DBMS∙单选题5.【第1章】用()表示实体和实体之间联系的模型称为关系数据模型。
∙ A E-R∙ B 关系(表格数据)∙ C 树型结构∙ D 网状结构∙多选题6.【第1章】文件系统阶段在20世纪50年代后期至20世纪60年代中期,其特点是:()。
∙ A 数据长期保留在外存上,可经常对文件进行查询、修改、插入、删除等操作∙ B 有软件(文件系统)对数据进行管理,程序和数据有了一定的独立性∙ C 文件的形式多样化,有顺序文件、索引文件和散列文件等∙ D 数据的存取基本上以记录为单位∙多选题7.【第1章】人工管理阶段在20世纪50年代中期以前,其特点是:()。
∙ A 数据不保存在计算机中∙ B 没有软件系统对数据进行统一管理∙ C 基本没有文件的概念∙ D 数据与程序不具备独立性,一组数据对应一个程序,数据是面向程序的∙ E 程序和程序之间存在着大量的重复数据∙多选题8.【第1章】传统的三大数据模型:∙ A 层次模型∙ B 网状模型∙ C 概念模型∙ D 关系模型∙多选题9.【第1章】数据库系统阶段在20世纪60年代后期开始,其特点是:()。
第2章【2.3】测试下面的注释(它在C++风格的单行注释中套入了类似于C的注释)是否有效。
//this is a strange /*way to do a comment*/答:此注释有效,单行注释中可以嵌套 / * …… * /方式的注释。
【2.4】以下这个简短的C++程序不可能编译通过,为什么?#include<iostream>using namespace std;sum(int a,int b)int main(){int a,b,c;cout<<"Enter two numbers:";cin>>a>>b;c=sum(a,b);cout<<"sum is:"<<c;return 0;}sum(int a,int b){ return a+b;}答:不可能通过编译.在using namespace std;后面加上sum(int a,int b)就可以通过。
【2.5】回答问题。
(1) 以下两个函数原型是否等价:float fun(int a,float b,char *c);float fun(int,float,char * );(2) 以下两个函数的第一行是否等价:float fun(int a,float b,char * c);float fun(int,float,char * );答:(1)这两个函数原型是等价的,函数原型中的参数名可以缺省。
(2)这两个函数的第1行是不等价的,因为这个函数的第1行中必须包含参数名。
【2.6】下列语句中错误的是(D )。
A.int *p=new int(10);B.int *p=new int[10];C.int *p=new int;D.int *p=new int[40](0);【2.7】假设已经有定义“const char * const name="chen";”下面的语句中正确的是(D )。
15春浙大《数据库技术》离线作业浙大《数据库技术》离线作业一、简答题(本大道共2道小题,每小题10分,共20分)1. 试述DBMS的主要功能。
(10分)2. 试述事务的概念及事务的四个特性。
(10分)二、设计题(本大道共4道小题,每小题20分,共80分)3. 某医院病房计算机管理中需要如下信息:科室:科名,科地址,科电话,医生姓名病房:病房号,床位号,所属科室名医生:姓名,职称,所属科室名,年龄,工作证号病人:病历号,姓名,性别,诊断,主管医生,病房号其中,一人科室有多个病房,多个医生,一个病房只能属于一个科室,一个医生只属于一个科室,但可负责多个病人的诊治,一个病人的主管医生只有一个。
(1)请根据上述规则设计此数据库的E-R模型,要求在E-R图中注明属性和联系的类型。
(10分)(2)将E-R模型转换成关系模型,并指出每个关系模式的主码。
(10分)4. 现有一个未规范化的表,包含了项目、部件和已提供的数量信息。
要求:部件号部件名现有数量项目代号项目内容项目负责人已提供数量205 CAM 30 12 AAA 01 1020 BBB 02 15210 COG 155 12 AAA 01 3025 CCC 11 2530 DDD 12 15…(1)写出基本函数依赖集,并找出候选码。
(6分)(2)判断最高达到第几范式,并说明理由。
(7分)(3)如果有必要,将其分解成3NF模式集。
(7分)5. 设有图书关系BOOK(BID,BNAME,QTY),属性依次是书号、书名、库存数量。
规定当一批图书入库时,首先判断是否存在该书,如果存在则更改其库存数量,并通知客户最新的库存数量;否则,插入该书信息(书名暂时为空),并发出“新书入库”的提示信息。
设计一个存储过程实现此功能,该存储过程有书号(@bid)和入库数量(@s)两个参数。
同时,要求设计一个SQL程序验证存储过程的作用。
(20分)6. 设有4个关系模式:供应商关系:S(SNO,SNAME,CITY),属性依次是供应商号、供应商名称和所在城市;零件关系:P(PNO,PNAME,COLOR),属性依次是零件号、零件名和颜色;工程关系:J(JNO,JNAME,CITY),属性依次是工程号、工程名和所在城市;供应关系:SPJ(SNO,PNO,JNO,QTY),属性依次是供应商号、零件号、工程号和数量。
浙⼤远程操作系统原理离线作业浙江⼤学远程教育学院《操作系统原理》课程作业姓名:学号:年级:15年春学习中⼼:—————————————————————————————⼀、单选题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时产⽣的情况是:A.不能保证进程互斥进⼊临界区、会出现“饥饿”现象B.不能保证进程互斥进⼊临界区、不会出现“饥饿”现象C.能保证进程互斥进⼊临界区、会出现“饥饿”现象D.能保证进程互斥进⼊临界区、不会出现“饥饿”现象答:D.能保证进程互斥进⼊临界区、不会出现“饥饿”现象2.有两个进程P1和P2描述如下:shared data:int counter = 6;P1 :Computing;counter=counter+1;P2 :Printing;counter=counter-2;两个进程并发执⾏,运⾏完成后,counter的值不可能为。
A. 4B. 5C. 6D. 7答:C. 63.某计算机采⽤⼆级页表的分页存储管理⽅式,按字节编址,页⼤⼩为210字节,页表项⼤⼩为2字节,逻辑地址结构为:页⽬录号页号页内偏移量逻辑地址空间⼤⼩为216页,则表⽰整个逻辑地址空间的页⽬录表中包含表项的个数⾄少是A.64 B.128 C.256 D.512答:210÷2=29是⼀张页表中可以存放页表项的项数,216是逻辑地址空间的总页数,也就是说包含216个页表项,那么27就是需要有多少张页表,也就是页⽬录表中包含表项的个数。
浙江大学远程教育学院《数据结构与算法》课程离线作业一、填空题:(【序号,章,节】。
)【1,1,2】线性结构中元素之间存在一对一关系,树形结构中元素之间存在一对多关系,图形结构中元素之间存在多对多关系。
【2,1,2】为了最快地存取数据元素,物理结构宜采用序存储结构。
3,1,2】数据结构的三要素是逻辑结构,物理结构,操作。
【3,1,2】存储结构可根据数据元素在机器中的位置是否一定连续分为顺序存储结构,链式存储结构。
【4,1,3】度量算法效率可通过时间复杂度和空间复杂度__来进行。
【5,1,3】设n 为正整数,下面程序段中前置以记号@的语句的频度是n(n+1)/2。
for (i=0; i<n; i++){for (j=0; j<n; j++)if (i+j==n-1)@ a[i][j]=0;}【6,1,3】设n 为正整数,试确定下列各程序段中前置以记号@的语句的频度:(1) i=1; k=0;while (i<=n-1){i++;@ k+=10 * i; // 语句的频度是_____ n-1_______________。
}(2) k=0;for (i=1; i<=n; i++){for (j=i; j<=n; j++)1@ k++; // 语句的频度是_____ n(n+1)/2________________。
}【7,3,2】线性表(a1,a2,…,a n)有两种存储结构:顺序存储结构和链式存储结构,请就这两种存储结构完成下列填充:_顺序存储结构__ 存储密度较大;_顺序存储结构___存储利用率较高;_顺序存储结构___可以随机存取;_链式存储结构____不可以随机存取;__链式存储结构__插入和删除操作比较方便。
【8,3,2】从一个长度为n的顺序表中删除第i个元素(1≤i≤n)时,需向前移动n-i个元素。
【9,3,2】带头结点的单链表Head为空的条件是____ Head->next==null_____【10,3,2】在一个单链表中p所指结点(p所指不是最后结点)之后插入一个由指针s所指结点,应执行s->next=__ p->next___;和p->next=___s _____的操作。
浙江大学远程教育学院《数据结构与算法》课程离线作业一、填空题:【1,1,2】线性结构中元素之间存在一对一关系,树形结构中元素之间存在一对多关系,图形结构中元素之间存在多对多关系。
【2,1,2】为了最快地存取数据元素,物理结构宜采用顺序存储结构。
【3,1,2】存储结构可根据数据元素在机器中的位置是否一定连续分为顺序存储结构__,链式存储结构___。
【4,1,3】度量算法效率可通过时间复杂度__来进行。
【5,1,3】设n 为正整数,下面程序段中前置以记号@的语句的频度是n(n+1)/2。
for (i=0; i<n; i++){for (j=0; j<n; j++)if (i+j==n-1)@ a[i][j]=0;}【6,1,3】设n 为正整数,试确定下列各程序段中前置以记号@的语句的频度:(1) i=1; k=0;while (i<=n-1){i++;@ k+=10 * i; // 语句的频度是________n-1______________。
}(2) k=0;for (i=1;i<=n;i++){for (j=i; j<=n;j++)@ k++; // 语句的频度是____n(n+1)/2__________________。
}【7,3,2】线性表(a1,a2,…,a n)有两种存储结构:顺序存储结构和链式存储结构,请就这两种存储结构完成下列填充:1__顺序_ 存储密度较大;__顺序__存储利用率较高;__顺序__可以随机存取;__链式___不可以随机存取;__链式__插入和删除操作比较方便。
【8,3,2】从一个长度为n的顺序表中删除第i个元素(1≤i≤n)时,需向前移动n-i 个元素。
【9,3,2】带头结点的单链表Head为空的条件是____Head->next=NULL ______。
【10,3,2】在一个单链表中p所指结点(p所指不是最后结点)之后插入一个由指针s所指结点,应执行s->next=__ p->next ___;和p->next=___ s_____的操作。
浙江大学远程教育学院《数据库技术》课程作业姓名:谢晋学号:715007032001年级:15春季学习中心:温州学习中心—————————————————————————————填空题:注:空白下划线处为需要填充的部分。
带下划线部分为考试时可能出题的部分,需要重点注意。
1.数据是信息的符号表示。
数据处理从某些已知的数据出发,推导加工出新的信息。
数据管理及其技术发展的阶段包括:人工管理阶段、文件系统阶段、数据库系统阶段、高级数据库系统阶段。
2.人工管理阶段在20世纪50年代中期以前,其特点是:数据不保存在计算机中;没有软件系统对数据进行统一管理;基本没有文件的概念;一组数据对应一个程序,数据是面向程序的;程序和程序之间存在着大量的重复数据。
3.文件系统阶段在20世纪50年代后期至20世纪60年代中期,其特点是:数据长期保留在外存上,可经常对文件进行查询、修改、插入、删除等操作;有软件(文件系统)对数据进行管理,程序和数据有了一定的独立性;文件的形式多样化,有顺序文件、索引文件和散列文件等;数据的存取基本上以记录为单位。
4.数据库系统阶段在20世纪60年代后期开始,其特点是:面向全组织的数据结构化;数据的共享性高、、易扩充;数据独立性高。
5.数据库是长期储存在计算机存储设备上、相互关联的、可以被用户共享的数据集合。
6.数据独立性是指数据的组织和存储方法与应用程序互不依赖、彼此独立的特性。
7.数据库管理系统——DataBase Management System,简称DBMS ,DBMS运行在操作系统之上对数据库进行统一的管理和控制,并且使数据库能为多个用户共享,同时还能保证数据的安全性、可靠性、完整性、一致性,还要保证数据的高度独立性等。
数据库管理系统具备如下功能:数据库中数据的组织功能;数据库中数据的操纵功能;数据库中数据的维护功能;数据库中数据的查询功能;数据库控制功能;数据库通讯功能;数据库的数据服务功能。
浙江大学远程教育——数据库技术离线作业第2次填空题:注:空白下划线处为需要填充的部分。
带下划线部分为考试时可能出题的部分,需要重点注意。
另外,这些填空题也有可能会被改编为选择题出现。
1.事务的隔离性:按任何一个串行顺序依次执行多个事务也是正确的。
事务的交叉执行过程是正确的,当且仅当其与串行执行过程等价,则称事务是可串行化的。
2.并发控制的基本思想是封锁。
封锁的基本思想是:当需要查询或更新数据时,先对数据进行封锁(不允许其他事务使用),以避免来自其他事务的干扰。
封锁——不允许其他事务使用,降低了事务执行的效率;为了既保证隔离又保证效率针对不同的干扰问题采取不同的封锁机制。
封锁机制的目标:保证事务的隔离性,并且允许最大量的并发事务。
分为3种:共享封锁、独占封锁、更新封锁。
3.避免死锁的主要方法有两种:一是相同顺序法,即在设计阶段规定所有的事务都按相同的顺序来封锁表;一是一次封锁法,即在设计阶段规定为了完成一个事务,一次性封锁所需要的全部表。
4.诊断死锁的方法主要有两种:超时法、等待图法。
解决死锁的办法就是破坏事务等待图中的回路。
5.在SQL标准中是通过设置隔离级别来实现并发控制的。
隔离级别由弱到强是:未提交读、提交读、可重复读、可串行化。
6.关系模型设计“不好”导致的问题:数据冗余问题、数据更新问题、数据插入问题、数据删除问题。
7.如果X→Y,但Y不包含于X,则称X→Y是非平凡的函数依赖。
如果X→Y,则X称作决定因素。
如果K是关系模式R(U,F)的任一候选关键字,X是任一属性或属性集,如果X K,则X称为主属性;否则称为非主属性。
8.如果X→Y,并且Y→X,则可记作X←→Y,这时X和Y可以称做函数等价。
9.如果X→Y,并且对于X的一个任意真子集X/,Y都不函数依赖于X/,则称Y完全依赖于X;如果存在X/ →Y,则称Y部分依赖于X。
10.如果X→Y(非平凡函数依赖,并且X不函数依赖于Y)、Y→Z,则称Z传递函数依赖于X。
浙江大学远程教育学院《数据库应用程序设计》课程作业姓名:学号:年级:学习中心:—————————————————————————————作业第一章1.5 如何保存Delphi的项目?尝试自己动手创建一个项目,并保存。
答:执行All 菜单命令或单击工具栏中的Save All 按钮便可保存,在保存时可以对工程文件和单元文件进行改名,但后缀名不能改。
保存文件之后,单击工具中的Run 按钮或按F9 键,系统将开始编译、连接、运行该工程。
1.7 尝试设计如图1-10所示的窗体。
(图见教材P15页图1-10)图1-10第二章2.8设计如图2-5所示的界面。
单击“按钮1”或“按钮2”时在标签上显示用户所执行的操作。
单击“开启/停用按钮”可控制“按钮1”和“按钮2”是否可用,单击“退出系统”按钮时,结束程序的运行。
2.9 设计如图2-6所示的界面。
当单击按钮时,可控制文本框中字体的颜色。
图2-5 图2-6unit test;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)showLabel: TLabel;btn1: TButton; //按钮1btn2: TButton; //按钮2ctlBtn: TButton; //开启停用按钮exitBtn: TButton; //退出按钮procedure btn1Click(Sender: TObject);procedure btn2Click(Sender: TObject);procedure exitBtnClick(Sender: TObject);procedure ctlBtnClick(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;ctlStatus:integer = 0; //控制按钮1 和2 的开启和关闭,0 表示当前为开启,1 表示关闭implementation{$R *.dfm}procedure TForm1.btn1Click(Sender: TObject);beginform1.showLabel.Caption := '您点击了按钮1';end;procedure TForm1.btn2Click(Sender: TObject);beginform1.showLabel.Caption := '您点击了按钮2';end;procedure TForm1.exitBtnClick(Sender: TObject);beginform1.Close; end;procedure TForm1.ctlBtnClick(Sender: TObject);beginif ctlStatus = 0 thenbeginform1.btn1.Enabled := false;form1.btn2.Enabled := false;ctlStatus := 1;endelsebeginform1.btn1.Enabled := true; form1.btn2.Enabled := true; ctlStatus := 0;end;end;end.2.9:unit test;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;typeTForm1 = class(TForm)Label1: TLabel;Edit1: TEdit;btnRed: TButton;btnGreen: TButton;btnBlue: TButton;procedure btnRedClick(Sender: TObject);procedure btnGreenClick(Sender: TObject);procedure btnBlueClick(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;implementation{$R *.dfm}procedure TForm1.btnRedClick(Sender: TObject);beginform1.Edit1.Font.Color := clred;end;procedure TForm1.btnGreenClick(Sender: TObject);beginform1.Edit1.Font.Color := clgreen;end;procedure TForm1.btnBlueClick(Sender: TObject);beginform1.Edit1.Font.Color := clblue;end;end.第三章3.8 下列实数中哪些是合法的,哪些是不合法的?不合法的请说明理由。
(A)0.25E+02 (B).25+2 (C)25E+2(D)34.5 (E).123 (F)-3E-4(A)合法,即为25(B)不合法,小数点前必须有数字,如表示为0.25+2(C)合法,即为2500(D)合法,即为34.5(E)不合法,同(2)(F)合法,即为‐0.00033.12 数学式子sin30。
写成Delphi表达式是下列哪个?(A)Sin30 (B)Sin(30) (C)SIN(30。
)(D)Sin(30*Pi/180)D,需要把角度转化为弧度第四章4.7 利用3个数字编辑框分别输入小时、分、秒,换算共有多少秒,然后使用标签输出。
unit test;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Spin;typeTForm1 = class(TForm)SpinEdit1: TSpinEdit;Label1: TLabel;Label2: TLabel;SpinEdit2: TSpinEdit;Label3: TLabel;SpinEdit3: TSpinEdit;Label4: TLabel;procedure SpinEdit1Change(Sender: TObject);procedure SpinEdit2Change(Sender: TObject);procedure SpinEdit3Change(Sender: TObject);private{ Private declarations }procedure CalculateTimeToSencond(timeKind:String; time:integer); public{ Public declarations }end;varForm1: TForm1;hour: integer = 0;minute: integer = 0;second: integer = 0;tot:integer = 0;implementation{$R *.dfm}procedure TForm1.CalculateTimeToSencond(timeKind:String; time:integer); beginif timeKind = 'hh' thenhour := timeelse if timeKind = 'mi' thenminute := timeelse if timeKind = 'ss' thensecond := time;tot := hour * 60 * 60 + minute * 60 + second;bel4.Caption := '总共为' + IntToStr(tot) + '秒';end;procedure TForm1.SpinEdit1Change(Sender: TObject);beginForm1.CalculateTimeToSencond('hh', StrToInt(Form1.SpinEdit1.Text)); end;procedure TForm1.SpinEdit2Change(Sender: TObject);beginForm1.CalculateTimeToSencond('mi', StrToInt(Form1.SpinEdit2.Text)); end;procedure TForm1.SpinEdit3Change(Sender: TObject);beginForm1.CalculateTimeToSencond('ss', StrToInt(Form1.SpinEdit3.Text));end;end.4.8 在编辑框中输入一个实数,利用备注框输出该实数及其平方和平方根。
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;typeTForm1 = class(TForm)Edit1: TEdit;Label1: TLabel;Memo1: TMemo;Label2: TLabel;procedure Edit1Change(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;num1 : Real; //原实数num2 : Real; //实数平方num3 : Real; //实数平方根implementation{$R *.dfm}procedure TForm1.Edit1Change(Sender: TObject);beginif form1.Edit1.Text <> '' thenbeginnum1 := StrToFloat(form1.Edit1.Text);num2 := Sqr(num1);num3 := Sqrt(num1);form1.Memo1.Lines.Clear;form1.Memo1.Lines.Add('实数为: ' + FloatToStr(num1));form1.Memo1.Lines.Add('平方为: ' + FloatToStr(num2));form1.Memo1.Lines.Add('平方根为: ' + FloatToStr(num3));end;end;end.第五章5.11 任意给定3个实数,按照从大到小的顺序依次输出这3个数。