Pascal和C的问题

有好多解释1：Pascal是一种计算机通用的高级程序设计语言。Pascal的取名是为了纪念十七世纪法国著名哲学家和数学家Blaise Pascal。它由瑞士Niklaus Wirth教授于六十年代末设计并创立。Pascal语言语法严谨，层次分明，程序易写，具有很强的可读性，是第一个结构化的编程语言。2：布莱士·帕斯卡（1623年6月19日－1662年8月19日）是法国数学家、物理学家、思想家。3：帕斯卡[Pascal] 　　简称：帕（Pa） 　　压强：单位面积上所受的压力，叫做压强。 　　1帕斯卡=1牛顿/平方米(1N/㎡) 　　1MPa（兆帕）=1000KPa（千帕）=1000000Pa（帕）你说的是哪一个？

分类: 电脑/网络 >> 程序设计 >> 其他编程语言 问题描述: 如题！！ 解析: 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语言是编译型程序语言，它提供了一个集成环境的工作系统，集编辑、编译、运行、调试等多功能于一体。 1.2 Turbo Pascal 或 Borland Pascal 的启动 (1) Turbo Pascal的启动 a.DOS下的启动(适用于MS-DOS6.22之前的版本或Win 9X & Win2000 的Command Mode) DOS下，在装有Turbo Pascal的文件目录下，键入turbo即可进入Turbo Pascal集成环境。 b.Win9X或Win2000模式下的启动(适用于Turbo Pascal 3.0以后的版本) 如果在Win9X或Win2000的“资源管理器”装有Turbo Pascal的目录中，双击turbo.exe或在“开始--程序”菜单中通过MS-DOS方式来运行turbo.exe，它会提示你“该程序设置为MS-DOS方式下运行，并且其它程序运行时，无法运行它。如果选择继续所有其它程序将关闭”，所以在Win9X或Win2000下无法直接运行它，这时你可以在你希望的地方(比如说桌面上)单击鼠标右键“新建--快捷方式”，单击“浏览”，找到turbo.exed选中，然后单击“打开”，再单击“下一步”，再单击完成；这还没完，选中前面新建的快捷方式(应该叫Turbo Pascal吧)，单击右键，单击“属性”，选择“程序”，然后再单击“高级”，把“MS-DOS方式”前面的那个勾去掉，也就是不要选“MS-DOS方式”，然后单击“确定”，在单击“确定”就大功告成了，以后你运行Turbo Pascal的时候，只要双击那个你建立起的快捷方式就可以直接在Win9X或Win2000下运行Turbo Pascal。 (2)Borland Pascal的启动 Borland Pascal的启动没有像Turbo Pascal那样复杂，一般来说在任何情况下双击bp.exe或是在MS-DOS下运行都不会出现什么问题。

帕斯卡，压强单位

PASCAL语言基础第一章、 什么是计算机语言计算机语言是计算机软件中非常独特的一部份，它属于系统软件，但又和应用软件息息相关。它的作用是：使人类能够用某些命令、指令去让计算机为人类进行数值、逻辑运算。计算机语言中，只有一种语言是计算机能自己识别的，就是最底层、最难的机器语言，这是一般人类所无法接受的语言，所以在此基础上，人们发展出了许多高级的语言，这些语言的共同特点是：人类无需去掌握高深的机器语言，只要掌握这些更容易理解、更贴近人类的高级语言，用高级语言编出程序后，再由语言解释、编译系统去把程序解释、编译成机器语言让计算机去执行。目前最常用的高级语言大致有以下几种：BASIC语言：是一般计算机入门者的首选语言，命令少，容易掌握，从BASIC，BASICA，GWBASIC，TRUE BASIC，TURBO BASIC，QUICK BASIC等一直发展到目前的WINDOWS环境下的VB。PASCAL语言：最适合科学计算、数据处理的语言，运行、编译速度最快，从TURBO PASCAL 5 .5, 6.0, 7.0一直到现在的WINDOWS环境下的DELPHI以及LAZARUS等面向对象的PASCAL，以及目前信息学竞赛使用的FREE PASCAL各个版本。C语言：主要适用于应用软件的开发，是计算机人员的必修课，但在算法实现、建模方面不如PASCAL方便。从C，C++，一直到现在的WIONDOWS环境下的VC、C++等。 实际上，我们日常所用的各种软件，包括Windows，WORD、EXCEL、各种游戏等等，全部都是使用程序设计语言编写出来的软件，我们只有掌握了程序设计语言，才能进行计算机软件的开发。在我们的信息学竞赛中，所有的题目都是非常复杂的数值与逻辑运算，所以世界上广泛采用PASCAL语言作编程工具，我们采用的是FREE PASCAL2.0版本或者相近版本。我们学习信息学竞赛除了要掌握程序设计语言，能够使用程序设计语言编写程序外，还有一部分要掌握的更加重要的内容就是——算法设计，它能够使我们的程序运行速度更快、效率、精度更高，使我们的程序取得快人一步的优势，算法设计在本书中我们将接触一部分。第二章、PASCAL语言入门第一节、 PASCAL语言的特点以法国数学家命名的PASCAL语言是世界上使用最广泛，最有效的语言之一。其主要特点是：严格的结构化形式；丰富完备的数据类型；运行能力、效率高；查错能力强等等。与BASIC、C等语言相比，PASCAL语言更适合科学计算，运行速度最快，编译能力最强，编译成的可执行文件也最小。PASCAL语言是编译执行的语言（BASIC语言是解释执行），因此在速度与效率上都比BASIC语言提高了一个档次。所谓解释执行，是在程序环境下编写好程序后，执行它时是一句一句地由语言解释器翻译成机器语言，由计算机去执行，计算机能在程序编辑时就发现程序中错误，但程序运行速度慢；而编译执行是在程序环境中编写好程序后，执行时先由编译器把整个程序编译成机器语言，然后再由计算机执行，计算机必须在编译程序时才能发现程序中的错误，但程序运行速度快。这是一个教材里的，如果你想要我爸写的教材，QQ909162797

pascal是一种高级程序设计语言，语言比较严密，适合教学，目前的信息学奥林匹克竞赛大多采用pascal语言，当然部分选手使用C或者C＋＋。学习pascal对于编程初学者掌握程序设计规范还是有很好的帮助。目前支持pascal的IDE基本上包括Turo pascal,Free Pascal，Lazarus等。当然delphi更为强大，但使用delphi的，更确切的是object pascal

分类: 电脑/网络 >> 程序设计 >> 其他编程语言 问题描述: pascal 作为教学程序有什么实际用途? 比如说有什么程序是用它编的,或者用它可以编些什么!!?? 解析: Pascal语言结构非常好，非常适合教学使用。 Delphi使用的面向对象Pascal语言，VCL组件技术（新版使用了.NET Framework），编程非常方便，功能非常强大，许多的商用软件都是使用Delphi编写的，与VC相比，使用Delphi可以大大缩短开发周期，因而是非常流行的一款开发工具。

pascal 和c属于同一级别的语言一般只学一种就可以了，Pascal注重语法和算法，相对而言c的语法就更灵活。目前应用pascal语言的地方已经很少了，貌似只有计算机奥赛还在考pascal，建议学c然后学c++。c语言的书谭浩强编的比较好去书店找找吧网上可以找到老板的用的编译器是TC，现在都用VC了不过基础内容是一样的

