pascal137

市赛考前模拟考试

第1题 扫雷 （Minesweeper）

【问题描述】

扫雷游戏是一种益智游戏。游戏目标是找出n*m矩阵内的所有地雷。在本题中，你需要为每个单元格统计出它周围的地雷数。每个单元格最多和8个单元格相邻，如下表中，S位置的相邻单元格分别是1至8。下图矩阵有两个地雷，用“*”表示，小写k表示安全格，计算结果如矩阵的右矩阵。

*kkk *100 kkkk 2210 8 1 2 k*kk 1*10 7 S 3 kkkk 1110

6 5 4 【输入格式】

输入文件minesweeper.in中，第一行有n，m（0<=n，m<=100）,分别表示这个矩阵的行数与列数。接下来的n行每行包含m个字符,其中小写“k”表示安全，“*”表示地雷。

【输出格式】

输出文件minesweeper.out中，包含一个n*m矩阵。用数字表示该位置字符“k”周边的地雷数量，“*”还是表示地雷。

【样例输入】 4 4 *kkk kkkk k*kk kkkk

【样例输出】 *100 2210 1*10 1110

第2题 数根 （digit）

【问题描述】

正整数的数根指的是该整数各位数字的和。如果结尾是一位数，那么这个数就是数根。如果结果有两个或两个以的数字，那么就只需将结果的各位数字再相加直到只是一位数字。

例如正整数24。2和

DOS 错误代码： 1 无效DoS功能号 2 文件末找到 3 路径未找到 4 打开文件过多 5 禁止文件存取 6 无效文件句柄 12 无效文件存取代码 15 无效驱动器号 16 不能删除当前日录 17 不能跨驱动器改文件名 I/O错误： 100 磁盘读错误 101 磁盘写错误 102 文件变量末赋值 103 文件未打开

104 文件未用输入方式打开 105 文件末用输出方式打开 106 无效数字格式 严重错误： 150 磁盘写保护 151 未知单元 152 驱动器未准备好 153 未知命令 154 数据CRC校验错 155 驱动器请求的结构长度错 156 磁盘定位错 157 未知媒介类型 158 扇区末找到 159 打印机缺纸 160 设备写失败 161 设备读失败 162 硬件故障 致命错误： 200

目录

第一课 初识Pascal语言 第二课 赋值语句、输出语句

第三课 带格式的输出语句及输入语句 第四课 简单的分支结构程序设计 第五课 if嵌套与case语句 第六课 for循环语句

第七课 WHILE循环与REPEAT 第八课 一维数组 第九课 多维数组

第十课 字符与字符串处理

第十一课 枚举、子界、集合及记录类型 第十二课 过程与函数 第十三章 动态数据类型 第十四课 文件

第一课 初识Pascal语言

信息学奥林匹克竞赛是一项益智性的竞赛活动，核心是考查选手的智力和使用计算机解题的能力。选手首先应针对竞赛中题目的要求构建数学模型，进而构造出计算机可以接受的算法，之后要写出高级语言程序，上机调试通过。程序设计是信息学奥林匹克竞赛的基本功，在青少年朋友参与竞赛活动的第一步必须掌握一门高级语言及其程序设计方法。 一、Pascal 语言概述

PASCAL语言也是一种算法语言，它是瑞士苏黎世联邦工业大学的N．沃思(Niklaus Wirth)教授于1968年设计完成的，1971年正式发表。1975年，对PASCAL语言进行了修改，作为\标准PASCAL语言\。 PASCAL语言是在ALG

1. 拐弯数 guai.pas

【题目描述】

自然数按从小到大的顺序排成螺旋形。在“2”处拐第一个弯，在“3”处拐第二个弯??问拐第二十个弯处是哪个数？

问2:拐第M个弯处是哪个数？其中M<=9999999;

【输入格式】

一个m 【输出格式】 一个数

2.贪睡虫（难度系数：容易）

sleep.pas/cpp

【题目描述】

你是个贪睡虫，有一天被老师逮个正着，这个老师很有意思，提出一个问题：“给定入睡时刻和起床时刻，计算一共睡了多长时间”，如果回答正确就可以免于处罚。入睡时刻和起床时刻都采用24小时制表示法(见备注)，而且知道睡觉时间最少为1秒，最多为24小时。

【输入格式】

输入第一行描述入睡时刻，第二行描述起床时刻，两个时刻都是采用“HH:MM:SS”，其中“HH”表示时，范围为0到23，“MM”表示分，范围为0到59，“SS”描述秒，范围为0到59。注意即使时分秒只有一位数也要通过加0补齐两位。

【输出格式】

