欢迎来到天天文库
浏览记录
ID:59205097
大小:151.50 KB
页数:33页
时间:2020-09-26
《第3章ObjectPascal编程基础ppt课件.ppt》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、第3章ObjectPascal编程基础程序结构(项目文件,单元文件)变量说明(var)控制结构2项目文件-主程序programProject1;usesForms,Unit1in'Unit1.pas'{Form1};{$R*.res}beginApplication.Initialize;Application.CreateForm(TForm1,Form1);Application.Run;end.单元文件单元文件unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Gra
2、phics,Controls,Forms,Dialogs,StdCtrls;typeTForm1=class(TForm)Label1:TLabel;Edit1:TEdit;Label2:TLabel;Edit2:TEdit;Edit3:TEdit;单元文件Button1:TButton;Button2:TButton;procedureButton1Click(Sender:TObject);procedureButton2Click(Sender:TObject);private{Privatedeclarations}public{Publicd
3、eclarations}end;varForm1:TForm1;implementation{$R*.dfm}单元文件procedureTForm1.Button1Click(Sender:TObject);varsno,sname:string;beginsno:=edit1.Text;sname:=edit2.Text;edit3.Text:='welcometodelphi:'+sno+sname;end;procedureTForm1.Button2Click(Sender:TObject);beginForm1.Close;end;end.变
4、量说明procedureTForm1.Button1Click(Sender:TObject);vareno,ename:String;//字符串型(隐含最大长度256个字符)age:Integer;//整型sal:Real;//实型married:Boolean;//布尔型ch:Char;//字符型,变量只存放一个字符cnt:word;//无符号16位整型begin……end;运算符ObjectPascal常用的运算符:算术运算符:+、-、*、/、div(整除)、mod(求余)布尔运算符:and(与)、or(或)、not(非)字符串运算符:+(字符串
5、拼接)集合运算符:+(并)、-(差)、*(交)、in(属于)关系运算符:=、<>(不等于)、>、<、<=、>=控制语句-分支语句If条件then语句1else语句2;在第一个编辑框中输入星期几,然后按OK按钮,如果输入的是saturday或sunday,则在第2个编辑框中显示一条信息,并把窗体变黄。控制语句-分支语句procedureTForm1.Button1Click(Sender:TObject);beginif(Edit1.text='saturday')or(Edit1.text='sunday')thenbeginedit2.text:='
6、Whyareyouworkingtoday!';//显示一条信息Form1.Color:=clYellow;//将窗体颜色置为黄色endelsebeginedit2.text:='workday';Form1.Color:=clBtnFace;//将窗体颜色置为隐含颜色end;end;条件语句嵌套例条件语句嵌套procedureTForm1.Button1Click(Sender:TObject);vargrade:integer;begingrade:=strtoint(edit1.Text);//将输入的分数赋值给变量gradeif(grade>=
7、85)and(grade<=100)thenedit2.Text:='优秀'elseif(grade>=60)and(grade<85)then//语句嵌套edit2.Text:='通过'elseif(grade>=0)and(grade<60)then//再次嵌套edit2.Text:='不通过'elseedit2.Text:='成绩有误';end;设置多分支if(grade>=85)and(grade<=100)thenedit2.Text:='优秀'//分支1elseif(grade>=60)and(grade<85)thenedit2.Text
8、:='通过'//分支2elseif(grade>=0)and(grade<60)thenedi
此文档下载收益归作者所有