free pascal中强制把非整型数转化为整型的函数？_百度知道
free pascal中强制把非整型数转化为整型的函数？
y系统显示错误类型是y为整型 , 于是想到用一个函数来强制转化max*x)/,x; expected smallint':got '其中a: 写的式子a。:=(max*x)/extended',y
一定要转整型的啊:=trunc(max*x)/，一般再出错:=trunc(max*x)/，如果数据大于longint时才要实型转整型的，如果要转也可以用b，就是你程序中有步骤不对，而longint已经是十位数了;y若a为实数a。当然
其他类似问题
按默认排序
其他3条回答
变量名;)=65③：-、函数调用。可存取255个字符;5。⑶字符常量字符常量是由单个字符组成的：A'，不同函数对自变量的要求也不同，范围为、*。自定义标识符时要注意遵循此规则。对于在程序中反复出现的程序段，不能有小数点、字符表达式。运算速度快、有序类型)①。(静态数据类型和动态数据类型)(顺序类型，所有字符都来自ASCII字符集，这些都必须先定义后才能使用、简单表达式组成)，我们可以把它作为一个独立的整体; DIV MOD AND+ - OR<，其值可以改变的量;。补码表示，而常量是有类型的数据。如+-*/。一共36个保留字(program function begin end procedure var const array if then else case for to do repeat until while and div in mod not or nil):pred(x)⑵后续函数;常量标识符>：函数名(自变量)。4。我们先来看一下系统内部定义的标准函数; <、结构类型(由其他类型组合而成)和指针类型：succ(x)④、not 布尔因子：⑴整型常量十进制整数表示.顺序函数在有序数据中求某个数据的前一项或后一项, sqrt(x)⑶sin(x)、标准标识符与保留字标准标识符有40个Pascal用到的数和符号1。3、变量值;<。在PASCAL7，其自变量与函数值均为数值型，其值不能改变的量。⑴变量名用一个合法的标识符来表示，以后作用的时候只要给出它的标识符就可以了，第一位为符号位,LONGINT(32) ②，true 为1，false为0，由一个字节存贮：：程序设计中经常要用到常量和变量;>；⑵运算符不能省略; c：and or notconst
&, cos(x),可打印字符为32到126。标准函数是由系统预先定义，指定一个标识符.自定义类型。⑴奇数函数odd(x)⑵行结束函数eoln(x)⑶文件结束函数eof(x)回到前面的表达式进行例题讲解、括号括起来的表达式);
例：var
a：十进制表示法和科学记数法：四种。它正好与序号函数ORD(X)相反，因为得到的结果可能不为整型。在程序中由赋值语句来赋值.类型转换函数⑴trunc(x)⑵round(x)⑶序号函数。注意、/、函数等;、用户可以直接使用的函数、-。操作符(算术，决定了它的表示形式：CHR(X)的自变量为字符ASCII的十进制数值。6，主要有。有两种表示方法、取值范围和能参加的各种运算。var
<，因而变量也是有类型的.14.逻辑函数函数值为布尔型的函数;类型>,arctan(x)⑷exp(x);变量标识符列表>。保留字是Pascal语言中具有特定的含义的字符。⑶变量值、常量和变量.标准类型、变量, ln(x)②; 例。⑵变量在某一固定时刻是用来存放常量的。具体优先顺序.算术函数可参加算术运算:BYTE(0—255 8位)
SHORINT(-128—127)INTEGER(16)、*,d。PASCAL的数据类型、项;⑷同级运算按从左到右的次序;运算。数据类型是数据的重要特征。格式。Maxint表示计算机中最大的整数=32767。子程序主要包括函数与过程。⑴前导函数。分为四类。也有序.0中书写保留字的时候。⑷布尔型常量只有true和false两个值：(见书P24)简单类型(不能再被分解),IBMPC上取值为0到255。可进行+，无法精确表示:=3。整型数取值范围：运算符两端、标识符以字母开头的字母数字序列(大小写等效，即(27-1),WORD(16)。(所以表达式分为算术表达式;= &=<；使用时注意自变量的类型和函数的类型；⑶表达式中的所有字符必须写在同一行上,b;= = <,ORD(‘A'、MOD(取余)注意不能用/。1）.变量变量是指在程序执行过程中;=>：⑴括号内先算⑵函数⑶运算符优先顺序NOT* /： ⑴26个英文字母(不分大小写) ⑵十个数字符号 ⑶特殊符号：ord(x)⑷字符函数;、标准函数的使用、表达式程序中由运算对象(操作数)和运算符(操作符)按照一定次序组成的有意义的式子称为表达式、DIV(整除)。运算慢，可跟下划线_)，var等前面)用{$N+}打开编译开关、程序。字符类型中还有字符串类型：枚举与子界、变量、项。类型不能有两义性、变量类型。布尔型有三个运算符。整数与实数运算时自动转为实数进行运算。即|x|⑵sqr(x);2）。①、负实数和零;常量>。每个字符都有一个序值(在ASCII字符集的位置)，两者类型可能不同(如类型转换函数):<。⑵实型常量包括正实数、关系，在程序中主要用来作判断用，字符颜色会变为白色，除实型和整数型外不允许为两种不同的数据类型;:integer，用来标识常量、-。用sting作标识符.常量指程序运行过程中、数据类型。表达式的数据类型根据它的值来划分.如、布尔)操作数(因子(无符号常量：⑴只可出现圆括号：CHR(65)='，其他的需在说明的开始部分(在const。字符的数据是用两个单引号把单个字符括起来表示的。⑴abs(x)，五类(false true maxint Boolean real integer char abs trunc read write)详见书P16。实数类型除real外、布尔表达式)书写表达式的注意事项。变量三要素；．等2。7:real，这样的程序段我们称为子程序、PASCAL语言的字符表
是ASCII字符集。可进行+，可以用六个关系运算符来比较大小; &］［
你可以用两个办法一个是把/换成div或者把结果取整a:=trunc((max*x)/y)
....你这，你有没有想过运算结果不是整数？~~~~ 这样，把a单独设成实型，没你想的那么麻烦 a:
pascal的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁free pascal_百度知道
free pascal
自然数4,找出所有小于100的自然数对，问,16，打印出低于平均分的同学号数与成绩：。9，2, 20,14，…报数；12从数字乘积为1*2：7 3输出,9，…,当加和减该数对时,25等叫做完全平方数，余下的同学向前靠拢后再重新由前往后1，表明等式右边是一个七位的完全平方数。求所有三位数的纯粹素数、国际象棋盘中：100 输出，例如。
例如，第2格放2粒米,12。编程找出幸运观众在原队列中站在什么位置上，编程计算哪一个编号的猴子成为大王样例，可各得出一个完全平方数，报单数者退出队伍。,9：从第一个开始循环报数。，而这七个数字互不相同,52 =252,去掉最高位：输入,16, 32 =9、输入一个不大于32767的正整数N：这个正整数中非零数字的乘积，得到729。8, 问在转动过程中同时啮合的各齿到下次再同时啮合时，由前面往后面依顺序报数1，最后剩下来的就是大王，老师只好采取这样的办法，2, 42 =16,8、输入50个学生的某门课程的成绩；729的数字乘积为7*2*9?7：输入,余留下来的数还是素数，2, 有时可各得出一个完全平方数，2；经过协商：3待解,这样的素数叫纯粹素数,24，如此下去最后剩下一人为幸运观众、05289，报单数的同学退出队伍，决定出选大王的规则：4输入。输出格式如下。3。4, 当某一对自然数相加和相减、一个素数，得到2，1、 有一组13个齿轮互相啮合、节目主持人准备从N名学生中挑选一名幸运观众,各齿轮分别转过了多少圈，因为大家都想争当幸运观众,15：999 15输出： 输入：（N=）
26：全体同学排成一列,剩下的数仍是素数，得到126：有N只猴子围成一圈。999的数字乘积根是2,因为22 =4，N <，第5格放16粒米;再去掉剩下的数的最高位,18: 8与17这对自然数；126的数字乘积为1*2*6：110010011、M。例如整数999的数字乘积为9*9*9。要求：
17—8= 9试编程。如此反复取数字的乘积？（N由键盘输入？10：5 2输出，每只猴子各一个从1到N中的依次编号; 255）。编程求出所有这样的七位数，数到M的猴子出圈。5。编程输入一个长度不超过100位数字的正整数，第3格放4粒米,10，打算从中选出一个大王：16个格子总共可以放多少粒米，第1格放1粒米、求数字的乘积根：从键盘输入N，得到12，将它转换成一个二进制数，直至得到一位数字为止，打印出计算数字乘积根的每一步结果，第4格放8粒米、猴子选大王,各齿轮啮合的齿数依次分别为6,21,22，1。。正整数的数字乘积这样规定
提问者采纳
{建立一个1-30的数组}i:string，而这七个数字互不相同:longint)，…报数，2,a[202]; {输入总数(不超过225)}fillchar(a;1'、3:longint:=1.
if l=7 then write(i*i,16,这样的素数叫纯粹素数;for i,',8;readln。例如整数999的数字乘积为9*9*9;s,s);end，2. 有一组13个齿轮互相啮合,余留下来的数还是素数,j:=0,',7;>,当加和减该数对时,j；12从数字乘积为1*2、1:longint=14;
end, 20,'。如果j除以2不等于0,去掉最高位;4',21;i; a:0; {建立一个1-225的数组}n.。累加b}end,12,找出所有小于100的自然数对.
4:=1 to n dostr(b[i]. 7, 也属于M;
j:=a[i]*5+1;
i,6,15:=1,':array[1,s);。（J为1）C和i交换变量;>，则这些数都赋予假值,'.2 11：（N=）
2 rogram ex2;
a[j+3].裴波那契数列;VARa,b. 校女子100米短跑决赛成绩如下表。program ex4,3，直至得到一位数字为止:=1 to 8 dowriteln(i;1 do
begina[j] then
begin t.节目主持人准备从N名学生中挑选一名幸运观众;consta;3'{第二个数也为1}{输入数组中第几个数(不超过30)}a[1].9]of string=('?program Project1,j;end:=2 to trunc(sqrt(i))+1 doif i mod j=0 then begin a[i]:=a[i-1]+a[i-2]，得到126，c为现在所加到的数:=1.;
(2) 若X属于M.9 13.0 11,18:=i;{第一个数为1}a[2];8'.999]of boolean。(M={1; c[j+1].14] of string,j:real；729的数字乘积为7*2*9;;，第二项也是1;7'var
i，…:=a[j-1];end。999的数字乘积根是2;until j=13;0 then inc(l),j;,12:=s;readln.200]of boolean,i;while (b<:longint.,16; '、5;:array[0,9.3 12。如此反复取数字的乘积:=1 to n-i dobeginif a[j]<。编程找出幸运观众在原队列中站在什么位置上,24);if b=0 then writeln(i)、8.:=a[j];s,25等叫做完全平方数.6 13;(3) 再没有别的数属于M;for i.下面的竖式是乘法运算;{打印c}
end:=1 to n doread(b[i])，得到729:array[1:=a[i]*3+1;0)and(a[b]) do t1(b)，i为数量}beginread(n)。编程输入一个长度不超过100位数字的正整数, 有时可各得出一个完全平方数；126的数字乘积为1*2*6;{累加i}if a[i]=true then begin inc(j)，每项等于前两项之和.30] of longint,',求出其中的第201、运动员号和成绩，表明等式右边是一个七位的完全平方数;i;begini,22, 则A=2X+1:=3 to n do{从第三个数开始到N（30）做循环(i为1-30中任意一数)}begina[i];inc(l)：数列1.,各齿轮分别转过了多少圈。编程输入一个正整数N,j.2 12;9'
inc(i):=203 downto i+1 do
if a[j-1]>，请编程打印前八名运动员的名次;>.0 11,l:array[1。vara;constn,13:=t end:
readln:=i*10:varb;i，式中P表示为一位的素数;:1):=1、2:=1 to n-1 dofor j，可各得出一个完全平方数;inc(b)，得到2,15.
readln(s); a[j+1]:array[1;b;c:longint,',':=0.;if i=2 then a[i];for i.,202和203个元素：这个正整数中非零数字的乘积:array[1,9，2，得到12; break:=1000 to 3162 do
beginb:=t;{直到b为1}writeln(c);until b=1;readln，它的特点是,16:=0;end，因为大家都想争当幸运观众;i，2。program Project1;end,'，1,n:=1 to 999 dobegina[i], B=3X+1:=a[j],'b;,14;{把所有值都赋为真值}repeati，余下的同学向前靠拢后再重新由前往后1:=c[j+1];readln：数列的第一项是1:8),j;
str(i*i.225] of boolean:=true:=1; 255）. 集合M的元素的定义如下;procedure t1(for i，从第三项起，1, 当某一对自然数相加和相减,8;while i<,':=a[j+1],l;for i:=100 to 999 dobeginb:=0.9 11，打印出计算数字乘积根的每一步结果.14] of longint：全体同学排成一列,a[203]);
writeln(s):0 then
l，求出数列的第N项是多少、13,j;end习题5:array[1;a[j+1] then begint;0 dobeginb[l+1]:string，编程输出此乘法竖式的所有可能方案;begin{打印输入的数}readln,a[i];5' ',3);): 8与17这对自然数; s.4program Project1:=false:=i div 10;for i,52 =25;end.11;
for i:array[1, 32 =9.5？（N不超过30）,c:
readln,c[i]):=i to 100 do
if a[i+j] and a[abs(i-j)] then writeln(i., 问在转动过程中同时啮合的各齿到下次再同时啮合时;var i,':=l downto 2 dobegininc(c，如此下去最后剩下一人为幸运观众;
while length(s)<。program Project1:=1.:longint.
6.14] of real:longint。（从第一名至第八名按名次排列）运动员号 017 168 088 105 058 123 142 055 113 136 020 032 089 010成绩(秒) 12,10;
while j<,b[j]*i); inc(b);begin
a[1];&203 do
a[j+1]; a[j],t.。输出格式如下,true);a[j-1].10]
for j,'i，则累加j,c[i],10;{设置两个变量}beginreadln(n);a[j];end,16。
17—8= 9试编程;; s:=0 to 100 do c[j]:
readln,各齿轮啮合的齿数依次分别为6:=c;{ b为个数, C=5X+1,20;0',剩下的数仍是素数;
str(l:=a[i]*2+1,9;.13] of longint=(6;.,18:array[1:=i,sizeof(a):=1 to 14 do
a[i*i]，如果M中的元素是按递增次序排列的.210]of longint:array[1;
if j<.:=1 to length(s) do
val(s[i]？（N由键盘输入，老师只好采取这样的办法。
例如; if j mod 2<.4 12，由前面往后面依顺序报数1:=6'.,15,14:
(1) 数1属于M,21;;VARa:=false，N <,j);{如果i为真。编程求出所有这样的七位数:=1 to 203 -1 do
for j:=i mod 10:=write(a[n]); ':array[1;t.1 13,因为22 =4;
write(a[201],4;beginfor i,j;;n dobegininc(i);2'vari;
readln。 program ex3;var
求数字的乘积根;{i等于i前面一个数加前面第二数的和}end:=0,b.;beginrepeatj:=0 to 9 do
if pos(a[j];c;再去掉剩下的数的最高位;end、21…称为裴波那契数列:=1 to 13 dowriteln(b div a[i]);
inc(j:string:=1 to n doread(a[i]),':=while i>,9.
05289;beginl:=1 to 13 doif b mod a[i]=0 then inc(j),24。求所有三位数的纯粹素数:=0;
readln,j).9.1 12,s)&;
writeln(l);. 一个素数;:=1,22:=1 to 200 do
a[i]，报单数的同学退出队伍; 'vara;var
i, 42 =16;
a[j+2]. 自然数4;for i.8 12,'beginend,i,10:=l*j;
readln:=c[j];0 then begin a[i]。 program ex1，报单数者退出队伍.
2。正整数的数字乘积这样规定
其他类似问题
您可能关注的推广
pascal的相关知识
按默认排序
其他3条回答
=1000 to 3162 do
beginbegin
a[4]:=x*x;var x,y;
if (t=1) then break:
end:=1:=(y-a[1]*1000000) div 100000;end:=((y mod 100)-a[7]) div 10,t:=((y mod 1000)-a[7]-a[6]*10) div 100;
a[2]:=1 to 6 do
for j:array[1;
a[5]:=(y-a[1]*1000000-a[2]*100000) div 10000;
a[6]:integer:=0:=y div 1000000:=y mod 10;
if (t=0) then
writeln(y)：program e3;
end:=(i+1) to 7 do
if (a[i]=a[j]) break第一个题目:=(y-a[1]*1000000-a[2]*100000-a[3]*10000) div 1000
var i,j,k:begin
for i:=1000000 to 9999999 do
if string(sqrt(i))=string(trunc(sqrt(i))) do writeln(i);end. 第二题：var i:function ok(a:integer):
for i:=2 to trunc(sqrt(a)) do
if a mod i=0 then exit(false);
for i:=100 to 999 do
if ok(i) and ok(i mod 100) and ok(i mod 10) then writeln(i);end.第三题：var i,j:begin
for i:=1 to 100 do
for j:=i to 100 do
if (string(sqrt(i+j)=string(trunc(sqrt(i+j))))and
(string(sqrt(j-i))=string(trunc(sqrt(j-i)))) then
writeln(i,'-',j);end.后面几道题我明天再补，我把你的题目重新编了序号，你应该看的懂。
第⑨题program var
a,b,c,d: begin
for c:=1 to 15 do
d:=d+1;(加上第一格的1)
writeln(d); end.
其他类似问题
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁什么是free pascal 中的高精度-free pascal 高精度计算
-微博生活网
你目前正在浏览：& > &
什么是free pascal 中的高精度
什么是free pascal 中的高精度
n≤100，如计算mn；有时又会遇到对运算的精度要求特别高的情况，要求精确到小数点后100位，用每一个数组元素存储该数的每一位。高精度运算首先要解决存储问题、int64等系统标准数据类型的有效范围。高精度数的读入可以采用两种方法，我们都要用“高精度运算”来解决、double等数据类型也无能为力。在实际使用时。这些情况下利用计算机进行数值运算、缺点,AnsiString）方式一起读入，请大家注意比较各自的优，经常会遇到数值太大，此时real。一般都是定义一个一维数组来存储一个高精度数；另一种方法是一位一位读入并存储到数组中，再逐位处理成数字存储在数组中，一是采用字符串（String。高精度运算一般都是采用模拟的方法解决，而m，超出Longint，如计算圆周率π。输出时一定要注意格式和精度
你可能感兴趣的内容？请问pascal语言中的real对应的是C语言的什么？
请问pascal语言中的real对应的是C语言的什么？ 20
如题，谢谢
pascal语言中的real对应的是C语言的float
我只会Pascal不会C，把Pascal翻译成自然语言，你照着打打看 Var{定义变量：} longint k,m,n; {定义k,m,n为长整型，在C里应该是long或long long} delta1,delta2 : {定义delta1,delt12为实型} Begin {相当于C的花括号左边} write(&k=&); {这个懂，printf(&k=&);} readln(k); { 键盘输入k，应该是scanf } m:=k; {将k赋给m} while m&=1 do {While型循环，当m&=1时就做下面的} begin {又是花括号左边} delta1:=sqrt(5.0*m*m+4);{赋值} if (delta1-trunc(delta1))&1e-9 then {如果 delta1减去取整的delta1 小于 1*10^(-9) 那么就} begin {……} n:=trunc((m+delta1)/2); {trunc是取整，右赋左} if n&=k then begin writeln(m,&,&,n); {如果n小于等于k那么就输出m和n} delta2:=sqrt(5.0*m*m-4); {sqrt是取平方根} if (delta2-trunc(delta2))&1e-9 then {同上} begin n:=trunc((m+delta2)/2); {同上} if n&=k then begin writeln(m,&,&,n); {如果n小于等于k那么就输出m和n，同上} dec(m); {dec就是把m减1} 我猜想“}”是end对吗？只能这样了…… 没办法，实在对C了解不多，见谅。
其他回答 (2)
pascal 1、关于Turbo Pascal Pascal是一种计算机通用的高级程序设计语言。它由瑞士Niklaus Wirth教授于六十年代末设计并创立。 以法国数学家命名的Pascal语言现已成为使用最广泛的基于DOS的语言之一，其主要特点有：严格的结构化形式；丰富完备的数据类型；运行效率高；查错能力强。 正因为上述特点，Pascal语言可以被方便地用于描述各种算法与数据结构。尤其是对于程序设计的初学者，Pascal语言有益于培养良好的程序设计风格和习惯。IOI(国际奥林匹克信息学竞赛)把Pascal语言作为三种程序设计语言之一， NOI(全国奥林匹克信息学竞赛)把Pascal语言定为唯一提倡的程序设计语言，在大学中Pascal语言也常常被用作学习数据结构与算法的教学语言。 在Pascal问世以来的三十余年间，先后产生了适合于不同机型的各种各样版本。其中影响最大的莫过于Turbo Pascal系列软件。它是由美国Borland公司设计、研制的一种适用于微机的Pascal编译系统。该编译系统由1983年推出1.0版本发展到1992年推出的7.0版本，其版本不断更新，而功能更趋完善。 下面列出Turbo Pascal编年史 出版年代 版本名称 主要特色 1983 Turbo Pascal 1.0 Turbo Pascal 2.0 Turbo-87 Pascal 提高实数运算速度并扩大值域 1985 Turbo Pascal 3.0 增加图形功能 Turbo BCD Pascal 特别适合应用于商业 1987 Turbo Pascal 4.0 提供集成开发环境(IDE)，引入单元概念 1988 Turbo Pascal 5.0 增加调试功能 1989 Turbo Pascal 5.5 支持面向对象的程序设计(OPP) 1990 Turbo Pascal 6.0 提供面向对象的应用框架和库(Turbo Vision) 1992 Turbo Pascal 7.0 面向对象的应用系统、更完善的IDE Turbo Vision 2.0 1993 Borland Pascal 7.0 开发 Object Windows库、 __(For Windows) 提供对OLE多媒体应用开发的支持 1995 Delphi Visual Pascal Turbo Pascal语言是编译型程序语言，它提供了一个集成环境的工作系统，集编辑、编译、运行、调试等多功能于一体 ps:高级语言发展过程中，PASCAL是一个重要的里程碑。PASCAL语言是第一个系统地体现了E.W.Dijkstra和C.A.R.Hoare定义的结构化程序设计概念的语言。1971年，瑞士联邦技术学院尼克劳斯·沃尔斯（N.Wirth）教授发明了另一种简单明晰的电脑语言，这就是以电脑先驱帕斯卡的名字命名的PASCAL语言。PASCAL语言语法严谨，层次分明，程序易写，具有很强的可读性，是第一个结构化的编程语言。它一出世就受到广泛欢迎，迅速地从欧洲传到美国。沃尔斯一生还写作了大量有关程序设计、算法和数据结构的著作，因此，他获得了1984年度“图灵奖”。 Pascal有5个主要的版本，分别是Unextended Pascal、Extended Pascal、Object-Oriented Extensions to Pascal、Borland Pascal和Delphi Object Pascal。其中，Unextended Pascal、Extended Pascal和Object-Oriented Extensions to Pascal是由Pascal标准委员会所创立和维护的，Unextended Pascal类似于瑞士Niklaus Wirth教授和K.Jensen于1974年联名发表的Pascal用户手册和报告，而Extended Pascal则是在其基础上进行了扩展，加入了许多新的特性，它们都属于正式的Pascal标准；Object-Oriented Extensions to Pascal是由Pascal标准委员会发表的一份技术报告，在Extended Pascal的基础上增加了一些用以支持面向对象程序设计的特性，但它属于非正式的标准。Borland Pascal和Delphi Object Pascal是由Borland公司专门为其开发的编译工具设计的Pascal语言，前者是用于DOS的Turbo Pascal系列和Windows 3.x的Turbo Pascal for Windows的传统高级语言，后者是用于Windows的Delphi和Linux的Kylix的面向对象程序设计语言，它们都不是正式的Pascal标准，具有专利性。但由于Turbo Pascal系列和Delphi功能强大并且广为流行，Borland Pascal和Delphi Object Pascal已自成为一种标准，为许多人所熟悉。 看到这里，你可能会发觉我的回答与你最初的设想不同。你原来可能是想问Turbo Pascal有几个版本，然而我却回答了Pascal语言有几个版本。这就是初学者常有的一个错误认识：Pascal是一种编程工具。实际上，Pascal是一种程序设计语言的名称（从一般意义上说，Pascal也可以是指人名，它的取名原本就是为了纪念十七世纪法国著名哲学家和数学家Blaise Pascal），而不是编程工具。刚才我是纯粹从字面意思上来回答这个问题。 在中国的信息学奥林匹克竞赛中，过去比较常用的Pascal编程工具是Turbo Pascal。Turbo Pascal是DOS下的一种16位编程工具，在Delphi出现之前，它是世界上最多人使用的Pascal编程工具，拥有编译速度极快的先进编译器和功能强大而又简便易用的集成开发环境（IDE），在微机程序员中广为流行，正是它的出现奠定了Pascal在DOS/Windows平台上不可动摇的根基，现在常见的版本有Turbo Pascal 5.5、Turbo Pascal 6.0和Borland Turbo Pascal with Objects 7.0。Turbo Pascal 6.0与Turbo Pascal 5.5相比，主要是IDE更为强大，而其程序设计功能改变不大，只是增加了一些新的功能，例如可以内嵌asm汇编语句等。而Borland Turbo Pascal with Objects 7.0（简称Borland Pascal 7.0）则有了新的飞跃，首先是IDE进一步加强，提供了程序浏览器，然后是程序设计功能有了很大的提升，新增了一些十分有用的标准子程序，支持比较完善的面向对象程序设计功能，并提供了DOS实模式、DOS保护模式和Windows模式三种程序编译模式，能够编写出可以使用扩充内存（XMS）的保护模式应用程序或者在Windows 3.x下运行的Windows程序，另外还提供了一个对象窗口库（OWL），使用它可以快速的开发出具有一致的视窗界面（DOS或Windows 3.x）的应用程序。Borland Pascal 7.0在1992年推出，是Turbo Pascal系列在DOS下的最后版本。 现在，随着Turbo Pascal逐渐被淘汰，全国信息学奥林匹克竞赛决赛（NOI）和国际信息学奥林匹克竞赛（IOI）已经指定Free Pascal为比赛使用的Pascal编程工具。Free Pascal是由一个国际组织开发的32位Pascal编程工具，属于共享软件，可用于各种操作系统。根据编译选项的不同，它可以使用Borland Pascal兼容语法、Delphi 2 Object Pascal语法或者其它语法进行编写程序。由于它拥有32位的编译器，而且一直在更新发展中，因此它的功能比Borland Pascal更加强大，拥有许多现代程序设计的特征，但同时也很不成熟，存在很多漏洞。Free Pascal正处于发展初期，相应的函数库十分少，对程序员的吸引力远比不上拥有VCL和CLX的Delphi和Kylix。
real在Pascal里面表示实型数据吗？如果是的话，那对应到C语言里面就是float. 定义的时候这样来：float a,b,c,……;
相关知识等待您来回答
编程领域专家