一、Pascal 语言概述 PASCAL语言也是一种算法语言，它是瑞士苏黎世联邦工业大学的N．沃思(Niklaus Wirth)教授于1968年设计完成的，1971年正式发表。1975年，对PASCAL语言进行了修改，作为"标准PASCAL语言"。 PASCAL语言是在ALGOL 60的基础上发展而成的。它是一种结构化的程序设计语言，可以用来编写应用程序。它又是一种系统程序设计语言，可以用来编写顺序型的系统软件（如编译程序）。它的功能强、编译程序简单，是70年代影响最大一种算法语言。二、Pascal 语言的特点 从使用者的角度来看，PASCAL语言有以下几个主要的特点： ⒈它是结构化的语言。PASCAL语言提供了直接实现三种基本结构的语句以及定义"过程"和"函数"(子程序)的功能。可以方便地书写出结构化程序。在编写程序时可以完全不使用GOTO语句和标号。这就易于保证程序的正确性和易读性。PASCAL语言强调的是可靠性、易于验证性、概念的清晰性和实现的简化。在结构化这一点上，比其它（如BASIC,FORTRAN77）更好一些。 ⒉有丰富的数据类型。PASCAL提供了整数、实型、字符型、布尔型、枚举型、子界型以及由以上类型数据构成的数组类型、集合类型、记录类型和文件类型。此外，还提供了其它许多语言中所没有的指针类型。沃思有一个著名的公式："算法＋数据结构＝程序"。指出了在程序设计中研究数据的重要性。丰富的数据结构和上述的结构化性质，使得PASCAL可以被方便地用来描述复杂的算法，得到质量较高的程序。 ⒊能适用于数值运算和非数值运算领域。有些语言（如FORTRAN 66,ALGOL 60）只适用于数值计算，有些语言（如COBOL ）则适用于商业数据处理和管理领域。PASCAL的功能较强，能广泛应用于各种领域。PASCAL语言还可以用于辅助设计，实现计算机绘图功能。 ⒋PASCAL程序的书写格式比较自由。不象FORTRAN和COBOL那样对程序的书写格式有严格的规定。PASCAL允许一行写多个语句，一个语句可以分写在多行上，这样就可以使PASCAL程序写得象诗歌格式一样优美，便于阅读。 由于以上特点，许多学校选PASCAL作为程序设计课程中的一种主要的语言。它能给学生严格而良好的程序设计的基本训练。培养学生结构化程序设计的风格。但它也有一些不足之处，如它的文件处理功能较差等。三、Pascal语言程序的基本结构 任何程序设计语言都有着一组自己的记号和规则。PASCAL语言同样必须采用其本身所规定的记号和规则来编写程序。尽管不同版本的PASCAL语言所采用的记号的数量、形式不尽相同，但其基本成分一般都符合标准PASCAL的规定，只是某些扩展功能各不相同罢了。下面我们首先来了解Pascal语言的程序基本结构。 为了明显起见先举一个最简单的PASCAL程序例子：【例1】 从这个简单的程序可以看到： ⒈一个PASCAL程序分为两个部分：程序首部和程序体（或称分程序）。 ⒉程序首部是程序的开头部分，它包括： ⑴程序标志。用"program"来标识"这是一个PASCAL 程序"。PASCAL规定任何一个PASCAL程序的首部都必须以此字开头。在turbo pascal语言中，首部也可省略。 ⑵程序名称。由程序设计者自己定义，如例中的exam1。 在写完程序首部之后，应有一个分号。 ⒊程序体是程序的主体，在有的书本里也称"分程序"。程序体包括说明部分（也可省略）和执行部分两个部分。 ⑴说明部分用来描述程序中用到的变量、常量、类型、过程与函数等。本程序中第二行是"变量说明"，用来定义变量的名称、类型。 PASCAL规定，凡程序中用到所有变量、符号常量、数组、标号、过程与函数、记录、文件等数据都必须在说明部分进行定义（或称"说明"）。也就是说，不允许使用未说明先使用。 ⑵执行部分的作用是通知计算机执行指定的操作。如果一个程序中不写执行部分，在程序运行时计算机什么工作也不做。因此，执行部分是一个PASCAL程序的核心部分。 执行部分以"begin"开始，以"end"结束，其间有若干个语句，语句之间以分号隔开。执行部分之后有一个句点，表示整个程序结束。 ⒋PASCAL程序的书写方法比较灵活。当然，书写不应以节省篇幅为目的，而应以程序结构清晰、易读为目的。在编写程序时尽量模仿本书中例题程序格式。 ⒌在程序中，一对大括号间的文字称为注释。注释的内容由人们根据需要书写，可以用英语或汉语表示。注释可以放在任何空格可以出现的位置。执行程序时计算机对注释不予理睬。四、Turbo Pascal语言系统的使用 目前，常用的Pascal语言系统有Turbo Pascal7.0与Borland Pascal 7.0，下面我们就来学习Turbo Pascal 7.0系统的使用。1． 系统的启动 在运行系统目录下的启动程序TURBO.EXE，即可启动系统。屏幕上出现如图1所示的集成环境。2． Turbo Pascal系统集成环境简介 最顶上一行为主菜单。中间蓝色框内为编辑窗口，在它个编辑窗口内可以进行程序的编辑。最底下一行为提示行，显示出系统中常用命令的快捷键，如将当前编辑窗口中文件存盘的命令快捷键为F2，获得系统帮助的快捷键为F1，等等。3． 新建程序窗口 按F10进行主菜单，选择FILE菜单，执行其中New命令。就可建立一个新的程序窗口（默认文件名为Noname00.pas或Noname01.pas等）。4． 程序的输入、编辑与运行 在当前程序窗口中，一行一行的输入程序。事实上，程序窗口是一个全屏幕编辑器。所以对程序的编辑与其它编辑器的编辑方法类似，这里不再重复。 当程序输入完毕之后，一般要先按Alt+F9（或执行compile菜单中compile命令）对程序进行编译。如果程序有语法错误，则会在程序窗口的第一行处显示第一个红色错误信息。若无语法错误，则窗口正中央会出现一个对话框，提示编译成功。接下来，我们可以运行程序了。程序的运行可以通过按ALT+R打开RUN菜单中的RUN命令，或直接按快捷键CTRL+F9。则可以在用户窗口中输出运行结果。通常在程序运行结束后系统回到Pascal系统的集成环境，因此要查看运行结果，要按ALT+F5将屏幕切换到用户屏幕。5．程序的保存与打开 当我们想把程序窗口中的程序存入磁盘时，可以通过按F2键(或执行File菜单中的save命令)来保存程序。第一次保存文件时屏幕上会出现一个对话框要求输入文件名(默认扩展名为.pas)。 当我们要将磁盘上的程序文件中的PASCAL程序装入窗口时，可按F3(或执行File菜单中的Open命令)来装入程序，此时系统也会弹出一个对话框要求输入要打开的文件名，或直接在文件对话框列表中选择所要的文件，然后回到打开文件。五、第一个程序 下面程序在运行时，会提示输入一个圆的半径，然后会在屏幕上画一个圆。按回车后程序结束回到程序窗口。Program ex1;Uses graph;Var Gm,Gd,R :integer;BeginGd:=0;Write("Please enter the radius:");readln(R);Initgraph(Gm,Gd," ");Setcolor(Green);Circle(320,240,R);Readln;Closegraph;End. 注意，如果上面程序运行时会出现初始化图形错误，请将系统目录下BGI子目录EGAVGA.BGI和UNITS子目录中的Graph.tpu拷贝到系统目录下BIN目录即可。 请输入上面的程序，并练习将其存盘、打开与运行上面程序。

首先，Pascal中定义数组有多种方法，在这里我就介绍2中。例，定义数组名为：a；类型为：real；共计100个元素方法一：Typearr=array[1..100]of real;vara:arr;方法二：vara:array[1..100] of real;方法一适用于需要作过程或者函数的参数时实用，方法二写法简单，一般你不用作过程或者函数的参数的话，建议使用方法二。另附：string 英文中的意思是：串，线在pascal中是 字符串的类型（Pascal保留字），最多容纳255个字符元素可以看做是Typestring=array[1..255]of char;（字符）还有一种是ansistring 更长一些

　　⒈一个PASCAL程序分为两个部分：程序首部和程序体（或称分程序）。　　⒉程序首部是程序的开头部分，它包括：　　⑴程序标志。用"program"来标识"这是一个PASCAL程序"。PASCAL规定任何一个PASCAL程序的首部都必须以此字开头。在turbopascal语言中，首部也可省略。　　⑵程序名称。由程序设计者自己定义，如例中的exam1。　　在写完程序首部之后，应有一个分号。　　⒊程序体是程序的主体，在有的书本里也称"分程序"。程序体包括说明部分（也可省略）和执行部分两个部分。　　⑴说明部分用来描述程序中用到的变量、常量、类型、过程与函数等。本程序中第二行是"变量说明"，用来定义变量的名称、类型。　　PASCAL规定，凡程序中用到所有变量、符号常量、数组、标号、过程与函数、记录、文件等数据都必须在说明部分进行定义（或称"说明"）。也就是说，不允许使用未说明先使用。　　⑵执行部分的作用是通知计算机执行指定的操作。如果一个程序中不写执行部分，在程序运行时计算机什么工作也不做。因此，执行部分是一个PASCAL程序的核心部分。　　执行部分以"begin"开始，以"end"结束，其间有若干个语句，语句之间以分号隔开。执行部分之后有一个句点，表示整个程序结束。　　⒋PASCAL程序的书写方法比较灵活。当然，书写不应以节省篇幅为目的，而应以程序结构清晰、易读为目的。在编写程序时尽量模仿本书中例题程序格式。　　⒌在程序中，一对大括号间的文字称为注释。注释的内容由人们根据需要书写，可以用英语或汉语表示。注释可以放在任何空格可以出现的位置。执行程序时计算机对注释不予理睬

因素主要有两个：首先是最早版本的 Pascal 一些细节上的设计让它不适合大型软件，尤其是系统软件的开发，导致 C 语言后来居上。然后是因为 Borland 公司作死。Pascal 语言也奇迹般的流行了两次。就像 Objective-C 一样。可惜的是 Pascal 第二次流行最后也没落了。第一次流行，Niklaus Wirth 开发 Pascal 语言本来是为了教学使用，谁知道瞬间火了起来，从欧洲火到美洲，让他一卖拷贝的学生变成百万富翁。虽然有语法严谨易读等优点，毕竟是为教学设计的，这让它缺少一些开发大型软件和系统软件的特性，现在我们看 Pascal 强大是因为许多特性是后来加上去的，当时文件 IO 简陋，不支持直接操作内存，最严重的缺陷可能要算不同长度的字符串属于不同的数据类型，比如一个函数的参数是一个长度20的字符串，每次传递字符串的长度必须是20，上课学习写二叉树算法足够用了，对于商业软件显然是不行的。Unix 的作者之一 Brian Kernighan 就写文章说过这些事情：Why Pascal is Not My Favorite Programming Language，开发 Unix 时没有用 Pascal，而是设计了新的语言： C 语言。随着 Unix 的流行，C 以及后来的 C++ 成了最流行的语言。Pascal 虽然在软件行业不再流行，但是教学上仍然是最流行的语言。Objective-C 因为 Apple 的复兴再次变得流行起来，这在编程语言里很罕见。Pascal 也经历了一次类似的事件。程序员大多都知道 Borland 这家公司，Pascal 起家，C++ 壮大，不过在和微软的 C++大战中败给了微软，Borland 是编译器提供商，C++ 是当时最流行的语言，失去 C++ 市场几乎是失去一切。Borland 寻求新的机会时盯上了起家的 Pascal，此时微软推出了一款可视化的开发工具 Visual Basic，不过很初级，无法用来开发产品软件，Borland 决定把 Pascal 打造成一个超越 VB 的开发工具，这就是后来的 Delphi，Delphi 1.0 获得巨大成功，Borland翻身的同时也让 Pascal 第二次流行起来。Delphi 所有用的语言叫 Object Pascal，也就是支持面向对象的 Pascal，已经非常强大了，Delphi 的设计者 Anders 看到 java 的成功也打算给 Object Pascal 加上 GC，并运行在虚拟机上，可以提高程序稳定性，降低程序员负担，但是管理层希望尽快开发新产品来赚更多的钱，甚至不惜降低产品质量，这导致了Pascal 的再次没落，而 Anders 被微软挖走，开发了后来的 C#。

怎么啦？pascal怎么啦

PASCAL与c、c++一样是一门编程语言，ok？

pascal编译系统属于编程语言。它由瑞士Niklaus Wirth教授于六十年代末设计并创立的。Pascal语言语法严谨，层次分明，程序易写，可读性强，是第一个结构化编程语言。Pascal语言广泛用于各种软件，程序分为名称（program后自拟）、设置（var后规定）、开始（begin)、程序（正文）、读取（read/read ln）、结束（end），结构层次强，严谨而又紧密。具有丰富的数据类型和简洁灵活的操作语句。高级语言发展过程中，Pascal是一个重要的里程碑。Pascal语言是第一个系统地体现了E.W.Dijkstra和C.A.R.Hoare定义的结构化程序设计概念的语言。扩展资料Pascal强调的结构化编程带来了非结构化语言如Fortran之流无法比拟的美和乐趣，Unix崇尚的“小即是美”、“没有消息就是好消息”。正因为上述特点，Pascal语言可以被方便地用于描述各种算法与数据结构。尤其是对于程序设计的初学者，Pascal语言有益于培养良好的程序设计风格和习惯。IOI(国际信息学奥林匹克竞赛)把Pascal语言作为三种程序设计语言之一，NOI(全国奥林匹克信息学竞赛)把Pascal语言和c语言、c++语言作为竞赛使用程序设计语言，在大学中Pascal语言也常常被用作学习数据结构与算法的教学语言。高级语言发展过程中，PASCAL是一个重要的里程碑。1971年，瑞士联邦技术学院尼克劳斯·沃尔斯（N.Wirth）教授发明了另一种简单明晰的电脑语言，这就是以电脑先驱帕斯卡的名字命名的PASCAL语言。PASCAL语言语法严谨，编程语言。沃尔斯一生还写作了大量有关程序设计、算法和数据结构的著作，因此，他获得了1984年度“图灵奖”。

