free pascal

1、对Pascal的基本认识

=*= .exe文件是二进制代码的可执行程序

=*= .Pas文件是人们能读董的Pascal源程序。我们通过Pascal源程序来控制计算机的运行。 =*= 我们用Pascal这个程序来处理 .Pas文件， Pascal会帮我们运行.Pas文件 2、试一试circle画圆程序。 （将k盘的circle.pas拷贝到C:\\FPC\\2.4.0\\bin\\i386-win32\\ A、双击桌面快捷方式Free Pascal IDE

B、 选择菜单[File]－[Open] - circle.pas] 现在，在free pascal的工作区里可以看到circle.pas源程序。 （快捷键F3）

C、选择菜单[Run]，看到红色的圆 （快捷键ctrl+F9） D、 按回车，回到Pascal编辑界面。

E、修改颜色：找到 Setcolor(red);，将red 改成 green F、 选择菜单[Run]，看到绿色的圆 G、 选择菜单[Save]保存刚才的修改 H、选择[File]－[Exit]退出 3、编写简单的程序

例. 1计算半径为R的圆面积S

program Area; {程序首部——Ar

市赛考前模拟考试

第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和

freemodbus之协议模块

2007-12-27 10:43:32 作者： 来源：freemodbus之Modbus协议配置 浏览次数：844 文字大

小：【大】【中】【小】

简介：Detailed Description详细描述 #include \This module defines the interface for the application. It contains the basic functions and types required to use the Modbus protocol stack. A ty ...

Detailed Description详细描述

#include \

This module defines the interface for the application. It contains the basic functions and types required to use the Modbus protocol stack. A typical application will want to call eMBInit() first. If the device

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. FreeMODUS简介

FreeMODBUS是一个针对嵌入式应用的一个免费（自由）的通用MODBUS协议的实现（移植）。

官方网站http://www.freemodbus.org/index.php?lang=cn

源码下载地址http://sourceforge.net/projects/freemodbus.berlios/?source=directory

Modbus是一个工业制造环境中应用的一个通用协议。一个Modbus通信协议栈包括两层：Modbus应用层协议，该层定义了数据模式和功能；另外一层是网络层。在当前版本中，FreeMODBUS 提供了一个针对Modbus 应用层协议V1.1以及支持在Modbus over serial line speifications 1.0 协议中定义的RTU/ASCII 传输模式。自从0.7版本以后，FreeModbus也支持在 Modbus Messaging on TCP/IP Implementation Guide V1.0a中定义的Modbus TCP协议。FreeModbus是遵循BSD许可证，这意味着用户可以将FreeModbus应用于商业环境中。目前支持的Modbus功

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

freemodbus之协议模块

2007-12-27 10:43:32 作者： 来源：freemodbus之Modbus协议配置 浏览次数：844 文字大

小：【大】【中】【小】

简介：Detailed Description详细描述 #include \This module defines the interface for the application. It contains the basic functions and types required to use the Modbus protocol stack. A ty ...

Detailed Description详细描述

#include \

This module defines the interface for the application. It contains the basic functions and types required to use the Modbus protocol stack. A typical application will want to call eMBInit() first. If the device

史语所集刊总目 采自台湾史语所主页

--------------------------------------------------------------------------------

第1本第1分（民国17年）

60101 发刊辞 蔡元培 60102 历史语言研究所工作之旨趣 傅斯年 60103 跋唐写本切韵残卷 董作宾 60104 释「朱」 商承祚 60105 建文逊国传说的演变 胡 适 60106 殷○亡○说

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