pascal程序风格

请大家提供一个较好的Pascal程序风格
谢谢

不要复制，谢谢
xxs和copybest的我都看过

原创的哈~

我觉得写PASCAL的风格其实就是适时按下TAB跳几格~
如果你是用FP的话 在OPTIONS里面有个EDITOR里面有个填数字的选项(想不起来叫什么了- -) 可以更改按一次TAB跳的空格数 原来是8的 我一般改成4~感觉8太多了 要是多TAB几下就看不到了
TP里面好像不能改....很早用的 没印象了~~

然后program 还有主程序的begin end都是贴着左边的
var const等就按下TAB再打
在主程序部分 每句都是空出一个TAB的空格数(有的编辑器都会自动的``没有的话你就每次回车再按下TAB~) 然后如果这个语句比较长 或者有分句 就换行之后 在分句的部分再多一次TAB

其实主要就是怕循环和IF会乱掉 你就记住主体的是一个TAB 在一层循环内的语句就用两个TAB 以此类推..

大概举例下~
program abc;
var ...
begin
for i:=1 to n do if i=1 then
begin
....
end;

if i=n then
begin
for x:=1 to n do
begin
....
end;
end else
begin
....
end;
end.

其实比较灵活的 也不一定要这样 只要你能比较容易看出某语句是在哪个循环或者IF里面就行~

program game; uses crt; const yifuzhi:array[0..8]of integer=(0,3,6,9,12,15,20,25,30); wuqizhi:array[0..8]of integer=(0,5,10,15,20,25,30,40,50); xiezizhi:array[0..8]of integer=(0,1,2,3,4,5,6,7,8); var beibao:array[1..6] of longint; renwu11:array[1..100,1..100] of boolean; jiguan,baowu:array[1..100,1..100] of string; mon,dengji,xianling,gongjix,fangyux,xinyunx,xuex,mox, gongji,fangyu,xinyun,xue,mo,i,j,k,l,o,p, jingyan,guaishu,zx,zy,jiguanshu:longint; gxue,gfang,ggong:array[1..100] of longint; name:string;zz:char; migong:array[1..100,1..100] of char; wuqi,yifu,xiezi,weizhi,renwu,gxue1,gfang1,ggong1:longint; cundang:array[1..100] of string; (如上,对齐) begin for XX begin read(空两格) end; while begin read(同上) for xx begin if ddsaf then begin end else begin end; end; end; end.

program 顶头 var 缩进一个 ....内容缩进一个 begin for XX begin end; while begin end; end.

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息