汉语拼音：pa si kao

最好买本书看看，

c在性能上优于pascal，语言也相对简洁，但学起来也更有难度,相比起来pascal容易掌握.其实只要掌握了一门语言，再去学别的语言都会比较容易的.

可以把题目描述的更清晰些么，谢谢

百度一下

C 和 Pascal 曾经不太像，但是越来越像。 现代 C 语言借鉴了很多 Pascal 的概念： 例如，古老的 C 语言的类型检查很弱，没有函数原型。但今天的 C/C++ 语言支持函数原型（而且不提倡用旧的函数风格），类型检查机制几乎和 Pascal 一样严格。古老的 C 语言曾经只能靠指针存取外界的变量，很不安全，但今天 C/C++ 的引用参数则是相当类型安全的。而引用参数和 Pascal 的 var 参数如出一辙。 另外，Pascal 语言本身也经过了巨大的发展，Borland 功不可没。 今天人们用的 Pascal 几乎就是 Turbo Pascal 或 Delphi 的 Object Pascal。N.Wirth 时代的 program Name(input, output); const a = 1; type t = packed array of char; var i: integer; begin writeln("这是一个古董Pascal程序"); end. 还有几个人认识？一个软件就是一个 program begin end，不能分模块，岂不要疯掉？ 现代 Pascal 语言也借鉴了许多 C 语言的概念，如缺省参数值、无变量变体记录： type TPoint = record case integer of 0: ( x, y: extended ); 1: ( radius, angle: extended ); end; case 部分不是 case type: integer of 而是 case integer of，实际上跟 C 语言的 union 一样了。 至于借鉴的数据类型（如 smallint, longint, 无类型指针 Pointer，类型参数）和强制类型转换机制，就更不用提了。 今天 Pascal 的文件处理，也有点模仿 C 语言，跟以前是天壤之别，谁还记得 Old Pascal 的 get/put 操作？ 说这么多相似，其实也衬托了当年的不相似。语言的发展趋同，不同的（ {} 与 begin..end ）往往都是鸡毛蒜皮。 今天还有的比较重要的区别： 1. Pascal 支持子程序嵌套，C 否。因为 C 的设计目标之一就是与机器语言的结构直接对应。 2. Pascal 子程序分过程/函数，C 只有函数。 3. Pascal 类型更严格，如 char, boolean 都是特殊的枚举类型，而枚举与整型不是一回事，必须用 Ord() 转换。 而 C 的 char、enum 都被当作整型。 4. C 支持可变参数 void f(int x, ...)，Pascal 没有。 5. C/C++ 的模块机制是头文件的文件包含＋*.obj文件的连接，文件包含属于文本操作，编译速度很慢。而 Pascal 是 unit 的连接，二进制操作，编译速度飞快（对开发大型软件还是很重要的） 6. C 语言的结构/数组的初始化只用给出数值，而且元素个数可以比定义的少；而Pascal必须明确指出分量名称，个数严格对应： var Point: TPoint = ( x: 100, y: 200 ); 7. C 的标志符大小写敏感，Pascal 否。 8. C 编译预处理功能比 Pascal 的强大，实践中也很重要（它弥补了 C 编译器的许多不足）。 9. 很容易被忽视也很重要的一条：两者的表达式不同。 9.1. C/C++ 的表达式被赋予了太多的使命，连赋值语句本身也是表达式，a = b 同时返回 a，因此可以写 a = b = c; 而 Pascal 对赋值号被严格当作一个规定好的操作：赋值，别无其它，你不能写 a := b := c。 9.2. C/C++ 的表达式的类型严格取决于源操作数： char a = 100, b = 200; 则 a+b 的结果类型仍然是 char，当然就会溢出。Pascal 会“体贴”地替你扩展成足够大的数据类型： var a, b: smallint; c：longint; a := 32768; b := 32768; c := a + b; //结果是 65536，在 C 语言中则肯定是 0 归根结蒂，C 贴近机器，骨子里把操作数当作“二进制”处理（这有时是优点，尤其是跟硬件打交道时）；Pascal 贴近数学，尽量以数学的视角看待数值。 10. 至于 C 的 for 循环如何强大，Pascal 的 for 循环如何循规蹈矩，这些都不是太重要。========================================================我认为最大的区别在于c中的函数内部不允许定义其他函数 但是pascal的过程 函数中允许存在 另外赋值 c用＝pascal用：＝ 还有就是c用{}表示作用域 但是pascal用begin end 关于for循环c可以随意给条件中的变量进行增加和减少如 int i; for(i=0;i<100;i+=2) { } 但是pascal中每次只能增加1（不知道这一点是不是正确，可能跟vb搞在一起了 你就参考一下吧）=========================================================从oop来说他们还有些区别。 1. pascal不支持多重继承，只能由单一的父亲，而c++允许多父亲。 如果大家用果BC提供的TV编程，那么一定看过TV的源代码，你会发现他和delphi的vcl多么类似，但是他毕竟是c++写的，采用了很多多重继承，delphi后来重新写了她。 从oop的未来发展来看，并不提倡多重继承，java类似pascal也不支持这样操作，这从根本上降低了类的复杂度和可读性。 2.pascal原来没有重载、多态这些该概念，现在的borland把pascal完善的已经脱胎换骨了。 3.pascal至今仍没有c++的友元。他所谓能做到的只是可以访问同一个unit的其他类的私有变量。现在的编程中，大家应该尽量避免使用友元了。 4.pascal的所有类都是TObject的子孙，实际你什么都不写 aaa= class(); end; 仍然等效与 aaa= class(TObject); end; 这样所有的类指针都能用TObject来转换，而且他在TObject里面已经做到了一些基本的类的初始化、析构和操作符重载。这是c++的不及。 5. 所有的pascal 必须显式声明构造函数，即使你里面什么也不写。而c++可以没有。 6. pascal所有的类都是在堆中申请，统一管理，各个类的互相操作都在堆里面进行。 而c++却可以在堆、栈和数据区里面存在，这样各个不同区域的类相互访问，成了c++需要解决的一个复杂问题。 7. 基于上面的原因。 比如一个类 TDemo, 再C++ 里面可以写成 TDemo *demo= new TDemo(); TDemo demo; // 直接创建实体 但是在pascal里面就必须写成 Demo: TDemo； Demo:= TDemo.Create(); 8.还有个问题，就是字符串。 现在可以说pascal的字符串操作性比c++要强大。 他可以直接的+,而c++却不行，这得主要原因是c++太接近底层操作了。 9.还是字符串 pascal的字符串 分为长字符串和短字符串，他们的开始string[0],这个[0]里面实际保存的是字符串的长度，长字符串是4个字节，表示4G长度的字符串，短的1个字节，最多长度255，而不像c++是结为表示结束。 pascal这样的好处很多，比如你想得到一个字符串的长度，c++需要扫描整个字符串，直到遇到才能统计出来大小，而pascal直接读[0]就行了，这个效率你可以从编译后产生的汇编代码来看。 还有一个好处就是对于多字节字符串支持，比如unicode，由于是16bit的，里面会出现很多，这就与c++的字符窜的结束符号冲突，c++为了解决不得不变成来表示结束。而pascal却不用任何变化。 10......还有好多，我一时想不起来了

也就是说你不能定义的字符串比如varvar,begin,end,div:real等等都会报错具体PASCAL中,保留字分为6种共36个:(1)程序、函数、过程符号program,function,procedure(2)说明部分专用定义符号array,const,file,label,ofpacked,record,set,type,var（3）语句专用符号case,do,downto,else,for,forward,goto,if,repeat,then,tountil,while,with

有用呀！pascal虽老，但学它了以后，转c、c++、c#都很方便的。

Pascal语言现在用的人不多。CCF关于NOI系列赛事程序设计语言变更的公告根据国际信息学奥林匹克竞赛（IOI）的相关决议并考虑到我国目前程序设计语言的具体情况，CCF决定：1.2020年开始，除NOIP以外的NOI系列其他赛事（包括冬令营、CTSC、APIO、NOI）将不再支持Pascal语言和C语言；2.从2022年开始，NOIP竞赛也将不再支持Pascal语言。即从NOIP2022开始，NOI系列的所有赛事将全部取消Pascal语言。在无新增程序设计语言的情况下，NOI系列赛事自NOIP2022开始将仅支持C++语言。此通知。

价格实惠、质量好。1、价格实惠。pascal功放板的市场售价为129元与其他品牌的299元相比价格非常实惠。2、质量好。pascal功放板的质量经过严格的检测，非常耐用，质量非常好，深受使用者的喜欢。

这里有 http://baike.baidu.com/view/1215583.htm

书店有卖，浙江大学出版社的，紫色的那本是初赛的，还有本绿色的是复赛的。不过我忘记名字了。

