pascal程序编辑

program asc2

var    a,b,c,d,e,f,g:integer

begin

writeln('please key a num')

readln(a)

b:=a mod 10

c:=(a div 10) mod 10

d:=(a div 100) mod 10

e:=a div 1000

f:=b+c+d+e

writeln('one is=',f,'   ','another is=',b,c,d,e)

readln

end.

//这是拿你的程序更改的 下面是运行结果。。希望采纳

一、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命令)来装入程序，此时系统也会d出一个对话框要求输入要打开的文件名，或直接在文件对话框列表中选择所要的文件，然后回到打开文件。

五、第一个程序

下面程序在运行时，会提示输入一个圆的半径，然后会在屏幕上画一个圆。按回车后程序结束回到程序窗口。

Program ex1

Uses graph

Var Gm,Gd,R :integer

Begin

Gd:=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目录即可。

请输入上面的程序，并练习将其存盘、打开与运行上面程序。

program xy

var

a,b,c:integer

y:array[1..3]of integer

i,j,k,t:integer

begin

a:=random(100){随即取3个数}

b:=random(100)

c:=random(100)

y[1]:=a mod 10{取3个数的个位数}

y[2]:=b mod 10

y[3]:=c mod 10

for i:=1 to 2 do{将3个数由小到大排列}

for j:=i+1 to 3 do

if y[i]>y[j] then begin k:=y[i]y[i]:=y[j]y[j]:=kend

t:=y[1]+y[2]*10+y[3]*100

writeln(t)

readln

end.

---