Pascal编程求急

2024-05-14

1. Pascal编程求急

1 简单判断
var
  score:longint;
begin
  readln(score); //读入成绩
 if score>85 then writeln('very good'); //判断是否高于85分
 else
begin
  if score<60 then writeln('bad') //判断是否地狱60分
                    else writeln('good');
end;
end.

2 由题可知，当前月具有生育能力的兔子数量等于上上个月的兔子总数，则当前月兔子总数为上月兔子数（原有）+上上月兔子数（新生）
 var
    a,b,c,i:longint;
begin
  a:=1; //上上个月 
 b:=2;   //上个月
 for i:=3 to 12 do
begin
  c:=a+b; //求得本月兔子数
 a:=b; //上个月变成了上上个月
b:=c; //本月变成了山个月
end; //1月和 2月已知，循环十次后本月即为十二月
writeln(c); //输出本月兔子数
end.

Pascal编程求急

2. 有关pascal 编程的几个问题

1.语句标号是用于goto语句的,需在程序的定义部分用"label"定义,如：
label  10,20;
这个定义就表示程序中可用10和20分别表示2个语句,用"goto 10;"或"goto 20;"可分别跳到这2个语句直接执行(注意:goto语句只能从一个语句结构中转出来,而不允许从外部转进去)。
情况标号是case语句后可供参照执行的常数表,如:
case a of
  1:write(1);
  2:write(2);
end;
这里的"1"和"2"就是情况标号。
因此，总的来说，语句标号和情况标号的区别就是:语句标号需在程序的定义部分用"lable"定义,而情况标号则不用。
2.对于重复次数已知的循环,用for循环好;而repeat和while循环擅长解决循环次数未知的循环。
3.String exceeds line表示你的一个字符串跨了行,必须只能在一行内写完。

3. pascal编程问题

1、看着象集合，实际不是，倒是有点像素数的筛法。先建立一个结构：
TMan = record
  Rel: Byte;
  Ref: Byte;
end;
2、Man.Rel表示成员的人际关系，初始时Man[i].Rel = i；Man.Ref是引用计数，最后才用到。
先从1开始，在关系中遍历所有与1有关系的成员，然后把这个成员的Man.Rel置为1。例如{1,2}，遍历后2的Man[2].Rel就不再是2，而是变成1了，然后这个Rel会传染下去。假如有{2,4}，那么2会继续把1的基因传给4，使Man[4].Rel=Man[2].Rel=Man[1].Rel=1；继续，直至n结束。
3、程序如下：
program Project1;
type
  TMan = record
    Rel: Byte;
    Ref: Byte;
  end;
var
  Man: array[1..100] of TMan;
  Rel: array[1..200, 0..1] of Byte;
  n, k, i, j: Integer;
begin
  Readln(n, k);
  for i := 1 to k do
    Readln(Rel[i, 0], Rel[i, 1]);
  for i := 1 to n do
  begin
    Man[i].Rel := i;
    Man[i].Ref := 0;
  end;
  for i := 1 to n do
    for j := 1 to k do
    begin
      if Rel[j, 0] = i then
        Man[Rel[j, 1]].Rel := Man[i].Rel
      else if Rel[j, 1] = i then
        Man[Rel[j, 0]].Rel := Man[i].Rel;
    end;
  for i := 1 to n do
    Inc(Man[Man[i].Rel].Ref);
  j := 0;
  k := 0;
  for i := 1 to n do
  begin
    if Man[i].Ref > 0 then
      Inc(j);
    if Man[i].Ref > k then
      k := Man[i].Ref;
  end;
  Writeln('----', #13#10, j, ' ', k);
  Readln;
end.

pascal编程问题

4. pascal编程问题？

LZ应该是初学pascal，给楼主一些建议：
      对于初学者而言，最宝贵的就是这些小题目能够独立思考、解决，然后感受自己独立解决问题的乐趣，因此大大增加学习的信心，这对以后的学习的推动力相当重要

      这种同类题目一般是给你讲解一题，其他题目自己独立解决，LZ一定注意要学习解决问题的方法而不是学习这个问题的答案。
      不瞒楼主，我初学时做过第（1）、（4）两题，当时也是独立解决，想了很长时间才做出
下面我开始讲解吧
1.这类题目一般要经历以下过程：找出变化规律、总结规律
我们先列出小的例子
n=2               
****   ****
 **** ****

n=3
****     ****
 ****   ****
  **** ****
规律其实很明显，n代表的是输出的行数，然后就是不同的行的****之间的空格不同
然后我们进一步去总结归纳：总体来说每一行是由四个部分构成   空格****空格****
我们只需要把握两个空格的数量与 第i行以及n之间 的关系
很明显，第一部分空格数量是0，1,2,3,4……
第二部分空格稍有难度，但是最简单的第n行入手发现：第n行是1个，第n-1行是3个，第n-2行是5个…………
由此我们归纳出，第i行的个数为 2*（n-i）+1
至此程序已经不难写出：
for i:=1 to n do
      begin
      for j:=1 to i-1 do write(' ');      //输出第一部分空格，是i-1个空格
   write('****');
     for j:=1 to 2*(n-i)+1 do write(' ');    //输出第二部分空格，是 2*(n-i)+1个空格
   write('****'); 
      end; 


后面三题，LZ自己解决吧，做出来的话对LZ是非常有好处的，如果实在不会再来问我吧

5. pascal程序

一、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目录即可。

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

pascal程序

6. pascal程序

一、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程序例子：【例１】

　　从这个简单的程序可以看到：

　　⒈一个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目录即可。

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

7. pascal程序设计

"每只猴子拥有的香蕉数量也是1到n" + "编号是i的猴子决定要吃i只香蕉" 
那即是, 每个猴子都只是吃完自己的蕉
编号 1, 得 1 只蕉, 吃 1 只蕉
编号 n, 得 n 只蕉, 吃 n 只蕉
所以
编号 i, 得 i 只蕉, 吃 i 只蕉

"如果它拥有的香蕉足够，那就最好；如果不够，先吃完自己的，然后它就要问饲养员要香蕉。总之要吃i只香蕉。" -- 这是一定可以的

"如果有某一只猴子吃完了自己的香蕉，而且正好够（不用问饲养员要），那么它会变得比较郁闷，所以我们不允许任何一只猴子出现这种情况。" -- 这个是想怎样 ? 到底是要吃 i 只蕉 ? 还是吃完 i 只, 但看到别的还在吃就会不满 ?

"在两个方案" -- 那来的两个方案 ?

pascal程序设计

8. 什么是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
最新文章
热门文章
推荐阅读