输入两个长整数（十位以上），输出它们的和。var st:string; x,y:array[0..101]of integer; i,j,l1,l2:integer;begin write("x="); readln(st); l1:=length(st); for i:=0 to 101 do x[i]:=0; for i:=l1 downto 1 do x[l1-i]:=ord(st[i])-ord("0"); write("y="); readln(st); l2:=length(st); for i:=0 to 101 do y[i]:=0; for i:=l2 downto 1 do y[l2-i]:=ord(st[i])-ord("0"); if l1<l2 then l1:=l2; for i:=0 to l1 do begin x[i]:=x[i]+y[i]; x[i+1]:=x[i+1]+x[i] div 10; x[i]:=x[i] mod 10; end; write("x+y="); j:=101; while x[j]=0 do j:=j-1; for i:=j downto 0 do write(x[i]); readln;end.例七 输入两个长整数（十位以上），输出它们的积。var st1,st2:string; x,y:array[1..200]of integer; z: array[1..401]of integer; i,j,l1,l2,a,b,c,d:integer;begin write("x="); readln(st1); l1:=length(st1); for i:=1 to 200 do x[i]:=0; for i:=l1 downto 1 do x[l1+1-i]:=ord(st1[i])-ord("0"); write("y="); readln(st2); l2:=length(st2); for i:=1 to 200 do y[i]:=0; for i:=l2 downto 1 do y[l2+1-i]:=ord(st2[i])-ord("0"); for i:=1 to l1 do for j:=1 to l2 do begin a:=x[i]*y[j]; b:=a div 10; c:=a mod 10; d:=i+j-1;{积z数组的元素号} z[d]:=z[d]+c; z[d+1]:=z[d+1]+z[d] div 10 + b;{进位} z[d]:=z[d] mod 10; end; a:=l1+l2;; while z[a]=0 do a:=a-1; write(st1,"*",st2,"=‘); for i:=a downto 1 do write(z[i]); writeln; readln;end.例六 输入两个长整数（十位以上），输出它们的差。var st,st1,st2:string; x,y,z:array[0..200]of byte; i,k,s1,s2,code:integer;begin write("x="); readln(st1); s1:=length(st1); write("y="); readln(st2); s2:=length(st2); write(st1,"-",st2,"=‘); if (s1<s2)or((s1=s2)and(st1<st2)) then begin write(‘-"); st:=st1;st1:=st2;st2:=st; k:=s1;s1:=s2;s2:=k; end; fillchar(x,sizeof(x),0); fillchar(y,sizeof(y),0); fillchar(z,sizeof(z),0); for i:=1 to s1 do val(st1[i],x[s1+1-i],code); for i:=1 to s2 do val(st2[i],y[s2+1-i],code); for i:= 1 to s1 do begin if x[i]-y[i]<0 then{不够减，借位} begin x[i+1]:=x[i+1]-1; x[i]:=x[i] + 10; end; z[i]:=x[i]-y[i]; end; k:=s1; while z[k]=0 do k:=k-1; for i:=k downto 1 do write(z[i]); writeln; readln; end.

分类: 电脑/网络 >> 程序设计 >> 其他编程语言 问题描述: pascal文件类型的函数有哪些？ 解析: 一、有类型文件的定义 有类型文件中的元素可以是混合型的，并以二进制格式存贮，因此有类型文件（除了字符类型文件，因为它实质上是文本文件）不象文本文件那样可以用编辑软件等进行阅读和处理。 有类型文件的类型说明的格式为：类型标识符＝File of 基类型； 其中基类型可以是除了文件类型外的任何类型。例如： file1=file of integer; file2=file of array[1..10] of string; file3=file of set of char; file4=file of real; file5=file of record; name:string; course:array[1..10] of real; sum:real; end; 等等，其中file2,file3,file5中的数组、 *** 、记录等类型可以先说明再来定义文件变量。 例如： var f1:file1; f2,f3:file3; f4:file5; 与前面所有类型说明和变量定义一样，文件类型说明和变量定义也可以合并在一起，例如： var f1:file of integer; f2,f3:file of set of char; file4=file of record; name:string; course:array[1..10] of real; sum:real; end; Free Pascal对有类型文件的访问既可以顺序方式也可以用随机方式。 二、有类型文件的建立 有类型文件的建立只能通过程序的方式进行，其操作步骤与文本文件程序方式建立的步骤相仿，不同之处：（1）有类型文件的定义与文本文件的定义不同；（2）有类型文件可以利用seek命令指定指针随机写入。 三、有类型文件的访问 有类型文件访问的操作步骤与文本文件的程序访问操作步骤相仿，区别之处：（1）有类型文件的定义与文本文件的定义不同；（2）有类型文件可以利用seek命令访问文件记录中的任一记录与记录中的任一元素。 对有类型文件的写操作步骤为： assign(f,str); rewrite(f); write(f,var表); close(f); 对有类型文件的读操作步骤为： assign(f,str); reset(f); read(f,var表); close(f); 四、例题分析 例11.5 设有一个整数文件f，现要求将其中的偶数乘以2，奇数减1，形成一个偶数文件。 分析：有两种方法，一是另外生成一个偶数文件g，一是将生成的偶数文件仍然保存在原文件f中，下面分别给出这两种方法的程序。 program exp11_5_1(input,output)； { 生成一个偶数文件g } var f,g : file of integer； x:integer； begin assign(f,"input.txt")； assign(g,"output.txt")； reset(f)； rewrite(g)； while not eof(f) do begin read(f,x)； if odd(x) then x:=x-1 else x:=x+x； write(g,x)； end； close(f) ；close(g)； end. program exp11_5_2(input,output)； { 将生成的偶数文件仍然保存在原文件f中 } var f : file of integer； x，i:integer； begin assign(f,"input.txt")； reset(f)； i:=1； { 人为设定一个写指针 } while not eof(f) do begin read(f,x)； { 系统指针作为读指针 } if odd(x) then x:=x-1 else x:=x+x； seek(f,i)； { 将写指针定位到目标位置 } write(f,x)； i:=i+1； end； close(f)； end. 例11.6 设有两个已经排好序（从小到大）的整数文件t1和t2，请编程将t1和t2合并成一个文件t，使得合并后的文件也是有序的（从小到大）。 program exp11_6(input,output)； type intfile = file of integer； var t1,t2,t:intfile； procedure paixu(var f,g,h:intfile)； var m,x,y:integer； begin reset(f) ；reset(g) ；rewrite(h) ； m:=0； { m为初始标志 } while (not eof(f) and not eof(g)) do begin if m=0 then begin read(f,x) ；read(g,y) ；m:=1； end； if x<y then begin write(h,x)；read(f,x)； end else begin write(h,y)；read(g,y)； end； end； while not eof(f) do begin read(f,x)；write(h,x)； end； while not eof(g) do begin read(g,y)；write(h,y)； end； close(f)；close(g)；close(h)； end； begin { main } assign(t1,"input1.txt")； assign(t2,"input2.txt")； assign(t, "output.txt")； paixu(t1,t2,t)； end. 注意：类型文件用写字本或TYPE命令打开看，全是乱码（二进制代码）。

pascal程序分为名称（program后自拟）、设置（var后规定）、开始（begin)、程序（正文）、读取（read/readln）、结束（end），结构层次强，严谨而又紧密。而C语言是一种面向对象性语言，可取性强，更有前途和钱途，语法没有pascal严谨。并且在语言排行里，c与C++排行2，3；而pascal则排名15。初学的话，学pascal更易懂，但学C的话，嵌套性强，就不是很易懂。

pascal(n)是矩阵实验室（MatrixLaboratory）MATLAB中的命令，利用pascal（）命令可以在矩阵实验室中方便的得到任意阶帕斯卡矩阵。设A为帕斯卡矩阵，则在MATLAB命令窗口中输入A=pascal(n)，n为正整数，可得到阶数为n的帕斯卡矩阵。帕斯卡矩阵：由杨辉三角形表组成的矩阵称为帕斯卡(Pascal)矩阵。杨辉三角形表是二次项(x+y)^n展开后的系数随自然数n的增大组成的一个三角形表。

