pascal程序

pascal程序~

输出a与b的值
输出字符串 a+b
输出字符串 a'+'b
有错，编译不通过

program t1;
var
s:qword;
num,n,ans:longint;
begin
assign(input,'t1.in');
reset(input);
assign(output,'t1.out');
rewrite(output);
readln(n);
num:=1;s:=0;
while s<n do
begin
inc(s,num);
ans:=num;
inc(num,2);
end;
write(ans);
close(input);
close(output);
end.

program t2;
var
a:array [-1..1000] of longint;
i,j,n,m:longint;
begin
assign(input,'t2.in');
reset(input);
assign(output,'t2.out');
rewrite(output);
read(n,m);
for i:=1 to n do a[i]:=i;i:=0;a[0]:=n;
while n0 do
begin
write(a[(i+m) mod n],' ');
i:=(i+m) mod n-1;dec(n);
for j:=i+1 to n do a[j]:=a[j+1];
end;
close(input);
close(output);
end.

program t3;
var
a,b:array [1..226] of integer;
st:string;
i,code,k,n:longint;
procedure sort(left,right:longint);
var
l,r,mid,x:longint;
begin
l:=left;r:=right;mid:=b[(l+r) div 2];
repeat
while b[l]<mid do inc(l);
while b[r]>mid do dec(r);
if l<=r then
begin
x:=b[l];b[l]:=b[r];b[r]:=x;
inc(l);dec(r);
end;
until l>r;
if l<right then sort(l,right);
if r>left then sort(left,r);
end;
function max(x:longint):integer;
var
i,k:longint;
begin
max:=0;
for i:=1 to x do
if (a[x+1]>a[i])and(a[i]>max) then begin max:=a[i];k:=i; end;
if max=0 then max:=a[x+1]
else b[k]:=a[x+1];
end;
begin
assign(input,'t3.in');
reset(input);
assign(output,'t3.out');
rewrite(output);
readln(st);
n:=length(st);
for i:=1 to n do val(st[n-i+1],a[i],code);
for i:=1 to n do
begin
k:=i-1;
b[i]:=max(k);
if b[i]a[i] then break;
end;
if (k+1n)and(a[n]b[n]) then sort(1,k);
inc(k);
for i:=n downto 1 do
if i>k then write(a[i]) else write(b[i]);
close(input);
close(output);
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命令)来装入程序，此时系统也会弹出一个对话框要求输入要打开的文件名，或直接在文件对话框列表中选择所要的文件，然后回到打开文件。
五、第一个程序

下面程序在运行时，会提示输入一个圆的半径，然后会在屏幕上画一个圆。按回车后程序结束回到程序窗口。
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目录即可。

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

---

平阴县13553923814： pascal程序是什么?？
莫珠复方： Pascal是一种计算机通用的高级程序设计语言.它由瑞士Niklaus Wirth教授于六十年代末设计并创立. 以法国数学家命名的Pascal语言现已成为使用最广泛的基于DOS的语言之一,其主要特点有:严格的结构化形式;丰富完备的数据类型;运行...

平阴县13553923814： Pascal语言程序设计是什么啊! - ？
莫珠复方： 的确,这种语言非常棒,易学,而且功能非常强大,pascal语言的开发平台(IDE)代表是borland公司的delphi,从delphi 1.0开始,到目前最新的delphi 2006,或能越来越强,有这样一句话:真正的程序员用C,聪明的程序员用delphi.你是哪一类呢!?

平阴县13553923814： pascal程序怎么写?？
莫珠复方： pascal语言是系统的,你要从头学习了才会啊 ⒈一个PASCAL程序分为两个部分:程序首部和程序体(或称分程序). ⒉程序首部是程序的开头部分,它包括: ⑴程序标志.用“program”来标识“这是一个PASCAL 程序”.PASCAL规定任...

平阴县13553923814： pascal程序 - ？
莫珠复方： 一、Pascal 语言概述 PASCAL语言也是一种算法语言,它是瑞士苏黎世联邦工业大学的N.沃思(Niklaus Wirth)教授于1968年设计完成的,1971年正式发表.1975年,对PASCAL语言进行了修改,作为＂标准PASCAL语言＂. PASCAL语言...

平阴县13553923814： pascal 数组程序？
莫珠复方： var a,b:array[1..10,1..10]of integer; i,j,m:integer; begin readln(m); for i:=1 to m do for j:=1 to m do read(a[i,j]); readln; for i:=1 to m do for j:=1 to m do b[j,i]:=a[i,j]; for i:=1 to m do begin for j:=1 to m do write(b[i,j]:4); writeln; end; readln; end. 次数不会就是m(m-1)/2吧...不是这么简单吧..

平阴县13553923814： pascal语言 编写一个程序 - ？
莫珠复方： 1.思路:用一个字符串数组储存输入的数据,并分别输出.程序:Var a:array[1..3]of string; i:integer; Begin For i:=1 to 3 do Readln(a[i]); For i:=1 to 3 do Write(a[i][i]); End.2.思路:读入数据,存入字符串变量a中,校验a的值是否符合要求,然后再...

平阴县13553923814： Pascal语言是什么 - ？
莫珠复方： Pascal是一种计算机通用的高级程序设计语言.Pascal的取名是为了纪念十七世纪法国著名哲学家和数学家Blaise Pascal.它由瑞士Niklaus Wirth教授于六十年代末设计并创立.Pascal语言语法严谨,层次分明,程序易写,具有很强的可读性,是第一个结构化的编程语言.

平阴县13553923814： Pascal字符串程序？
莫珠复方： Var p,x:integer;s,s1:string; Beginreadln(s);readln(s1);while pos(s1,s)>0 do Begindelete(s,pos(s1,s),length(s1));inc(x);End;writeln(s,' x:=',x); End.

平阴县13553923814： 急!!!求Pascal语言的常用基础语句.编程？
莫珠复方： if语句:if 条件 then 语句. for语句:for 变量:=起始值 to 终值 do 语句. while语句:while 条件 do 语句. repeat语句:repeat语句; end; 输入语句:read,readln 输出语句:write,writeln

平阴县13553923814： pascal 运行程序 - ？
莫珠复方： 这个程序需要调用dos库.uses dos; begin exec('c:\1.exe',''); end.过程exec(str1,str2)用来运行一个程序.其中参数str1为字符串类型,表示要运行的程序.参数str2为字符串类型,表示运行参数.