Pascal实用代码模板

部分同学对在写Pascal时常常感觉无从下手，忘记某些单词，时不时向老师求助，这些基本上是语法基本功不到位。

解决这类问题方法我认为有两个：

第一，保存好你所有写过并且调试成功的程序代码（pascal文件），一旦遇到同类的程序，可以翻找以前的代码看。

第二，也是我认为学编程最好的方法，就是经常整理一些实用的代码片段，虽不一定要像英语单词那样去背诵，但是你至少要做到信手拈来！不应该常犯一些低级的语法错误。

废话不说，直接看！

//后面是代码注释，电脑（编译器）会无视你//后面的东西，随便你写什么。

var
a:longint;//变量a只能保存整数
b:real;//变量b只能保存实数，还没学到初一下学期实数的同学可以理解为“保存小数”，当然你真要拿变量b保存一个整数也没什么不可以
c:char;//变量c只能保存一个字母，注意，只能放一个字母，那我要放多个字母怎么办，看下去
d:string;//变量d只能保存一个字符串，其实就是多个字母
e:boolean;//变量e只能存放true和false，这类变量之能存放“是”，“非”

begin
	//变量赋值
	a:=12;
	b:=25.6;
	c:='a';
	d:='hello';
	e:=true;
end.
//结尾是句号，不要忘记了

以上是pascal常用变量，有些同学会说还有其它数据类型，什么double，int64之类，不管了，这些我们比赛用的不多，直接无视！

上面我们已经把变量a赋值为12了，现在我们看怎么写选择结构

如果a确实等于12，我们输出a is 12，否则我们输出a isn`t 12

if a=12 then writeln('a is 12')
else writeln('a isn`t 12');

请注意，以上是简洁版的if写法，我们有很多同学这么写，但是，同样的功能，我喜欢这么写

if a=12 then
begin
	writeln('a is 12');
end
else
begin
	writeln('a isn`t 12');
end;

我喜欢用一对begin...end来包装，因为它可以装下很多其他的操作语句，比如

if a=12 then
begin
	writeln('a is 12');
	//其他操作
	b:=16.3;
end
else
begin
	writeln('a isn`t 12');
end;

预先留一对begin...end是一个好习惯，这样如果要扩充你的程序，可以直接在begin...end里面添加，很方便。

最后请同学们睁大自己的瞳孔，好好观察上面代码的符号！我敢说，一定有人在写的时候会疏漏。

if a=12 then writeln('a is 12') //这里没有分号
else writeln('a isn`t 12');

if a=12 then
begin
	writeln('a is 12');
	//其他操作
	b:=16.3;
end //这里没有分号
else //这里没有分号
begin
	writeln('a isn`t 12');
end;