Pascal基本语句hb007发表于2006-4-1313:57:30名称格式功能赋值语句变量标识符:=表达式；先计算表达式的值，再将表达式的值赋给变量。输入语句read(变量表)；readln(变量表)；从键盘上为变量表中的变量赋值。从键盘上为变量表中的变量赋值(换行读入)。输出语句write(输出表)；将输出项显示在屏幕上或用打印机输出。writeln(输出表)；将输出项通过屏幕或打印机输出(换行输出)。write(输出项：场宽)；输出项占有的位数=场宽表达式的值。write(输出项：总场宽：小数位数)；输出项占有的位数=总场宽表达式的值。输出项小数部分占有的位数=小数位数。条件语句if条件then语句1；若条件为真，则执行语句1。若条件为假，执行if语句的下一个语句。if条件then语句1else语句2；若条件为真，则执行语句1，否则执行语句2。分情况语句case表达式of常数表1：语句1：常数表2：语句2；……常数表n：语句n；end先计算表达式的值，然后执行与表达式的值相同的常数所对应的语句。如果所有的常数表中没有与表达式的值相同的常数，则执行case语句的下一个语句。case表达式of常数表1：语句1；常数表2：语句2；常数表n：语句n；……else语句n+l；end先计算表达式的值，再执行与表达式的值相同的常数所对应的语句。如果所有的常数表中没有与表达式的值相同的常数，则执行语句n+l。循环语句for循环变量:=初值to终值do循环体；先把初值赋给循环变量，然后将此值与循环终值比较，当此值小于等于终值时，执行循环体语句。for循环变量:=初值downto终值do循环体；先把初值赋给循环变量，然后将此值与循环终值比较，当此值大于等于终值时，执行循环体语句。while布尔表达式do语句：先计算布尔表达式的值，当其值是真时，执行do后面的语句，若是假则退出循环。repeat语句1；语句2；……语句nuntil布尔表达式；先执行语句1到语句n，再对布尔表达式进行判断。当布尔表达式值为真时重复执行语句1到语句n，直到布尔表达式的值为假时退出循环，执行until语句下面的语句。转向语句goto标号；转到标号指向的语句去执行。开域语句with记录名do语句；简化对记录的引用。[例1.1]编程在屏幕上显示“HelloWorld!”。Pascal程序：Programex11;BeginWriteln(‘HelloWorld!");ReadLn;End.这个简单样例程序，希望大家的程序设计学习能有一个良好的开端。程序中的Writeln是一个输出语句，它能命令计算机在屏幕上输出相应的内容，而紧跟Writeln语句后是一对圆括号，其中用单引号引起的部分将被原原本本地显示出来。[例1.2]已知一辆自行车的售价是300元，请编程计算a辆自行车的总价是多少？解：若总售价用m来表示，则这个问题可分为以下几步处理：①从键盘输入自行车的数目a；②用公式m=300*a计算总售价；③输出计算结果。Pascal程序：ProgramEx12;{程序首部}Vara,m:integer;{说明部分}Begin{语句部分}Write(‘a=");ReadLn(a);{输入自行车数目}M:=300*a;{计算总售价}Writeln(‘M=",m);{输出总售价}ReadLn;{等待输入回车键}End.此题程序结构完整，从中可看出一个Pascal程序由三部分组成:(1)程序首部由保留字Program开头，后面跟一个程序名(如:Exl1)；其格式为:Program程序名；程序名由用户自己取，它的第一个字符必须是英文字母，其后的字符只能是字母或数字和下划线组成，程序名中不能出现运算符、标点符和空格。(2)说明部分程序中所用的常量、变量，或类型、及过程与自定义函数，需在使用之前预先说明，定义数据的属性（类型）。[例1.2]程序中VarS，R，C:Real；是变量说明，此处说明S，R，C三个变量均为实数类型变量。只有被说明为某一类型的变量，在程序中才能将与该变量同类型的数值赋给该变量。变量说明的格式为:Var变量表：类型；(3)语句部分指由保留字Begin(开始)至End.(结尾)之间的语句系列，是解决问题的具体处理步骤，也是程序的执行部分。Pascal程序不管是哪部分，每句末尾都必须有分号(；)，但允许最接近End的那个语句末尾的分号省略；程序结束的End末尾必须有圆点(.)，是整个程序的结束标志。程序中花括号“{}”之间的部分为注释部分。Pascal程序结构可归纳用如下的示意图来表示：Program程序名；程序首部标号说明；(Label)常量说明；(Const)说明部分类型说明；(Type)变量说明；(Var)过程或函数说明；Begin程序体(主程序)语句系列；语句部分End.图1.1Pascal程序的结构把处理问题的步骤编成能从上到下顺序执行的程序，是简单程序的基本特征。再来分析下面两道例题的Pascal程序结构和继续学习基本语句。〔例1.3〕编程计算半径为R的圆的面积和周长。解：这是一个简单问题，按数学方法可分以下几步进行处理：①从键盘输入半径的值R；{要求告诉圆的半径R}②用公式S=πR2计算圆面积；③用公式C=2πR计算圆周长；④输出计算结果。Pascal程序:ProgramEx13；{程序首部}VarR，S，C:Real；{说明部分}Begin{语句部分}Write("R=?")；Readln(R)；{输入半径}S:=Pi*R*R；｛圆面积公式S=πR2｝C:=2*Pi*R；｛圆周长公式C=2πR｝Writeln("S="，S)；{输出结果}Writeln("C="，C)；Readln｛等待输入回车键｝End.程序中Pi是Pascal提供的标准函数，它返回圆周率的近似值：3.1415926…。(:=)是赋值符号，赋值语句的格式为:变量:=表达式；赋值语句的作用是将:=右边表达式的值记录到左边的变量中。Writeln是输出语句，输出语句有三种格式:①Write(输出项1，输出项2)；｛执行输出后光标不换行｝②Writeln(输出项1，输出项2)；｛执行输出后光标换到下一行｝③Writeln｛仅输出空白且光标换到下一行｝Writeln语句后面的圆括号以内部分均为输出项，可以是多项，各项间用逗号分隔；对单引号里的内容按照引号内的原样(字符)输出显示。如果输出项是表达式，则只输出表达式的值，而不是表达式本身。[例1.4]输出两个自然数相除的商和余数。解:设被除数、除数、商和余数，分别为A，B，C，D，均为变量，且都是整数类型。题中未给出具体的自然数A、B，可采用键盘输入方式。①给出提示，从键盘输入a,b；②显示两数相除的数学形式；③求出a除以b的商c；④求出a除以b的余数d；⑤紧接等式后面输出显示商和余数。Pascal程序:ProgramEx14；Vara,b,c,d:integer；BeginWrite("INPUTA，B：")；｛给出提示信息｝Readln(a，b)；｛输入a，b｝Writeln；｛输出一空行｝Write(a，"/"，b，"=")；｛输出等式之后不换行｝c:=adivb；｛整除运算，取商的整数部分｝d:=amodb；｛相除求余运算，取商的余数部分｝Writeln(C，"…"，d)；{输出后自动换行}Readln{等待输入回车键}End.执行本程序中第一个Write语句，输出其引号以内的一串提示信息，是给紧接着的输入语句提供明确的提示(要求)，有“一目了然，人机对话”之效果。Readln是一个特殊的输入语句，要求输入一个回车(换行)才能往下执行。Readln是输入语句，它的一般格式为:①Read(变量1，变量2)；②Readln(变量1，变量2)；③Readln前两种格式均要从键盘给变量输入数据，输入时，所键入的数据之间以空格为分隔，以回车为输入结束。若多输入了数据(即数据个数超过变量个数)，Read语句读完数据之后，能让后续的读语句接着读取多下来的数据；而Readln语句对本行多输入的数据不能让后续语句接着读取多下来的数据。为了防止多输入的数据影响下一个输入语句读取数据，建议尽量使用Readln语句输入数据。第三种格式不需输入数据，只需按入一个回车键。[例1.5]自然数的立方可以表示为两个整数的平方之差，比如43=102－62，请输出自然数1996的这种表示形式。(这里的43用自乘三次的形式4*4*4表示；102也用自乘二次的形式10*10表示)解:此题没有现成的计算公式能直接利用，但可以自行推出处理方法或构建适当的运算公式，按着构想的处理方案编排出各步骤。设这个自然数为N，两个平方数分别为X，Y，将问题表示为求N3=X2—Y2①先找出X的值，仔细观察题中的示例，用数学方法归纳可得出X=N*(N+1)/2；（构成本题可用的计算公式）②再仔细观察，发现Y值比X小一个N值，即Y=X—N；③输出等式N3=X2—Y2或N*N*N=X*X—Y*YPascal程序:ProgramEx15；ConstN=1996；{常量说明}VarX，Y:Longint；{变量说明，此题计算中的数值较大，用长整型}BeginX:=N*(N+1)div2；{div是整除运算}Y:=X-N；Writeln(N,"*",N,"*",N,"=",X,"*",X,"—",Y,"*",Y)；{输出结果}ReadlnEnd.本程序中N是常量，X，Y是变量，为长整数类型(Longint)；程序中的div是整除运算，其结果只取商的整数部分；[例1.6]求一元二次方程x2+3x+2=0的两个实数根。解:方程的系数是常量，分别用a，b，c表示，可运用数学上现成的求根公式求方程的根，采取如下方法:①先求出d=b2-4ac；（求根公式中需用开方运算的那部分）②再用求根公式算出x1，x2的值。(x1，x2=?)③输出x1，x2.Pascal程序:programEx16；Consta=1；{常量说明}b=3；c=2；｛a，b，c表示方程系数｝Vard:integer；｛d为整型变量｝X1，X2:Real；｛X1，X2为实型变量｝Begind:=b*b-4*a*c；x1:=(-b+sqrt(d))/(2*a)；｛求方程的根｝x2:=(-b-sqrt(d))/(2*a)；Writeln("X1="，X1，"":6，"X2="，X2)；{输出结果}Readln｛等待输入一个回车键｝End.本程序中的a，b，c均为常量；变量d是整数类型，而变量x1，x2则是实数类型，因为运算式中的Sqrt(d)开平方运算和(/)除法运算使结果为实数。Sqrt()是开平方函数，是Pascal系统的一个标准函数。习题1.1模仿例题编程1.加法计算器：编程由键盘输入两个整数a和b，计算出它们的和并输出到屏幕上。2.某梯形的上底、下底和高分别为8，12，9，求该梯形的面积。(梯形面积公式为S=3.求右图所示边长为5.6的正立方体表面积。4.已知图园柱体的高为12，底面园的半径为7，求园柱体表面积。5.计算某次考试语文、数学、英语和计算机等四科的总成绩与平均成绩。(请用输入语句从键盘输入各科成绩分)

var a:array[0..19]of longint; i,j,k,m,n,p,t,q,y,z:longint; ans,x:int64;begin t:=0; read(n); while n>0 do begin ans:=0; for i:=1 to n do read(a[i]); for 1:=1 to n do for j:=1 to n do begin x:=1; for k:=i to j do x:=x*a[k]; if x>ans then ans:=x; end; inc(t); writeln("Case #",t,": The maxinum product is ",ans,"."); writeln; read(n); end;end.

FP的话，F9编译Ctrl+F9运行Alt+F5查看结果Lazarus的话F9运行Ctrl+F9编译

可以按照物理课本上读压力单位的p的读法，或者英[p鎈"sk鎙,pɑ:"skɑ:l]美[p鎈"sk鎙,pɑ"skɑl]

不属于。Pascal是结构化编程语言，广泛用于开发Windows应用，不属于手机操作系统。Pascal的名称是为了纪念十七世纪法国著名哲学家和数学家BlaisePascal而来的，它由瑞士NiklausWirth教授于六十年代末设计并创立的，Pascal语言语法严谨，层次分明，程序易写，可读性强，是第一个结构化编程语言。

所谓保留字是指在Pascal语言中具有特定的含义，你必须了解它的含义，以便于正确的使用，否则会造成错误。标准Pascal语言中的保留字一共有35个，Turbo Pascal语言一共有51个。下面是Pascal语言的保留字(斜体是Turbo Pascal特有的保留字):（常用）[Copy to clipboard]CODE:AND，ARRAY，BEGIN，CASE，CONST，DIV，DO，DOWNTO，ELSE，END，FILE，FOR，FUNTION，GOTO，IF，IN，LABEL，MOD，NIL，NOT，OF，OR，PACKED，PROCEDURE，PROGRAM，RECORD，REPEAT，SET，THEN，TO，TYPE，UNTIL，VAR，WHILE，WITH，EXPORTS，SHR，STRING，ASM，OBJECT，UNIT，CONSTRUCTOR，IMPLEMENTATION，DESTRUCTOR，USES，INHERITED，INLINE，INTERFACE，LIBRARY，XOR，SHL,FAR,OPERATOR全部： (1)表识符的定义：标识符就是以字母开头的字母数字序列，有效长度为63个字符，并且大小写等效。可以用来标示常量、变量、程序、函数等。例如例1.1中的Area(程序名)，pi(符号常量)，s、r(变量名)都是标识符。(2)表识符的分类：a.标准标识符：指Pascal语言预先定义的表识符，具有特殊含义。以下列举了Turbo Pascal语言部分常用的标准表识符：QUOTE:标准常量 False Maxint True标准类型 Boolean Char Real Integer标准函数 Abs Arctan Chr Cos Eof Eoln ExpLn Odd Ord Pred Round Sin SqrSqrt Succ Trunc标准过程 Dispose Get New Pack Page Put ReadReadln Reset Rewrite Unpack Write Writeln标准文件 Input Outputb.用户字定义表识符：由你来根据需要定义。（1）选用的表识符不能和保留字相同。（2）语法上允许预定义的标准标识符作为你定义的的表识符使用，但最好还是不要用。以下列举了你在定义表识符时可以用的字符：[Copy to clipboard]CODE:A——Z；a——z；0——9；+，-，*，/，=，<>，<=，>=，<，>，(，)，[，]，{，}，:=，，，；，.，：，..，"，^，@

我学的是PASCAL，专门应付比赛的C和C++对实际操作比较好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更为强大，而其程序设计功能改变不大，只是增加了一些新的功能，例如可以内嵌a *** 汇编语句等。而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。 2、帕斯卡（Pascal，Blaise，1623年6月19日－1662年8月19日）是法国数学家、物理学家、思想家。生于克莱蒙费朗，早逝于巴黎。父亲是数学家、“梅森学会”成员，对他的早期教育影响很大。他自幼聪颖，求知欲极犟，12岁始学几何，即通读欧几里得（Euclid）的《几何原本》（Elements）并掌握了它。16岁时发现著名的帕斯卡六边形定理：内接于一个二次曲缐的六边形的三双对边的交点共缐。据说他后来由此推出400多条推论。17岁时写成《圆锥曲缐论》(1640)，是研究德札尔格（Girard Desargues）射影几何工作心得的论文，包括上述定理。这些工作是自希腊阿波罗尼奥斯（Apollonius of Perga）以来圆锥曲缐论的最大进步。1642年他设计并制作了一台能自动进位的加减法计算装置，被称为是世界上第一台数字计算器，为以后的计算机设计提供了基本原理。1654年他开始研究几个方面的数学问题，在无穷小分析上深入探讨了不可分原理，得出求不同曲缐所围面积和重心的一般方法，并以积分学的原理解决了摆缐问题，于1658年完成《论摆缐》。他的论文手稿对莱布尼茨（Gottfried Leibniz）建立微积分学有很大启发。在研究二项式系数性质时，写成《算术三角形》向巴黎科学院提交，后收入他的全集，并于1665年发表。其中给出的二项式系数展开后人称为“帕斯卡三角形”，实际它已在约1100年由中国的贾宪所知。在与费马（Pierre Fermat）的通信中讨论赌金分配问题，对早期概率论的发展颇有影响。他还制作了水银气压计（1646），写了液体平衡、空气的重量和密度等方向的论文（1651－1654）。自1655年隐居修道院，写下《思想录》（1658）等经典著作。

http://baike.baidu.com/view/765708.htm

一种编程语言用来开发软件的

百度百科http://baike.baidu.com/view/1161408.htm

　　编辑本段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 (Object Pascal)　　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），而不是编程工具。刚才我是纯粹从字面意思上来回答这个问题。　　“在turbo pascal中不能使用标准pascal的紧缩字符型数组！turbo pascal建立文件也有自己的语法规则！assign!!! ”　　PASCAL是一门编程语言,而TURBO PASCAL是PASCAL程序的编译系统.　　用pascal编辑的程序能在turbopascal中运行　　Pascal只是一门语言，而Turbo 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。　　Pascal中基本符号以及保留字：　　pascal语言只能使用一下几类基本符号：　　（1）大小写英文字母　　A B C D E F G H I J K L M N O P Q R S T U V W X Y Z　　a b c d e f g h i j k l m n o p q r s t u v w x y z　　（2）数字　　1 2 3 4 5 6 7 8 9 0　　（3）其他符号　　+ - * / = <> <= >= < > ( ) [ ] { } := , . ; : .. "　　注意,pascal语言除了可以使用以上规定的字符外，不得使用其他任何符号。　　补充说明FreePascal（FP）：　　Free Pascal是一个在多种版本Pascal和Delphi下的产物，目前比较成熟的版本是由FreePascal.org发布的1.0.10版本，由于是Pascal上的改版，在FP里加入了很多以前没有的东西，例如：FillChar系列内存块赋值语句，用Power代替了**（乘方），但是**还是可以使用。　　另外FP加强了与内存的互容性，增大对内存的支持，FP里的内存限制是TP和BP里的将近上万倍。　　FP还进一步加强了单元支持、面向对象程序设计的支持、显卡（声卡）的支持、图形高级覆盖的支持、WindowsLinuxOS/2..等众多系统的支持。在FP的较稳定版本中，可以方便的利用Win32编译模式，编译出Windows应用程序，与Delphi的功能相当。同时对动态连接库、控件、数据库、文件、网络、OpenGL的深入支持，使得FP脱颖而出。　　更值得提出的是，FP支持Delphi及C++的部分语言，例如：A+=2这样的C Style语言，在FP里完美支持。　　FP中支持单目、双目操作符，即所有版本的Pascal的符号和“@”等特殊符号。　　FreePascal.org现在正在修订FP 2.0的版本，但使用起来并没有1.0.10那样轻松，稳定性也下降不少。　　编辑本段pascal教材　　第一节 Pascal语言的特点　　信息学奥林匹克竞赛是一项益智性的竞赛活动，核心是考查参赛选手的智力和使用计算机编程解题的能力。信息学奥林匹克竞赛要求参赛选手有如下能力：针对竞赛题目中的要求构建数学模型，构造出有效的算法和选用相应的数据结构，写出高级语言程序，上机调试通过。程序设计是信息学奥林匹克竞赛的基本功，因此，青少年参与竞赛活动的第一步是必须掌握一门高级语言及其程序设计方法。　　以纪念法国数学家而命名的Pascal语言是使用最广泛的计算机高级语言之一，被国际上公认为程序设计教学语言的典范。其主要特点有：严格的结构化形式；丰富完备的数据类型；运行效率高；查错能力强。正因为这些特点，Pascal语言可以被方便地用于描述各种数据结构和算法，编写出高质量的程序。尤其是对于青少年程序设计初学者，Pascal语言有利于顺利入门，有益于从一开始培养良好的程序设计风格和习惯，越来越多的各类学校都把Pascal语言作为程序设计教学的第一语言。IOI（国际奥林匹克信息学竞赛）把Pascal语言规定为二种程序设计语言之一，NOI(全国信息学奥林匹克竞赛)把Pascal语言定为唯一提倡的程序设计语言，NOIp（全国信息学奥林匹克联赛）把Pascal定为最主要的程序设计语言。　　Pascal语言有多种版本，本教材采用的Turbo Pascal 7.0（或Borland Pacsal 7.0） 是目前PC机上使用最多的一种高效Pascal，是迄今为止DOS环境下的最高版本。Turbo Pascal 7.0 所需硬件环境是任意型号的PC机，并且仅需一台1.44M软盘驱动器(当然有其它条件更好)；最小软件系统包括Turbo.exe(集成环境)和Turbo.tpl(标准单元库)两个文件，如果包括Turbo.hlp(求助文件)则更有利于学习。Turbo Pascal 7.0可以工作在DOS操作系统或Windows操作系统环境下。　　第一课 Pascal语言知识　　一、Pascal 语言概述　　PASCAL语言是一种算法语言，它是瑞士苏黎世联邦工业大学的沃思教授于1968年设计完成的，1971年正式发表。PASCAL语言是在ALGOL60的基础上发展而成的。它是一种结构化的程序设计语言。它的功能强、编译程序简单，是70年代影响最大一种算法语言。　　从使用者的角度来看，PASCAL语言有以下几个主要的特点：　　⒈ 结构化　　PASCAL可以方便地书写出结构化程序。这就保证程序的正确性和易读性。在结构化这一点上，比其它算法语言更好一些。　　⒉ 数据类型丰富　　PASCAL提供了整数型、实型型、字符型、布尔型、枚举型、子界型以及由以上类型构成的数组类型、集合类型、记录类型和文件类型。此外，还提供了其它许多语言中所没有的指针类型。丰富的数据结构和上述的结构化性质，使得PASCAL可以被方便地用来描述复杂的算法。　　⒊ 适用性好　　既适用于数值运算，也适用于非数值运算领域。有些语言只适用于数值计算，有些语言则适用于商业数据处理和管理领域。PASCAL的功能较强，能广泛应用于各种领域。　　⒋ 书写较自由　　不象有些算法语言那样对程序的书写格式有严格的规定。PASCAL允许一行写多个语句，一个语句可以分写在多行上，这样就可以使PASCAL程序写得象诗歌格式一样优美，便于阅读。　　由于以上特点，许多学校选PASCAL作为程序设计课程中的一种主要的语言。它能给学生严格而良好的程序设计的基本训练。培养学生结构化程序设计的风格。　　二、Pascal语言程序的基本结构　　任何程序设计语言都有一定的规则。使用PASCAL语言必须遵循其本身所规定的规则来编写程序。尽管不同版本的PASCAL语言所采用的符号的数量、形式不尽相同，但其基本成分一般都符合标准PASCAL的规定。下面我们首先来了解Pascal语言的程序基本结构。　　为了明显起见，先举一个最简单的PASCAL程序例子：　　【例1】　　program li1(input,output); {程序首部}　　const pi=3.1415926; {程序体 说明部分　　var r,l,s:real;　　begin 执行部分　　write(‘input r:");　　readln(r);　　s:=pi*r*r;　　l:=2*pi*r;　　writeln(‘s=",s);　　writeln(‘l=",l);　　readln;　　end. 程序体}　　从这个简单的程序可以看到：　　⒈ 一个PASCAL程序分为两个部分：程序首部和程序体（或称分程序）。　　⒉ 程序首部是程序的开头部分，它包括：　　⑴程序标志。用"program"来标明这是一个PASCAL 程序。PASCAL规定任何一个PASCAL程序的首部都必须以此字开头。在free pascal语言中，首部也可省略。　　⑵程序名称。由程序设计者自己定义，如例中的li1。在写完程序首部之后，应有一个分号。　　⒊ 程序体是程序的主体，在有的书本里也称"分程序"。程序体包括说明部分（也可省略）和执行部分两个部分。　　⑴说明部分用来描述程序中用到的变量、常量、类型、过程与函数等。本程序中第二行是"变量说明"，用来定义变量的名称、类型。　　PASCAL规定，凡程序中用到的所有变量、符号常量、数组、过程与函数、记录、文件等数据都必须"先说明，再使用"。　　⑵执行部分的作用是给出需要计算机执行的操作。　　执行部分以"begin"开始，以"end"结束，其间有若干个语句，语句之间以分号隔开。执行部分之后有一个句点，表示整个程序结束。　　⒋ PASCAL程序的书写方法比较灵活。书写程序应结构清晰、容易阅读理解。在编写程序时希望读者尽量模仿本书中例题程序格式。　　⒌ 在程序中，一对大括号间的文字称为注释。注释的内容由人们根据需要书写，可以用英语或汉语表示。注释可以放在任何空格可以出现的位置。执行程序时计算机对注释不予理睬。　　三、Free Pascal语言系统的使用　　目前，信息学竞赛使用的Pascal语言系统是free Pascal，下面我们就来学习free Pascal的使用。　　1． 系统的启动　　在运行系统目录下的启动程序fp.EXE，即可启动系统。屏幕上出现如图1所示的集成环境。　　2．free Pascal系统集成环境简介　　最顶上一行为主菜单。中间蓝色框内为编辑窗口，在它个编辑窗口内可以进行程序的编辑。最底下一行为提示行，显示出系统中常用命令的快捷键，如打开一个文件的快捷键为F3，将当前编辑窗口中文件存盘的快捷键为F2，获得系统帮助的快捷键为F1，等等。　　3． 新建程序窗口　　按F10进行主菜单，选择FILE菜单，执行其中New命令。就可建立一个新的程序窗口（默认文件名为Noname00.pas或Noname01.pas等）。　　4． 程序的输入、编辑与运行　　在当前程序窗口中，一行一行的输入程序。程序窗口是一个编辑器。所以对程序的编辑与其它编辑器相似，类似记事本程序。　　当程序输入完毕之后，一般要先按Alt+F9（或执行compile菜单中compile命令）对程序进行编译。如果程序有语法错误，则会在程序窗口的下方显示错误信息。若无语法错误，则窗口正中央会出现一个对话框，提示编译成功。接下来，我们可以运行程序了。　　程序的运行可以通过按ALT+R打开RUN菜单中的RUN命令，或直接按快捷键CTRL+F9。则可以在用户窗口中输出运行结果。通常在程序运行结束后系统回到Pascal系统的集成环境，因此要查看运行结果，要按ALT+F5将屏幕切换到用户屏幕。　　5．程序的保存与打开　　当我们想把程序窗口中的程序存入磁盘时，可以通过按F2键(或执行File菜单中的save命令)来保存程序。第一次保存文件时屏幕上会出现一个对话框要求输入文件名(默认扩展名为.pas)。　　当我们要将磁盘上的程序文件中的PASCAL程序装入窗口时，可按F3(或执行File菜单中的Open命令)来装入程序，此时系统也会弹出一个对话框要求输入要打开的文件名，或直接在文件对话框列表中选择所要的文件，然后回到打开文件。　　四、第一个程序　　下面程序在运行时，会提示输入一个数N，然后会在屏幕上打出用“*”号排列成的菱形，菱形的行数是2N-1行，按回车后程序结束回到程序窗口。 Program tu;　　Var n,i,j:integer;　　Begin　　Write("Please enter the n:");readln(n);　　For I:=1 to n do　　Begin　　Write("":(n+1-i));　　For j:=1 to 2*I-1 do　　Write("*");　　Writeln;　　end;　　for i:=n-1 downto 1 do　　begin　　write("":(n+1-i));　　for j:=1 to 2*i-1 do　　write("*");　　writeln;　　end;　　Readln;　　End.　　请输入上面的程序，并练习将其存盘、打开与运行上面程序。

