可视化编程delphishiyan2

《可视化编程delphishiyan2》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、实验2：函数过程的定义、调用，面向对象程序设计一、实验目的：（1）掌握delphi7过程与函数的使用。（2）熟悉类和对象的定义和使用。二、实验内容与步骤：根据Delphi程序设计过程，完成以下任务：1.编写函数isPrime，作用是判断一个整数是否为素数。设计并完成：显示指定的区间（如300到500之间）所有的素数，和，以及个数。2.编程实现计算：1！+2！+3！+……+N!的值，N的值由用户输入。要求定义并调用函数计算N!。3.编写TFORM1类的两个过程，一个过程的作用是设置button2,button3为不可用状态，另一个过程的作用为

2、设置它们为可用状态。并且在过程TForm1.FormCreate中调用第一个过程，在TForm1.Button1Click中调用第二个过程。（可直接应用在实验1的三角形性质判定上）。4.定义一个类为形状，由它派生出圆、正方形、长方形。利用多态性以虚函数的形式完成计算圆、正方形、长方形的面积。（1）形状类名为Tshape,圆、正方形、长方形的类名分别为Tcircle，Tsquare，Trectangle。（2）基类Tshape是一个抽象类，只有一个公有的成员方法：area;用于求面积，这是一个虚拟、抽象方法。（3）各派生类的属性均是私有的，数

3、据类型为实型。圆的半径为r，正方形的边长为a，长方形的边长为a,b,各派生类均需要定义公有的构造方法（有参数和无参数）。（4）设计一个完整的程序，分别计算圆、正方形、长方形的面积并输出结果。思考：如果让Tsquare作为Trectangle的子类，应当如何定义？补充：可思考如何用类和对象的方式实现一个计算器，既可用于可视化界面，也可用于控制台程序。实验要求：第1,2题画流程图开始实验步骤输入一个区间min和max判断素数关键函数代码：functionisPrime(a:integer):boolean;vari:integer;flag:b

4、oolean;beginifa<2thenflag:=falseelseifa=2thenflag:=trueelsefori:=2totrunc(sqrt(a))doifamodi=0thenbeginflag:=false;break;end;result:=flag;end;YYYNNNj

5、须要给n赋初始值。否则在result可能会出现错误}ifa=0thenn:=1{这里最好使用n为1，因为使用result将其赋为1的话，并不会停止执行下列语句}elsefori:=1toadon:=n*i;result:=n;end;NNYY结束sum+=j输出阶乘输出阶乘之和i

6、ginform1.Button2.Enabled:=false;form1.Button3.Enabled:=false;end;procedurepro2;beginform1.Button2.Enabled:=true;form1.Button3.Enabled:=true;end;procedureTForm1.FormCreate(Sender:TObject);beginpro1;end;procedureTForm1.Button1Click(Sender:TObject);beginpro2;end;end.形状类先进行父类和

7、子类的定义Tshape类的定义：typeTshape=classpublicfunctionarea:real;virtual;abstract;end;TCircle类的定义：typeTCircle=class(Tshape)privater:real;{publicfunctiongetr:real;}publicfunctionarea:real;override;end;TSquare类的定义：typeTSquare=class(Tshape)privatea:real;publicfunctionarea:real;overrid

8、e;end;Rectangle类的定义：typeTRectangle=class(Tshape)privatea,b:real;publicfunctionarea:real;o