一共有几种支持Pascal语言的编译器？
不要说fp和tp，知道的回复到一楼。

7zhong

有很多，如guide等，
但大多是以fp为内核。
如Guide，就是一个可视化的界面，保存文件后用FP编译的。
除了FP内核的，还有TP和Delphi。

编译器的名称我不清楚，我只知道：win32的fp、tp，lazarus对于fp的编译器是有修改的，所以也算一种吧，然后最近安卓的fp包貌似也不同，还有op、zp（虽然信息技术竞赛不能用），然后就是
bp
吧（好像这个只是听过，没见过人用过）

Borland的Turbo，Free，还有个挺小的CPascal 苹果曾经有过UCSD-Pascal IBM也出过编译器 其他的就不知道了

@82111668_2012
好像里面有的是解释器：
Free Pascal
Lazarus
Dev-Pascal
Oxygene（前身是Chrome）
Kylix
GNU Pascal编译器（GPC）
Virtual Pascal
P4编译器
P5编译器
Turbo Pascal
IP Pascal
Pascal-XT
PocketStudio
MIDletPascal
Vector Pascal
Morfik Pascal
web Pascal
WDSibyl
CDC 6000
Pascal-S

右上

我自己也做了一个Pascal IDE...

顺便收集一下FreePascal里全部标准标识符
其他编译器里的不要，还有是全部不是光那38个！

pascalgui 我在安卓下了 苹果不知有没

abs
/æbz/
绝对值
arctan
/ˈɑːkˌtæn/
反正切
array
/əˈreɪ/
数组
boolean
/'bʊlɪən/
布尔
case
/keɪs/
情况
char
/tʃɑː/
字符
const
/'kɒnst/
常数
div
/dɪv/
整除
downto
/daʊnˌtʊ/
else
/els/
否则
eof
/iːəʊef/
文件结束（end of file)
eoln
无
一行结束
exp
/ˌi eks 'pi/
以e为底数的幂
false.
/fɔːls/
假
file
/faɪl/
文件
function
/ˈfʌŋkʃən/
函数
get
/ɡet/
得到
in
/ɪ n/
在・・・中
input
/ˈɪ nˌpʊt/
输入
integer
/ˈɪ ntɪdʒə/
整数
label
/ˈleɪbəl/
标签
maxint
/mæksɪ nt/
最大整数值
mod
/mɒd/
取余
new
/njuː/
开域
nil
/nɪl/
空（零）
odd
/ɒd/
奇数
ord
/əuɑːdiː/
取序号
output
/ˈaʊtˌpʊt/
输出
packed
/pækt/
紧缩
page
/peɪdʒ/
换页
pred
前导
procedure
/prəˈsiːdʒə/
过程
program
/ˈprəʊgræm/
程序
put
/pʊt/
放下
real
/ˈrɪəl/
实数
record
/rɪˈkɔːd/
记录
repeat
/rɪˈpiːt/
重复
reset
/riː'set/
重置
rewrite
/ˈriːˌraɪt/
重写
round
/raʊnd/
四舍五入
set
/sεt/
集合
sin
/sɪn/
正弦
sqr
平方
succ
后继
text
/tεkst/
文本
then
/ðɛn/
那么
trunc
截断取整
turbo
['tɝbo]
（涡轮增压）
ture
/truː/
真
type
/taɪp/
类型
unpack
/ʌnˈpæk/
解压缩
until
/ʌnˈtɪl/
直到
var
/vɑː/
变量
while
/waɪl/
当
with
/wɪθ/
和

收集一下FreePascal里扩展的标准函数和过程，或者标准类型和保留字等，书上写的那六七十个就别说了。

编译器：[有效] http://pan.baidu.com/share/link?shareid=2225472295&uk=1864923518
除了那些还有.pas\.c\.cpp通用的GUIDE:http://gait.buaa.edu.cn/~zjb/download6.php
LAZARUS:http://sourceforge.net/projects/lazarus/files/Lazarus%20Windows%2032%20bits/Lazarus%201.0.10/lazarus-1.0.10-fpc-2.6.2-win32.exe/download
DELPHI：http://u.xunzai.com/fileview_383125.html

顶

楼主博学多识，必成大器。（褒义）

PROGRAM Exam(input,output);
USES
crt,dos,mouse,windows;
LABEL
0,1,2,3,4,5,6,7,8,9;
CONST
a:ARRAY[-1..1]OF byte=(0,100,255);
b:PACKED ARRAY[6..10]OF char='exam';
c='^-^';
TYPE
d=string[62];
e=(e1,e2,e3,e4,e5,e6,e7,e8,e9,e0);
f=^g;
g=RECORD
h:boolean;
i:FILE OF e;
j:f
END;
k=SET OF char;
l=PACKED ARRAY[666666..999999]OF f;
m=RECORD
n:l;
o:k;
p:d;
q:text;
r:boolean
END;
s=ARRAY[2..6]OF ARRAY[9..12]OF m;
VAR
t:FILE OF s;
PROCEDURE u;
CONST
v='v';
TYPE
w=STRING;
VAR
x:w;
BEGIN
END;
FUNCTION y:text;
FORWARD;
PROCEDURE z;
BEGIN
END;
FUNCTION y:text;
BEGIN
END;
BEGIN
END.

你一定没有见过这么标准的
十五字