买本书自己看``

高级语言发展过程中，PASCAL是一个重要的里程碑。PASCAL语言是第一个系统地体现了E.W.Dijkstra和C.A.R.Hoare定义的结构化程序设计概念的语言。1971年，瑞士联邦技术学院尼克劳斯·沃尔斯（N.Wirth）教授发明了另一种简单明晰的电脑语言，这就是以电脑先驱帕斯卡的名字命名的PASCAL语言。PASCAL语言语法严谨，层次分明，程序易写，具有很强的可读性，是第一个结构化的编程语言。它一出世就受到广泛欢迎，迅速地从欧洲传到美国。沃尔斯一生还写作了大量有关程序设计、算法和数据结构的著作，因此，他获得了1984年度“图灵奖”。 其主要特点有：严格的结构化形式；丰富完备的数据类型；运行效率高；查错能力强。 Pascal语言还是一种自编译的语言，这就使它的可靠性大大提高了。

分类: 电脑/网络 >> 程序设计 >> 其他编程语言 问题描述: 我要参加信息学奥林匹克大赛可直今我连pascal语言程序是什么都不懂，pascal语言程序到底是啥？是干什么用的，注意！大家注重回答是干什么用的。 解析: 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版本，其版本不断更新，而功能更趋完善。 ycyz/lyx/CHENGXU/NOIP/PASCALjiao%27an