输出一共睡了多长时间。格式同输入一样。

【输入输出样例1】 sleep.in sleep.out 20:00:00 08:00:00 04:00:00

【输入输出样例2】 sleep.in sleep.out 12:34:56 02:01:26

PASCAL基础知识

第一节 数据类型

1. 常量：

整型常量 Maxint表示计算机系统所允许的最大整数，-Maxint-1表示最小整数

实型常量：实型常量包括正实数，负实数，零。表示方法有两种：十进制表示法和科学 计数法。

科学计数法：有位数，底数和指数构成。 字符常量：单个引号括起来 布尔常量：

符号常量：符号常量必须先定义后使用 CONST

2. 变量：自定义标识符必须以字母（包括下划线）开头，后面的字符可以是字母或数字。 3. 算术表达式：常用的6个算术运算符：+，-，*，/（实数除），DIV(整除)，mod(求余)。

/（实数除）得到的结果为实数4/2=2.0而不等于2。

DIV（整数除）要求参与运算的两个数都是整型，结果也为整形。10 DIV 3=3,5 DIV 10=0,DIV运算只取商的整数部分。

mod（求余）也只能用于整数运算，结果也为整形 4. pascal标准函数：

odd() 判断变量是否为奇数 Abs() 绝对值 Sqr() 求平方 Sqrt() 求平方根

Chr(数值表达式) 返回以数值表达式值为编码的字符。数值表达式的取值范围0-255。 ord() 返回字符的ASCII码，结果为整形。在字符范围内和ch

Turbo Pascal(二) ◆循环结构程序设计

循环结构撕程序中的另一种基本结构，它在许多问题中是很有用的。生活中许多复杂的问题中，常常要做大量同类的处理。如：期末考试后要统计学生的总成绩，要用同样的方法计算每一位同学的总分。

在pascal显示循环程序设计的主要语句有for语句、while语句和repeat语句。 我们先来看下面的问题：

例：统计下面成绩表中每一位同学的总分。 学号 1001 1002 1003 1004 语文 80 85 92 87 数学 95 93 89 91 英语 97 96 98 95 总分 使用顺序结构程序如下： program cj (input,output); var

a,b,c,z:integer; begin

readln(a,b,c); z:=a+b+c;

writeln('1001',z); readln(a,b,c); z:=a+b+c;

writeln('1002',z); readln(a,b,c); z:=a+b+c;

writeln('1003',z); readln(a,b,c);

z:=a+b+c;

公政治[2000]137号

一、报名和招生条件
（一）报名
符合下列条件的中国公民，可以报考公安普通高等学校：
1、拥护四项基本原则，热爱祖国，热爱人民，遵纪守法，勤奋学习，志愿献身公安事业；
2、高中毕业；
3、身体健康，符合从事相关公安工作所要求的条件；
4、未婚，年龄不超过22周岁（外语专业不超过20周岁）；
（二）招生条件
1、政治条件。凡报考公安普通高等学校的考生，除按《2000年普通高等学校招生工作规定》第5条、第6
条规定的政治思想品德考核标准进行考核外，还必须经过公安机关的政治审查。强调考生本人思想进步、品德优良、作风正派，有较强的组织纪律性和法制观念。

有下列情形之一的，属政审不合格：
有反对四项基本原则言行的；
有流氓、偷窃等不良行为，道德品质不好的；
有犯罪嫌疑尚未查清的；
直系血亲或对本人有较大影响的旁系血亲在境外、国外从事危害我国国家安全活动，本人与其划不清界限的；
直系血亲中或对本人有较大影响的旁系血亲中有被判处死刑或者正在服刑的；
其他原因不宜做人民警察的。
2、身体条件。报考公安普通高校的考生除执行普通高等学校招生身体健康状况标准外，考生还应符合下列条件：
男性考生身高一般不低于1.70米，体重不低于50公斤；女性考生身高一般不低于1.60米，体重

一、数论算法

1．求两数的最大公约数

function gcd(a,b:integer):integer; begin

if b=0 then gcd:=a

else gcd:=gcd (b,a mod b); end ;

2．求两数的最小公倍数

function lcm(a,b:integer):integer; begin

if a

while lcm mod b>0 do inc(lcm,a); end;

3．素数的求法

A.小范围内判断一个数是否为质数： function prime (n: integer): Boolean; var I: integer; begin

for I:=2 to trunc(sqrt(n)) do if n mod I=0 then begin prime:=false; exit; end;

prime:=true; end;

B.判断longint范围内的数是否为素数（包含求50000以内的素数表）： procedure getprime; var

i,j:longint;

p:array[1..50000] of