- 1、本文档共17页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
Pascal语言学习入门new.doc
Pascal语言入门篇
引入:
fpc-2.0.0.i386-win32
程序一:已知长方形的长、宽,求长方形的周长
program circle; 该程序的首部,program是保留字
var chang,kuan,zhouchang:real; 定义变量:设定长,宽,周长为实数类型
begin 开始语句
readln(chang); 读语句,读入长(chang)和宽(kuan)
readln(kuan);
zhouchang:=2*(chang+kuan); 赋值语句,将计算结果赋给zhouchang
write(zhouchang); 写语句,将结果(zhouchang)
end. 结束语句,与begin成对出现
程序二:已知长方形的长、宽,求长方形的周长,并求出长方形的面积。
rogram circle;
var chang,kuan,zhouchang,mianji:real;
begin
readln(chang);
readln(kuan);
zhouchang:=2*(chang+kuan);
mianji:=chang*kuan;
write(zhouchang,mianji);
end.
小结:一个完整的pascal程序结构
Program 程序名(程序参数表);
var
变量说明;
Begin
语句;
语句;
……
End.
运行 Ctrl+F9
返回看结果Alt+F6
思考练习:
1、已知长方体的长、宽、高,求长方体的表面积及体积。
2、已知正方体的边长,求正方体的表面积及体积。
3、已知圆半径,求圆的周长及面积。
作业
已知圆半径,求圆的周长及面积。3.14若改成3.14159
增加程序的可读性,用pi表示
一、常量说明
Const pi=3.14159
变量说明
VAR 单个变量或用逗号分开的多个变量
变量表:类型
二、标准数据类型
(一)、实型(real)
1、两种表示方法:小数表示法和指数表示法
小数表示法:1.25,0.0025,258.2,253.0
科学表示法:1.25e0,1.3654e+2,2.5e-3,
0e0,1e2
2、说明方式
const k=1.26
var m,n:real;
3、运算:+(加),—(减),*(乘),/(除)
标准函数:
abs(绝对值),sqr(平方),sqrt(开方),
trunc(取整),round(舍入取整)
(二)、整型(integer)
1、表示方法:25,-456,0
2、说明方法:
const long=150;
wide=65;
var I,j,k:integer;
3、整型量的运算:
+(加),—(减),*(乘),div(整除)
/(除)得到的值为实型,mod(取余)
4、用于整数的标准函数
abs(绝对值),sqr(平方),pred(前导)
succ(后续),
三、读语句一:read
用于在程序执行时,从外部输入数据给变量
一般形式:read(变量表) 其中变量表是一些由逗号分开的变量
程序一、读入2个整数和1个实数,并将这三个数输出。
Program shu;
Var
x,y:integer;
z:real;
begin
read(x);
read(y);
read(z);
write(x);
write(y);
write(z);
end. Program shu;
Var
x,y:integer;
z:real;
begin
read(x,y,z);
write(x,y,z);
end.
可以将读入与写出语句合并成一句。 注意:从键盘上输入的数据必须与程序中设定的输入变量的类型相同。例如上题,x,y是整型,我们从键盘上输入就必须是整型数,例如:14、-6,而不能是实型数,例如:1.9、98.0;而z是实型数,输入可以是小数也可以是整数,例如:2.36666 ,或者是10。
读语句二:readln
在完成该语句的最后一个变量值的输入以后,将结束包括这个数据值的输入行,使下一个read语句(或readln语句)从下一个新行开始输入数据。
例:
Program shu2;
Var a,b:real;
begin
Read(a,b);
Read(c,d,e,f);
Read(g,h);
Writeln
您可能关注的文档
- MSDS textile chemicals.pdf
- MSP430单片机C语言应用程序设计实例精解秦龙.pdf
- msp430单片机在激光co气体检测仪上的应用.pdf
- MSP430教程16:MSP430单片机的框架程序.doc
- MSR212 Chinese Simple Manual.pdf
- Multi-DSP and -FPGA Based Fully-Digital Control System .pdf
- Multilateral Teleoperation Control over Time-Delayed Computer Networks.pdf
- MultiWii程序设置图文教程.pdf
- MX2100 复合式气体检测仪 产品说明书.pdf
- MX6 复合式6气体检测仪产品说明书.pdf
- Payroll Calculation for Chinese Employees.pdf
- PEDAGOGICAL PERSPECTIVE ON COMMUNICATION Strategies.pdf
- PERMANENT MAGNETS SYNCHRONOUS motor control theory.pdf
- PET CT Image Navigation and Communication.pdf
- PETS4 Unit 11 Language and Communication.docx
- PGM1600气体检测仪使用说明书.pdf
- Pharma MNCs Expanding in China 2016-2016.doc
- Phase and Texture of Solution-Processed Copper Phthalocyanine.pdf
- PhoneGap API 演练 - Contacts.pdf
- Photonic crystal self-collimation sensor(wang yufei).pdf
文档评论(0)