pascal是一门非常严谨的结构化程序设计语言，一般来说计算机软件专业的教学结构化编程标准课程，但属于比较老旧而实用程度较低。C也是一门结构化程序设计语言，相比PASCAL它是更加灵活而且实用。C更加流行，它是程序员操控方便的更加接近接口和设备语言，优点是高效，简洁。现在面向对象编和JAVA,C++,C#之类的面向对象语言，多是和C相似,有了C基础学这些语言会更加轻松自如。至于学C之前要学PASCAL没有科学依据，大学工科专业一般第一门程序语言就是C，不必要有PASCAL作为铺垫。

.选择排序 选择排序的基本思想是：对待排序的记录序列进行n-1遍的处理，第1遍处理是将L[1..n]中最小者与L[1]交换位置，第2遍处理是将L[2..n]中最小者与L[2]交换位置，......，第i遍处理是将L[i..n]中最小者与L[i]交换位置。这样，经过i遍处理之后，前i个记录的位置就已经按从小到大的顺序排列好了。例1:输入序列数据按非减顺序输出. 程序如下: program xzpx;const n=7;var a:array[1..n] of integer; i,j,k,t:integer;begin write("Enter date:"); for i:= 1 to n do read(a[i]); writeln; for i:=1 to n-1 do begin k:=i; for j:=i+1 to n do if a[j]<a[k] then k:=j; if k<>i then begin t:=a[i];a[i]:=a[k];a[k]:=t;end; end; write("output data:"); for i:= 1 to n do write(a[i]:6); writeln; end.2.插入排序插入排序的基本思想:经过i-1遍处理后,L[1..i-1]己排好序。第i遍处理仅将L[i]插入L[1..i-1]的适当位置p，原来p后的元素一一向右移动一个位置,使得L[1..i]又是排好序的序列。例2:输入序列数据按非减顺序输出.程序1:program crpx;const n=7;var a:array[1..n] of integer; i,j,k,t:integer;begin write("Enter date:"); for i:= 1 to n do read(a[i]); writeln; for i:=2 to n do begin k:=a[i];j:=i-1; while (k<a[j]) and (j>0) do begin a[j+1]:=a[j];j:=j-1 end; a[j+1]:=k; end; write("output data:"); for i:= 1 to n do write(a[i]:6); writeln; end.3.冒泡排序冒泡排序又称交换排序其基本思想是:对待排序的记录的关键字进行两两比较,如发现两个记录是反序的,则进行交换,直到无反序的记录为止。例:输入序列数据按非减顺序输出。程序1:program mppx;const n=7;var a:array[1..n] of integer; i,j,k,t:integer;begin write("Enter date:"); for i:= 1 to n do read(a[i]); for i:=1 to n -1 do for j:=n downto i+1 do if a[j-1]<a[j] then begin t:=a[j-1];a[j-1]:=a[j];a[j]:=t end; write("output data:"); for i:= 1 to n do write(a[i]:6); writeln;end.程序2：program mppx;const n=7;var a:array[1..n] of integer; i,j,k,t:integer; bool:boolean;begin write("Enter date:"); for i:= 1 to n do read(a[i]); i:=1;bool:=true; while (i<n) and bool do begin bool:=false; for j:=n downto i+1 do if a[j-1]<a[j] then begin t:=a[j-1];a[j-1]:=a[j];a[j]:=t;bool:=true end; i:=i+1; end; write("output data:"); for i:= 1 to n do write(a[i]:6); writeln;end.程序3：program mppx;const n=7;var a:array[1..n] of integer; i,j,k,t:integer;begin write("Enter date:"); for i:= 1 to n do read(a[i]); writeln; k:=n; while k>0 do begin j:=k-1;k:=0; for i:=1 to j do if a[i]>a[i+1] then begin t:=a[i];a[i]:=a[i+1];a[i+1]:=t;k:=i;end; end; write("output data:"); for i:= 1 to n do write(a[i]:6); writeln; end. 返回4.2快速排序快速排序的思想是:先从数据序列中选一个元素,并将序列中所有比该元素小的元素都放到它的右边或左边,再对左右两边分别用同样的方法处之直到每一个待处理的序列的长度为1, 处理结束.例:输入一组数据小到大排序.程序1:program kspv;const n=7;typearr=array[1..n] of integer;vara:arr;i:integer;procedure quicksort(var b:arr; s,t:integer);var i,j,x,t1:integer; begin i:=s;j:=t;x:=b[i]; repeat while (b[j]>=x) and (j>i) do j:=j-1; if j>i then begin t1:=b[i]; b[i]:=b[j];b[j]:=t1;end; while (b[i]<=x) and (i<j) do i:=i+1; if i<j then begin t1:=b[j];b[j]:=b[i];b[i]:=t1; end until i=j; b[i]:=x; i:=i+1;j:=j-1; if s<j then quicksort(b,s,j); if i<t then quicksort(b,i,t); end;beginwrite("input data:");for i:=1 to n do read(a[i]);writeln;quicksort(a,1,n);write("output data:");for i:=1 to n do write(a[i]:6);writeln;end.程序2:program kspv;const n=7;typearr=array[1..n] of integer;vara:arr;i:integer;procedure quicksort(var b:arr; s,t:integer);var i,j,x:integer; begin i:=s;j:=t;x:=b[i]; repeat while (b[j]>=x) and (j>i) do j:=j-1; if j>i then begin b[i]:=b[j];i:=i+1;end; while (b[i]<=x) and (i<j) do i:=i+1; if i<j then begin b[j]:=b[i];j:=j-1; end until i=j; b[i]:=x; i:=i+1;j:=j-1; if s<j then quicksort(b,s,j); if i<t then quicksort(b,i,t); end;beginwrite("input data:");for i:=1 to n do read(a[i]);writeln;quicksort(a,1,n);write("output data:");for i:=1 to n do write(a[i]:6);writeln;end.返回4.3希尔排序 基本思想：将整个无序序列分割成若干小的子序列分别进行插入排序或冒泡排序。序列分割方法：将相隔某个增量h的元素构成一个子序列。在排序过程中，逐次减小这个增量，最后当h减到1时，进行一次插入排序或冒泡排序，排序就完成。增量序列一般采用：d1=n div 2 ,di=di-1 div 2 ；i=2,3,4.....其中n为待排序序列的长度。程序1:(子序列是插入排序)program xepx;const n=7;typearr=array[1..n] of integer;vara:arr;i,j,t,d:integer;bool:boolean;beginwrite("input data:");for i:=1 to n do read(a[i]);writeln;d:=n;while d>1 do begin d:=d div 2; for j:=d+1 to n do begin t:=a[j];i:=j-d; while (i>0) and (a[i]>t) do begin a[i+d]:=a[i];i:=i-d;end; a[i+d]:=t; end; end; write("output data:");for i:=1 to n do write(a[i]:6);writeln;end.程序2:(子序列是冒泡排序)program xepx;const n=7;typearr=array[1..n] of integer;vara:arr;i,temp,d:integer;bool:boolean;beginwrite("input data:");for i:=1 to n do read(a[i]);writeln;d:=nwhile d>1 do begin d:=d div 2; repeat bool:=true; for i:=1 to n-d do if a[i]>a[i+d] then begin temp:=a[i];a[i]:=a[i+d];a[i+d]:=temp; bool:=false end; until bool; end;write("output data:");for i:=1 to n do write(a[i]:6);writeln;end.返回4.4 堆排序与二叉树排序1.堆排序堆：设有数据元素的集合（R1,R2,R3,...Rn)它们是一棵顺序二叉树的结点且有 Ri<=R2i 和Ri<=R2i+1(或>=)堆的性质：堆的根结点上的元素是堆中的最小元素，且堆的每一条路径上的元素都是有序的。堆排序的思想是：1）建初始堆（将结点[n/2],[ n/2]-1,...3,2,1分别调成堆）2）当未排序完时 输出堆顶元素，删除堆顶元素，将剩余的元素重新建堆。程序如下：program duipx;const n=8;type arr=array[1..n] of integer;var a:arr;i:integer;procedure sift(var a:arr;l,m:integer); var i,j, t:integer; begin i:=l;j:=2*i;t:=a[i]; while j<=m do begin if (j<m) and (a[j]>a[j+1]) then j:=j+1; if t>a[j] then begin a[i]:=a[j];i:=j;j:=2*i; end else exit; a[i]:=t; end;end;begin for i:=1 to n do read(a[i]); for i:=(n div 2) downto 1 do sift(a,i,n); for i:=n downto 2 do begin write(a[1]:4); a[1]:=a[i]; sift(a,1,i-1); end; writeln(a[1]:4);end.2.二叉树排序排序二叉树：每一个参加排列的数据对应二叉树的一个结点，且任一结点如果有左（右）子树，则左（右）子树各结点的数据必须小（大）于该结点的数据。中序遍历排序二叉树即得排序结果。程序如下：program pxtree;const a:array[1..8] of integer=(10,18,3,8,12,2,7,3);type point=^nod; nod=record w:integer; right,left:point ; end; var root,first:point;k:boolean;i:integer; procedure hyt(d:integer;var p:point); begin if p=nil then begin new(p); with p^ do begin w:=d;right:=nil;left:=nil end; if k then begin root:=p; k:=false end; end else with p^ do if d>=w then hyt(d,right) else hyt(d,left); end;procedure hyt1(p:point); begin with p^ do begin if left<>nil then hyt1(left); write(w:4); if right<>nil then hyt1(right); endend;begin first:=nil;k:=true; for i:=1 to 8 do hyt(a[i],first); hyt1(root);writeln;end.返回4.5 归并排序归并就是将多个有序的数列合成一个有序的数列。将两个有序序列合并为一个有序序列叫二路归并(merge).归并排序就是n长度为1的子序列,两两归并最后变为有序的序列。1.二路归并例1:将有序表L1=(1,5,7),L2=(2，3,4,6,8，9,10)合并一个有序表 L.program gb;const m=3;n=7;type arrl1=array[1..m] of integer;arrl2=array[1..n] of integer;arrl=array[1..m+n] of integer;var a:arrl1;b:arrl2;c:arrl;i,j,k,r:integer;beginwrite("Enter l1(sorted):");for i:=1 to m do read(a[i]);write("Enter l2(sorted):");for i:=1 to n do read(b[i]);i:=1;j:=1;k:=0;while (i<=m) and (j<=n) dobegin k:=k+1; if a[i]<=b[j] then begin c[k]:=a[i];i:=i+1; end else begin c[k]:=b[j];j:=j+1;end;end; if i<=m then for r:=i to m do c[m+r]:=a[r];if j<=n then for r:=j to n do c[n+r]:=b[r];writeln("Output data:");for i:=1 to m+n do write(c[i]:5);writeln;end.2.归并排序program gbpx;const maxn=7;type arr=array[1..maxn] of integer;var a,b,c:arr; i:integer;procedure merge(r:arr;l,m,n:integer;var r2:arr);var i,j,k,p:integer;begin i:=l;j:=m+1;k:=l-1; while (i<=m)and (j<=n) do begin k:=k+1; if r[i]<=r[j] then begin r2[k]:=r[i];i:=i+1 end else begin r2[k]:=r[j];j:=j+1 end end; if i<=m then for p:=i to m do begin k:=k+1;r2[k]:=r[p] end; if j<=n then for p:=j to n do begin k:=k+1;r2[k]:=r[p] end;end;procedure mergesort( var r,r1:arr;s,t:integer);var k:integer; c:arr;begin if s=t then r1[s]:=r[s] else begin k:=(s+t) div 2; mergesort(r,c,s,k); mergesort(r,c,k+1,t); merge(c,s,k,t,r1) end;end;begin write("Enter data:"); for i:= 1 to maxn do read(a[i]); mergesort(a,b,1,maxn); for i:=1 to maxn do write(b[i]:9); writeln;end.返回4.6 线形排序以上我们讨论的算法均是基于比较的排序算法，在排序算法中有基于数字本身的算法：计数、桶、基数排序。1.计数排序基本思想是对于序列中的每一元素x,确定序列中小于x的元素的个数。例：n个整数序列且每个值在[1,m],排序之。program jspx;const m=6;n=8;var i,j:integer; a,b:array[1..n] of integer; c:array[1..m] of integer;begin writeln("Enter data:"); for i:=1 to n do read(a[i]); for i:=1 to m do c[i]:=0; for i:=1 to n do c[a[i]]:=c[a[i]]+1; for i:=2 to m do c[i]:=c[i]+c[i-1]; for i:=n downto 1 do begin b[c[a[i]]]:=a[i]; c[a[i]]:=c[a[i]]-1; end; writeln("Sorted data:"); for i:= 1 to n do write(b[i]:6);end.2.桶排序桶排序的思想是若待排序的记录的关键字在一个明显有限范围内(整型)时,可设计有限个有序桶,每个桶装入一个值,顺序输出各桶的值,将得到有序的序列。例：输入n个0到100之间的整数，由小到大排序输出。program tpx;const n=7;var b:array[0..100] of integer; k:0..100; i:integer;begin write("Enter date:(0-100)"); for i:=0 to 100 do b[i]:=0; for i:= 1 to n do begin read(k); b[k]:=b[k]+1; end; writeln("Output data:"); for i:=0 to 100 do while b[i]>0 do begin write(i:6);b[i]:=b[i]-1 end; writeln; end.3.基数排序基本思想是对n个元素依次按k,k-1,...1位上的数字进行桶排序。program jspx;const n=8;type link=^node; node=record data:integer; next:link; end;var i,j,l,m,k:integer; a:array[1..n] of integer; s:string; q,head:array[0..9] of link; p,p1:link;begin writeln("Enter data:"); for i:=1 to n do read(a[i]); for i:=5 downto 1 do begin for j:=0 to 9 do begin new(head[j]); head[j]^.next:=nil; q[j]:=head[j] end; for j:=1 to n do begin str(a[j],s); for k:=1 to 5-length(s) do s:="0"+ s; m:=ord(s[i])-48; new(p); p^.data:=a[j]; p^.next:=nil; q[m]^.next:=p; q[m]:=p; end; l:=0; for j:=0 to 9 do begin p:=head[j]; while p^.next<>nil do begin l:=l+1;p1:=p;p:=p^.next;dispose(p1);a[l]:=p^.data; end; end; end; writeln("Sorted data:"); for i:= 1 to n do write(a[i]:6);end.4.7各种排序算法的比较1.稳定性比较 插入排序、冒泡排序、二叉树排序、二路归并排序及其他线形排序是稳定的 选择排序、希尔排序、快速排序、堆排序是不稳定的2.时间复杂性比较 插入排序、冒泡排序、选择排序的时间复杂性为O(n2) 其它非线形排序的时间复杂性为O(nlog2n) 线形排序的时间复杂性为O(n);3.辅助空间的比较 线形排序、二路归并排序的辅助空间为O(n),其它排序的辅助空间为O(1);4.其它比较插入、冒泡排序的速度较慢，但参加排序的序列局部或整体有序时，这种排序能达到较快的速度。反而在这种情况下，快速排序反而慢了。当n较小时，对稳定性不作要求时宜用选择排序，对稳定性有要求时宜用插入或冒泡排序。若待排序的记录的关键字在一个明显有限范围内时,且空间允许是用桶排序。当n较大时，关键字元素比较随机，对稳定性没要求宜用快速排序。当n较大时，关键字元素可能出现本身是有序的，对稳定性有要求时，空间允许的情况下。宜用归并排序。当n较大时，关键字元素可能出现本身是有序的，对稳定性没有要求时宜用堆排序求素数:程序如下program lx;label 10;var a;array[1..200]of integer; x, y , n:integer;begin for x:=2 to 200 do begin for y:=2 to x-1 do if x mod y =0 then goto 10; n:=n+1; a[n]:=x; 10: end;end.

只知道TP是turbo pascal fp 是free pascal cp是什么我不知道~ 现在都用FP~

恩

编译器有：Free Pascal 2.4.4Delphi 7.0LazarusGUIDE比较好用的文本编辑器有：（不能编译，只能打代码）GeditEmacs（大牛一般用Emacs...）