首页 PASCAL教学 PASCAL教程 PASCAL练习题 基础知识 常用算法 阶段测试 初赛试题 复赛题库 FP错误代码 留言板
第一章 简单程序
第一节 程序结构和基本语句
第二节 顺序结构程序与基本数据类型
第二章 分支程序
第一节 条件语句与复合语句
第二节 情况语句与算术标准函数
第三章 循环程序
第一节 程序结构和基本语句
第二节 Repeat 循环
第三节 While 循环
第四章 函数与过程
第一节 函数
第二节 自定义过程
第五章 自定义数据类型
第一节 数组与子界类型
第二节 二维数组与枚举类型
第三节 集合类型
第四节 记录类型和文件类型
第五节 指针类型与动态数据结构
第六章 程序设计与基本算法
第一节 递推与递归算法
第二节 回溯算法
第七章 数据结构及其应用
第一节 线性表
第二节 队列
第三节 栈
第四节 数组
第八章 搜索
第一节 深度优先搜索
第二节 广度优先搜索
第九章 其他常用知识和算法
第一节 图论及其基本算法
第二节 动态规划
 
   

第二章 分支程序

 

在程序设计中,许多问题是在一定条件下才选择某种处理方式的,这就需要用条件判断语句或情况选择语句进行处理。程序执行中将出现选择(分支),根据条件只选择执行部分语句,不一定都是按原顺序从头到尾地执行所有语句,这样的程序称为分支程序。

第一节  条件语句与复合语句

[2.1] 某服装公司为了推销产品,采取这样的批发销售方案:凡订购超过100 套的,每套定价为50元,否则每套价格为80元。编程由键盘输入订购套数,输出应付款的金额数。

:X为订购套数,Y为付款金额,则:

   输入X;

   判断 X 值;

   根据判断结果选择符合条件的那种方法计算Y值;

   输出计算结果。

Pascal程序:

Program Exam21

Var xy: integer

Begin

  Write('X=') Readln(x)                    {  输入X}

  if x >100 then y:=50*X  else  y:80*X      {条件判断与选择 }

  Writeln('y='y)

  Readln

End.

程序中的 if 语句常称为条件语句,它的一般格式为:

    (1) if 条件 then 语句;

    (2) if 条件 then 语句1  else  语句2

IF 语句的功能是按条件在两种可能中选择其中一种。习惯上把if 后面的表达式称为条件,then 后面的语句称为真项,else 后面的语句称为假项。若条件成立(为真)就执行真项,然后执行if语句的后继语句;若条件不成立(为假)就跳过真项而执行假项,然后执行后继语句。而第一种格式只有真项,没有假项,当条件不成立(为假)就什么也不需做,直接往下去执行后继语句。

 

[2.2] 读入三个不同的数,编程按由小到大的顺序排列打印出来。

:设读入的三个数为abc,为了把较小的数排在前面,可作如下处理:

   如果ab就交换ab的值,将较大的值换至后面;

   如果ac就交换ac的值,将较大的值换至后面;

   如果bc就交换bc的值,将较大的值换至后面;

   输出处理后的a,b,c

    Pascal程序:

    Progranm  Exam22

    Var abct: Real

    Begin

        Write('Input a bc=')

        Readln(abc)

        if ab then

begin                    {复合语句}

             t:=a a:=b b:=t       {交换ab}

           end

        if ac then

begin                    {复合语句}

             t:=a a:=c c:=t        {交换ac}

           end

        if bc then

begin                   {复合语句}

              t:=b b:=c c:=t         {交换bc}

            end

        Writeln('abc:'a:6 b:6 c:6)

        Readln

    End.

if 语句规定它的真项或假项位置上只能是一个基本语句,如果需要写一组语句,就应当使用复合语句。本程序中有三处用到复合语句。每个复合语句的范围是从Begin开始到与它相对应的End为止。复合语句的地位和一个基本语句相同;其一般格式为:

        Begin 

          语句系列 

        End

 

习题2. 1

1.假设邮局规定寄邮件时若每件重量在1公斤以内(1公斤),按每公斤1.5元计算邮费,如果超过1公斤时,其超出部分每公斤加收0.8元。请编程序计算邮件收费。

2.输入三个正整数,若能用这三个数作为边长组成三角形,就计算并输出该三角形的面积,否则输出Can't(组成三角形的条件为:任意两边之和大于第三边)

3.输入一个三位数的整数,将数字位置重新排列,组成一个尽可大的三位数。例如:输入213,重新排列可得到尽可能大的三位数是321

 

© 版权所有 桐乡市高级中学计算机组 王建献 2005-
制作与维护:
桐高计算机组 王建献 邮箱:omnislash2000@163.com
建议使用:800*600分辨率,IE5.0以上版本浏览器