pascal视频教程,哪位朋友有pascal的视频教程！十分感谢！

http://51pg.go1.icpcn.com/
程序学习资源网，大量编程视频教程供免费下载。适于自学者及初学程序的朋友学习之用，下载视频请使用迅雷软件，观看视频教程要用科健流媒体播放器。

下面是C语言康辉的视频教程下载地址：
http://218.22.21.254:8001/计算机专业/吉林大学CSF计算机课件/吉林大学C语言/第01讲.csf
中间自己加
http://218.22.21.254:8001/计算机专业/吉林大学CSF计算机课件/吉林大学C语言/第51讲.csf

这是VB的（石油大学）
http://211.87.176.22/csmedia/073/01.csf
中间自己加
http://211.87.176.22/csmedia/073/30.csf



http://www.xuexicool.com
http://yue.51yeah.net/archives/?article-25.html

如果你现在没电脑基础的话还是先不要想什么电脑黑客之类的了，一般没基础的人所说的学软件还学不到这上面去。像黑客（除菜鸟类黑客）和软件开发之类的都至少要会篇程，而且还要高手（有些简单的编程在一般的电脑运用中也会用到）。总之一两句话很难说清楚，以后你对电脑了解多了就会慢慢明白的。
先说下现在你需要学的软件。（从没一点基础开始）。1.首先当然要学打字和Windows系统管理，还有上网（QQ，电子邮件，资源下载，网页查找搜索...的网络应用）。2.再来就是学应用软件，这里就设级到你的兴趣和走向了。当然一般还是要学基本办工软件。如果你喜欢平面设计就学平面设计的软件，喜欢动画就学做动画的软件，如果工作需要的话学CAD之类的工作制图的软件。当然还有很多类的。至于别人问你你只要回答要学那一类的就行了，他们教的一般都是常用的软件。3.再来就是学电脑硬件方面的知识了，这样可以帮助你更加了解电脑，以后自己买电脑和电脑维护和维修一般的问题自己就能解决了。4.如果学了上面这些后你还想往你自己说的那种电脑高手方面走的话就去学编程吧，当你学到这程度后你自己也就明白该学什么了，所以就不细说了。
唉，打了这么多字.....分该给我了吧。哈哈。

电脑初学者怎样清理C盘
1.打开“我的电脑”-“工具”-“文件夹选项”-“查看”-在“显示所有文件和文件夹”选项前打勾-“确定”
2、关闭远程桌面："我的电脑"->"属性"->"远程"，"远程桌面"里的"允许用户远程连接到这台计算机"勾去掉。
3.如果对系统进行过windoes updade升级，则删除以下文件：x:\windows\下以 $u... 开头的隐藏文件
4.然后对磁盘进行碎片整理，整理过程中请退出一切正在运行的程序
5.碎片整理后打开“开始”-“程序”-“附件”-“系统工具”-“系统还原”-“创建一个还原点”(最好以当时的日期作为还原点的名字)
6.打开“我的电脑”-右键点系统盘-“属性”-“磁盘清理”-“其他选项”-单击系统还原一栏里的“清理”-选择“是”-ok了
7.删掉\windows\system32\dllcache下dll档(减去200——300mb),这是备用的dll档， 只要你已拷贝了安装文件，完全可以这样做。
8.在各种软硬件安装妥当之后，其实xp需要更新文件的时候就很少了。删除系统备份文件吧：开始→运行→sfc.exe /purgecache近3xxm。(该命令的作用是立即清除"windows 文件保护"文件高速缓存，释放出其所占据的空间)
9.xp会自动备份硬件的驱动程序，但在硬件的驱动安装正确后，一般变动硬件的可能性不大，所以也可以考虑将这个备份删除，文件位于\windows\driver cache\i386目录下，名称为driver.cab，你直接将它删除就可以了，通常这个文件是74m。
10、删除不用的输入法：对很多网友来说，windows xpt系统自带的输入法并不全部都合适自己的使用，比如imjp8_1 日文输入法、imkr6_1 韩文输入法这些输入法，如果用不着，我们可以将其删除。输入法位于\windows\ime\文件夹中，全部占用了88m的空间。
11、休眠功能会占用不少的硬盘空间，如果使用得少不妨将共关闭，关闭的方法是的：打开"控制面板"，双击"电源选项"，在弹出的"电源选项属性"对话框中选择"休眠"选项卡，取消"启用休眠"复选框。
12、清除系统临时文件：系统的临时文件一般存放在两个位置中：一个windows安装目录下的temp文件夹；另一个是x:\documents and settings"用户名"\local settings\temp文件夹(y:是系统所在的分区)。这两个位置的文件均可以直接删除。
13、清除internet临时文件：定期删除上网时产生的大量internet临时文件，将节省大量的硬盘空间。打开ie浏览器，从"工具"菜单中选择"internet选项"，在弹出的对话框中选择"常规"选项卡，在"internet临时文件"栏中单击"删除文件"按钮，并在弹出"删除文件"对话框，选中"删除所 有脱机内容"复选框，单击"确定"按钮。
14、清除预读文件：windows xp的预读设置虽然可以提高系统速度，但是使用一段时间后，预读文件夹里的文件数量会变得相当庞大，导致系统搜索花费的时间变长。而且有些应用程序会产生死链接文件，更加重了系统搜索的负担。所以，应该定期删除这些预读文件。预计文件存放在windows xp系统文件夹的prefetch文件夹中，该文件夹下的所有文件均可删除。
15、关闭系统还原：系统还原功能使用的时间一长，就会占用大量的硬盘空间。因此有必要对其进行手工设置，以减少硬盘占用量。打开"系统属性"对话框，选择"系统还原"选项，选择"在所有驱动器上关闭系统还原"复选框以关闭系统还原。也可仅对系统所在的磁盘或分区设置还原。先选择系统所在的分区，单击"配置"按钮，在弹出的对话框中取消"关闭这个驱动器的系统还原"选项，并可设置用于系统还原的磁盘空间大小。
电脑开机黑屏的现象分析及处理办法
现象：开机黑屏，没有显示，可能会有报警声。
现象分析：硬件之间接触不良，或硬件发生故障，相关的硬件涉及到内存，显卡，CPU，主板，电源等。电脑的开机要先通过电源供电，再由主板的BIOS引导自检，而后通过CPU，内存，显卡等。这个过程反映在屏幕上叫自检，先通过显卡BIOS的信息，再是主板信息，接着内存，硬盘，光驱等。如果这中间哪一步出了问题，电脑就不能正常启动，甚至黑屏
应对之策：首先确认外部连线和内部连线是否连接顺畅。外部连线有显示器，主机电源等。内部有主机电源和主机电源接口的连线（此处有时接触不良）。比较常见的原因是：显卡，内存由于使用时间过长，与空气中的粉尘长期接触，造成金手指上的氧化层，从而导致接触不良。对此，用棉花粘上适度的酒精来回擦拭金手指，待干后插回。除此外，观察CPU是否工作正常，开机半分钟左右，用手触摸CPU风扇的散热片是否有温度。有温度，则CPU坏掉的可能性就可基本排除。没温度就整理一下CPU的插座，确保接触到位。这之后还没温度，阁下的CPU就可以升级了：（除了上面的方法外，还有一招必杀技：用拔跳线的方法清除BIOS设置或更换主板的CMOS电池。当这些方法都尝试过并全部失败的话，就可以召唤大虾哥出山相助了。
开机黑屏怎么办？
开机黑屏处理方法如下：
1．内存问题
内存是计算机中最重要的部件之一。系统在加电自检过程中，能够检测出内存和其他关键硬件是否存在和能否正常工作。如果有问题或不能正常工作，系统就会用喇叭报警。喇叭的声音不同，表示不同的故障。内存有故障，喇叭发出
的声音是"嘀嘀"。
一台品牌机，开机后，喇叭发出"嘀嘀"声，显示器黑屏。很明显，是内存有问题。打开机箱，拔下内存，仔细察看，内存没有什么问题。将内存条换根插槽插上后，一切正常。
2．显卡不能正常工作
如果显卡不能正常工作，计算机也会黑屏。但这时系统不会用小喇叭报警。
一台电脑使用一年来，一直正常工作，但最近以来，电脑出现黑屏故障。开机后，系统自检正常，小喇叭不报警。但屏幕上显示"No Sign a ls"。据此，初步判断是显卡有问题。将显卡卸下后，发现显卡上粘满了灰尘，先用刷子把显卡刷干净，再用橡皮把"金手指"打磨一遍。然后插上显卡，开机，正常进入系统。
这种问题，一般是由于时间长了，显卡的"金手指"部份因氧化而与插槽接触不良引起的。它的特征是系统自检正常，小喇叭不报警，显示器黑屏（比较老的显示器）或显示"No Sig－n a ls"（比较新的显示器）。处理这种故障的方法是检查显卡是否接触不良或插槽内是否有异物影响接触。
3．主板BIOS故障
一台组装机，开机后黑屏，但喇叭不报警。通过检查，发现显卡没问题。由于是组装的电脑，于是怀疑是电源功率不够，把硬盘、光驱、声卡拔下，用最小系统法也不见效。将显卡、声卡换到别的机器上，又一切正常。这时，主板上的小电池吸引了我的目光，是不是它的问题呢？于是，将电池卸下后开机，系统显示正常，要求进行BIOS设置（主板放电法）。重新设定后，顺利进入WIN98。如果你也遇到类似问题，也可以试一试主板放电法，说不定问题就在这儿。
电脑开机黑屏的一般解决方法
如果没有电力供应检查PC电源电源接口和电源线通电情况
1．检查机箱电源的接口和电源线是否完好，如果接口和电源线有破损断裂的应当及时更换。
2．检查主板电源线插口，如果没有破损就将插口拔出再插入，一般可以解决主板由于接触不良导致没有电力供应的情况。
3，检查机箱电源供应情况。我们一般都是利用替代法进行检测，即将电源盒装到另外一台电脑上试一试，国外有人介绍了另外一种测试ATX电源是否正常工作的方法：首先检查电源盒上的外接开关，看它是否在OFF档上。然后将之转换到11
5V档上，这样电源盒上的电源线就有了电。其次准备一根6-7厘米的电源线，再次将电源线与电源线插口连接起来，同时检查硬盘CPU风扇光驱的电源线是否连接，然后如果电源盒后面有无二级开关，有的话就打开，最后检查电源风扇，如果机箱电源有问题，机箱电源风扇就不会转动。
4．检查机箱电源上的开关，看它与主板的连接是否正确，检查主板上的跳线，找到控制电源的跳线，试着削短该跳线针，如果主板可以正常运行，这就说明该跳线已经有问题了。
主要是由于跳线针和跳线帽不能良好接触，削短跳线针可以使得两者完全耦合。
另外在操作的过程中注意不要让主板接触到金属机箱，一般我们将主板和电源从机箱中取出来放在不良传导物体上面，如木制桌面等。如果有静电导入容易造成主板短路，所以我们要特别注意这一点。
新手重装系统的必备步骤
对于电脑新手来说，重装系统毕竟是一件大事。其实，现在装系统很简单，因为市场上早就已有无人执守的系统安装盘了，在安装过程中几乎不用什么调整设置就会自动完成，已经不象几年前那样复杂了，几年前安装系统是必须请专业人员的，因为不仅需要安装Windows操作系统，同时还需要安装声卡驱动、显卡驱动、网卡驱动、Office、杀毒软件及摄像头等其他东西，并且很多软件都是英文的，象我这样不会英文的人当然需要请人。而现在除了杀毒软件外，几乎所有的软件和驱动都已经打包集成了，一张光盘一次就完成。装系统的具体步骤如下：
一、买一张系统光盘
最好买近期上市的新光盘，因为越新的就越先进、集成的东西越多，安装也越简单。不但里面集成的内容就很多，包括声卡驱动、显卡驱动、Office软件及摄像头等都在里面了，而且在安装的时候不需要手动调整设置和选择，一切都基本是自动完成的。
二、设置光驱启动
打开电源启动电脑，当系统自检时，不断按住DEL键或F2键（根据电脑主板不同，大多数电脑是按DEL键），出现蓝色界面进入CMOS设置主菜单（或灰色界面）。如是出现蓝色界面，则按上下左右方向键选择其中的Advanced Bios Features ，回车，选择First Boot Device，回车（如是出现灰色界面，则选择Boot后回车，选择Boot Device Prioyity，回车），选择前面有1st 的项目，回车，用上下方向键或加号键选择有CDROM(或者CD/DVD)的项目，按F10（或选择Try Other Boot Devices Yes或者选择SAVE&EXITSETUP），回车退出。此时将光盘放进光驱开始安装系统。注意：如果C盘有重要文件的，必须在安装前复制到其他盘保存，否则就会被格式化删除。
三、开始安装系统
设置好光驱启动后将系统盘放入光驱，重新启动电脑，光盘会自动进入安装界面，这时你就等电脑自动安装了，具体有检测磁盘、复制文件、安装注册表等一系列过程，但是你可以不用管，有提示时知道的就按自己喜欢的选择，不知道的可以不用选，它会按默认方式安装，最多是点下一步或回车就行，一直到系统安装结束。
四、进行系统设置和安装其他软件
系统安装完成后，对不上网的人来说基本可以了，但是对上网的人而言，还需要进行系统设置和安装其他软件。例如设置网络、安装杀毒软件、安装自己需要用的其他软件等。当然，这些已不属于安装系统的范围了。不过，如果你需要上网，就必须进行设置后才能正常上网。
电脑蓝屏最常见原因及解决办法
电脑蓝屏这个问题很多用户都遇到过，不过因为蓝屏出现的情况十分不确定，有一定偶然性，所以很多人都不知道如何修复它，通常的做法就是重新启动。
下面为大家分析一下最常见的蓝屏原因，并探讨一些针对性的解决之道。
最常见、也是最可能的原因——内存条接触不良
电脑用得久了，机箱当中难免积很多灰尘，而这些灰尘就很可能导致内存条接触不良。此外，平时用电脑不小心碰到主机箱，引起主机箱的震动，也可能造成内存条接触不良。我们都知道系统运行时很多数据的高速存取操作都要在内存当中来完成，如果在系统数据的存取过程中出现问题，将直接导致系统崩溃或者蓝屏。
解决办法：清理机箱，拔下内存条，用橡皮擦拭金手指，再重新插紧。
最容易判断的情况——软件兼容性问题引起
有时候我们的电脑用了很久都没有出现过蓝屏现象，可是不知什么原因，突然就蓝屏了，这时你可以回顾一下自己近期是否安装了什么软件，并且在蓝屏的时候该软件是处于运行状态的，如果是这样就非常容易判断了——就是因为这款软件引起的蓝屏。这是为什么？因为系统可能因为一些软件的兼容性问题而造成运行不稳定并导致崩溃、蓝屏。
解决办法：卸载相关软件或使用系统还原功能，还原系统至上一个还原点。
最悲剧的结果——硬盘出现坏道
如果你的系统运行时出现蓝屏的几率比较高，而且也排除了上述两种可能的原因，那么你就要考虑检查一下是不是你的硬盘出现了坏道!同内存一样，硬盘也要承载一些数据的存取操作，如果需要存储或者读取数据的区域出现了坏道，那么将直接导致数据存取失败，从而造成系统无法正常运行，导致系统崩溃、蓝屏。
解决办法：备份重要数据(所有硬盘数据)后重新格式化系统分区，如果格式化成功则不影响使用，否则只能弃用该分区或者更换硬盘。
除了上述三种最常见的情况还有其他一些可能，例如病毒感染系统，造成系统文件错误，也可能引起蓝屏，这就需要使用杀毒软件来查杀病毒;系统资源耗尽也会引起系统崩溃、蓝屏;驱动程序没有正常安装等等。
如何避免蓝屏
用户应该养成比较好的电脑使用习惯，例如软件最好不要安装在系统分区，不要随意安装软件;硬盘的每个分区最好都要保留不低于10%的剩余空间;不要同时运行多个耗费系统资源的程序，避免电脑超负荷运行;定期清理系统垃圾，清理机箱，保持机箱清洁等等。
快速启动屏保的设置技巧
计算机启动屏保后，当使用者离开计算机（或者不操作计算机）的时间达到预设时间值，系统会自动启动屏保程序，当使用者移动鼠标或敲击键盘返回工作状态时，系统就会打开一个密码确认框，只有输入正确的密码才能返回系统，不知道密码的用户是无法进入工作状态的，这样就保护了使用者数据的安全。
一般来说，屏保最快是在用户离开一分钟之后自动启动，当然使用者不可能坐在计算机旁等待X分钟看到屏保启动后才离开，这时在桌面上点击鼠标右键，选择“新建→快捷方式”，在弹出的“创建快捷方式”窗口中点击“浏览”按钮，指向第一步所找到的.scr文件，完成快捷方式的建立。右击桌面上新建立的快捷方式图标，在弹出的菜单中选择“属性”。在“属性”对话框中单击“快捷键（K）”右边的编辑框，然后按下F10键。点击确定完成设置（见图）。


设置完成后，离开计算机时只需按一下F10键，屏幕保护程序就立即启动了。有兴趣者不妨也试一试。如果用户安装有杀毒软件，也可以启动屏保杀毒，这样在离开的时候就启动杀毒扫描程序。

电脑初学者安全设置XP的六点建议
WindowsXP以其稳定性、强大的个人和网络功能为大家所推崇，而它的“NT内核”，让我们不得不加强安全防护。下面的六条建议帮您安全运行XP。
1.常规的安全防护
所谓“常规的安全防护”即施行同Windows98一样的安装防病毒软件、升级系统、禁止Ping三种安全方式。要强调的是WindowsXP和它的前辈Windows2000一样，漏洞层出不穷，对于系统的升级不能像对Windows98般马虎，除了要安装Microsoft针对“冲击波”的漏洞补丁外，建议将WindowsXP升级为最新的ServicePack1(升级后会提高资源占有，不过安全性、稳定性有所提高)。
2.禁止远程协助，屏蔽闲置的端口
在WindowsXP上有一项名为“远程协助”的功能，它允许用户在使用计算机发生困难时，向MSN上的好友发出远程协助邀请，来帮助自己解决问题。
而这个“远程协助”功能正是“冲击波”病毒所要攻击的RPC(RemoteProcedureCall)服务在WindowsXP上的表现形式。建议用户不要使用该功能，使用前也应该安装Microsoft提供的RPC漏洞工具和“冲击波”免疫程序。禁止“远程协助”的方法是：打开系统属性对话框(右键“我的电脑”、“属性”)，在“远程”项里去掉“允许从这台计算机发送远程协助邀请”前面的“√”。
使用系统自带的“TCP/IP筛选服务”就能够限制端口。方法如下：在“网络连接”上单击右键，选择“属性”，打开“网络连接属性”对话框，在“常规”项里选中里面的“Internet协议(TCP/IP)”然后单击下面的[属性]按钮，在“Internet协议(TCP/IP)属性”窗口里，单击下面的[高级]按钮，在弹出的“高级TCP/IP设置”窗口里选择“选项”项，再单击下面的[属性]按钮，最后弹出“TCP/IP筛选”窗口，通过窗口里的“只允许”单选框，分别添加“TCP”、“UDP”、“IP”等网络协议允许的端口，未提供各种服务的情况，可以屏蔽掉所有的端口。这是最佳的安全防范形式。
3.禁止终端服务远程控制
“终端服务”是WindowsXP在Windows2000系统(Windows2000利用此服务实现远程的服务器托管)上遗留下来的一种服务形式。用户利用终端可以实现远程控制。“终端服务”和“远程协助”是有一定区别的，虽然都实现的是远程控制，终端服务更注重用户的登录管理权限，它的每次连接都需要当前系统的一个具体登录ID，且相互隔离，“终端服务”独立于当前计算机用户的邀请，可以独立、自由登录远程计算机。
在WindowsXP系统下，“终端服务”是被默认打开的，(Windows2000系统需要安装相应的组件，才可以开启和使用终端服务)也就是说，如果有人知道你计算机上的一个用户登录ID，并且知道计算机的IP，它就可以完全控制你的计算机。
在WindowsXP系统里关闭“终端服务”的方法如下：右键选择“我的电脑”、“属性”，选择“远程”项，去掉“允许用户远程连接到这台计算机”前面的“√”即可。
4.关闭Messenger服务
Messenger服务是Microsoft集成在WindowsXP系统里的一个通讯组件，它默认情况下也是被打开的。利用它发送信息时，只要知道对方的IP，然后输入文字，对方的桌面上就会弹出相应的文字信息窗口，且在未关闭掉Messenger服务的情况下强行接受。
很多用户不知道怎么关闭它，而饱受信息的骚扰。其实方法很简单，进入“控制面板”，选择“管理工具”，启动里面的“服务”项，然后在Messenger项上单击右键，选择“停止”即可。
5.防范IPC默认共享
WindowsXP在默认安装后允许任何用户通过空用户连接(IPC$)得到系统所有账号和共享列表，这本来是为了方便局域网用户共享资源和文件的，但是任何一个远程用户都可以利用这个空的连接得到你的用户列表。黑客就利用这项功能，查找系统的用户列表，并使用一些字典工具，对系统进行攻击。这就是网上较流行的IPC攻击。
要防范IPC攻击就应该从系统的默认配置下手，可以通过修改注册表弥补漏洞：
第一步：将HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlLSA的RestrictAnonymous项设置为“1”，就能禁止空用户连接。
第二步：打开注册表的HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServicesLanmanServerParameters项。
对于服务器，添加键值“AutoShareServer”，类型为“REG_DWORD”，值为“0”。
于客户机，添加键值“AutoShareWks”，类型为“REG_DWORD”，值为“0”。
6.合理管理Administrator
Windows2000/XP系统，系统安装后都会默认创建一个Administrator用户，它拥有计算机的最高管理权限。而有的用户在安装时，根本没有给Administrator用户设置密码。黑客就利用这一点，使用高级用户登录对方计算机。因此，个人用户应该妥善保管“Administrator”用户信息，Windows2000登录时，要求输入Administrator用户的登录密码，而WindowsXP在正常启动后，是看不到Administrator用户的，建议使用WindowsXP的用户进入安全模式，再在“控制面板”的“用户账户”项里为Administrator用户添加密码，或者将其删除掉，以免留下隐患。
硬件方面
1、CPU，这个主要取决于频率和二级缓存，频越高、二级缓存越大，速度越快，未来CPU会有三级缓存、四级缓存等，都影响响应速度。
2、内存，内存的存取速度取决于接口、颗粒数量多少与储存大小（包括内存的接口,如：SDRAM133，DDR333，DDR2-533，DDR3-800），一般来说，内存越大，处理数据能力越强，速度就越快。
3、主板，主要还是处理芯片，如：笔记本i965比i945芯片处理能力更强，i945比i910芯片在处理数据的能力又更强些，依此类推。
4、硬盘，硬盘在日常使用中，考虑得少一些，不过也有是有一些影响的，首先，硬盘的转速（分：高速硬盘和低速硬盘，高速硬盘一般用在大型服务器中，如：10000转，15000转；低速硬盘用在一般电脑中，包括笔记本电脑），台式机电脑一般用7200转，笔记本电脑一般用5400转，这主要是考虑功耗和散热原因。
硬盘速度又因接口不同，速率不同，一般而言，分IDE和SATA（也就是常说的串口）接口，早前的硬盘多是IDE接口，相比之下，存取速度比SATA接口的要慢些。
硬盘也随着市场的发展，缓存由以前的2M升到了8M或更大，就像CPU一样，缓存越大，速度会快些。
5、显卡：这项对运行超大程序软件的响应速度有着直接联系，如运行CAD2007，3DStudio、3DMAX等图形软件。显卡除了硬件级别上的区分外，也有“共享显存”技术的存在，和一般自带显存芯片的不同，就是该“共享显存”技术，需要从内存读取显存，以处理相应程序的需要。或有人称之为：动态显存。这种技术更多用在笔记本电脑中。
6、电源，这个只要功率足够和稳定性好，也就OK啦。
7、显示器：显示器与主板的接口也一样有影响，只是人们一般没有太在乎（请查阅显示设备相关技术资料）。
好了，硬件产品先说这些。
软件方面
1、操作系统：简单举个例子说明一下：电脑的同等配置，运行原版Windows 98肯定比运行原版Windows XP要快，而原版XP肯定又比运行原版的Windows Vista速度要快，这就说明，同等配置情况下，软件占用的系统资源越大，速度越慢，反之越快。
内容有上万字...我发文档给你吧....留邮箱

这里有。
http://www.bizing.cn/asp/down/soft/657.htm
http://www.cnitdata.com/soft/231/233/2007/20071085.html
这个肯定是
http://www.qq15.cn/Article/HTML/Article_3436.html
我看到了，但是下载它需要技术。
还是书好。
我在继续找……

第一章、pascal介绍
一、pascal的基本语法单位

1、基本符号
A——Z；a——z；0——9；+，-，*，/，=，，=，，(，)，[，]，{，}，:=，，，；，.，：，..，'，^
注意：pascal语言除了能使用以上规定的基本符号外，不得使用任何其它符号。

2、保留字
AND，ARRAY，BEGIN，CASE，CONST，DIV，DO，DIWNTO，ELSE，END，FILE，FOR，FUNTION，GOTO，IF，LABEL，MOD，NIL，OF，OR，PACKED，PROCEDURE，PROGRAM，RECORD，REPEAT，SET，THEN，TO，TYPE，UNTIL，VAR，WHILE，WITH。
注意：所起的文件名不能与保留字相同。

3、标识符
以字母打头的字母数字串，长度小于等于8。
标准标识符（共三十九个）：
标准常量：
false,true,maxint
标准类型：
integer,real,char,boolean,text
标准文件：
input,output
标准函数：
abs,arctan,chr,cos,eof,eoln,exp,ln,odd,ord,ored,round,sin,sqr,
sqrt,succ,trunc
标准过程：
get,new,pack,page,put,read,readln,reset,rewrite,unpack,write, writeln

二、程序结构
1、由三大部分组成：程序首部，说明部分，语句部分。
PROGRAM 程序名(input,output)；
{……} 解释
CONST
pi=3.14159；
VAR
r,l,s:real;
BEGIN
write('input r:');
read(r);
l:=2*pi*r;
write('l=',l,'s=',s);
END;
2、大量使用标点符号，保留字后不加标点符号（END除外）。

第二章、顺序结构程序设计

一、标准数据类型
1、实型(real)
小数表示法、指数表示法
2、整型(integer)
正、负整数和零
maxint=32767
pred：前导；succ：后继
[例]：pred(3)=2；succ(3)=4；
pred(true)=false；
succ(false)=true
3、字符型(char)
是指在两个单引号中的一个字符。
ord：取序数
[例]：ord('A')=65
4、布尔型(boolean)
false；true
用于布尔型的运算：NOT、AND、OR
ord(true)=1；ord(false)=0

二、常量和变量的定义
常量的定义：CONST
pi=3.14159；
blank=' '；
变量的定义：VAR
r,l,s:read；
cl:char；

三、表达式及赋值语句
[例]：b2-4ac 写成：sqt(b)-4*a*c
赋值：：=

四、输入输出语句
1、输入语句：read()；readln()
注：表达式里面变量与变量之间用逗号隔开；
readln表示下一个语句将从下一行开始操作；
输入时，整型或实型用空格或回车隔开，字符型之间无需分隔，一个接一
个输入。
2、输出语句：write()；writeln()
注：对real或integer限定场宽：write('a=',a:2:0) {a为real型}

第三章、选择结构程序设计

一、if 语句
格式：IF
THEN
ESLE
注：1、ELSE与最近的并且未被配对的ELSE配对；
2、复合，如果THEN或ELSE带有多个语句，则要用BEGIN——END括起来。

二、CASE语句
格式：CASE OF
：
：
……
：
[ELSE]
END
注：1、值表的三种表达方式：“1：”；“2，4，6：”；“10..100：”
2、CHAR，INTEGER，BOOLEAN有序

第四章、循环结构程序设计

一、FOR语句
格式：1、FOR ：= TO DO ；
2、FOR：= DOWNTO DO 。
[例1]：输入10个数，求最大值、最小值、和、及平均值。

PROGRAM ten(input,output);
VAR
a,s,max,min,avg:real;
i:integer;
BEGIN
write('please input:');
read(a);
s:=a;
max:=a;
min:=a;
FOR i:=2 TO 10 DO
BEGIN
read(a);
s:=s+a;
IF a>max THEN
max:=a
ELSE
IF a<min THEN min:=a
END;
avg:=s/i;
writeln(……);
END.

[例2]：求s=1!+2!+3!+……+10!
program sum_fac(input,output);
var
i,j,s,m:integer;
begin
s:=0:
for j:=1 to 10 do
begin
m:=1;
for j:=1 to i do
m:=m*j;
s:=s+m;
end;
write(……);
end;

二、while语句
格式：WHILE DO

[例1]：输入一串字符串，求第一个“，”前的大小写字母个数和其它字符个数。
program string(input,output);
var
ch:char;
c,s,o:integer;
begin
write(……);
read(ch);
c:=0;
s:=0;
o:=0;
while ch',' do
begin
if (ch>='A')and(ch<='Z') then
c:=c+1
else if (ch>='a')and(ch<='z') then
s:=s+1
else
o:=o+1;
read(ch);
end;
write(……)；
end.

三、REPEAT语句
格式：REPEAT

UNTIL

[例]：以字符(char)的形式读入一实数，以实形(real)输出该数。

第五章、函数与过程程序设计
一、函数（包括标准函数和自定义函数）
1、函数的定义
格式：FUNCTION 函数名（）：返回值类型；
VAR

BEGIN

END
[注]：1、形参表每个参数都写明其类型；
2、有且只有一个返回值，并且要将返回值赋值给函数名。
[例]：求五边形的面积
function area(a,b,c:real):real;
var
p:real;
begin
p:=(a+b+c)/2;
area:=sqrt(p*(p-a)*(p-b)*(p-c);
end;
2、函数的调用
1）、函数的调用必然出现在表达式中（等号的右边），不能以单独地在语句出现
2）、调用时，将每个实参传递给对应的形参
program ml_area(input,output);
var
l1,l2,l3,l4,l5,l6,l7,s:real;
function area(a,b,c:real):real;
var
p:real;
begin
p:=(a+b+c)/2;
area:=sqrt(p*(p-a)*(p-b)*(p-c);
end;
begin
write('input');
readln(l1,l2,l3,l4,l5,l6,l7);
s:=area(l1,l2,l6)+area(l2,l6,l7)+……;
writeln('s=',s:10:3);
end.

二、过程
格式：PROCEDURE()
VAR

BEGIN

END；

[例1]某过程的形参表为（var a,b:real;c,d:integer;var e:char)；
主程序中有如下变量说明：x,y:real; m:integer; next:char；
则以下实参表中合法的有：(1、2、3)
1、(x,y,m+3,70,next)
2、(y,x,m,m,next)
3、(y,x,35,m DIV 10,next)
4、(m,x,30,10,next)
5、(x,y,m,10)
6、(35,0,y,m,10,next)
7、(x,y,m,m/10,next)
8、(A,B,30,10,next)

[例2]求程序输出的结果。
program ex(input,output);
var
x,y,z:integer;
procedure s(x:integer; var y:integer);
var
z:integer
begin
x:=5; y:=6; z:=7;
end;
begin
x:=1; y:=2; z:=3;
s(x,y);
writeln(x,y,z);
end.
输出结果：1 6 3

[例3]：求五个数中的最大值。
program max_in_5(input,output);
var
n1,n2,n3,n4,n5:integer;
procedure lagest_in_three(a,b,c:integer;var e:integer)
begin
e:=a;
if b>e then
e:=b;
if c>e then
e:=c;
end;
begin
write('……');
readln(n1,n2,n3,n4,n5);
lagest(n1,n2,n3,n1);
lagest(n1,n4,n5,n1);
write(n1);
end.

三、嵌套
[例]：计算、
program Cmn(input,output);
function fax(x:integer):integer:
var
i:integer;
begin
fac:=1;
for i:=1 to x do
fac:=fac*i;
end;
function c(a,b:integer):real;
begin
c:=fac(a)/fac(b)*fac(a-b)
end;
begin
writeln('c(9,3)=',c(9,3));
writeln('c(8,5=',c(8,5));
end.

四、递归
函数或过程调用它本身，称为递归。
[例1]、用递归计算n! {=m!/n!(m-n)!}
program fac_n(input,output);
var
n:integer;
function fac(n:integer):integer;
begin
if n=1 then fac:=1
else fac:=n*fac(n-1);
end;
[例2]、用递归计算

1)、function power(a,b:integer):integer;
begin
if b=1 then power:=a
else power:=a*power(a,b-1);
end;
2)、procedure power(a,b:integer;var c:integer);
begin
if b=1 then c:=a
else power(a,b-1,c);
c:=a*c;
end;

[例3]、输入一串字符串（以‘.’结束）按逆顺输出
program revers(input,output);
procedure rever;
var
c:char;
begin
read(c);
if c'.' then rever;
write(c);
end;
begin
rever;
end.

五、标识符的作用域
1、全局变量和局部变量
1）、全局变量：在主程序中被说明，作用域：整个程序；
2）、局部变量：在子程序中被说明，作用域：主程序及其下级的程序。
2、子程序（function、precedure）的作用域
一个子程序可以调用它的下一级了程序，或可以调用在它之前定义的同级子程序。
[例]写出程序运行的结果。
program range(input,output);
var
x,y:integer;
procedure p1;
var
x,z:integer;
begin
x:=10; y:=y+1; z:=10;
writeln(x,y,z);
end;
begin
x:=1; y:=1;
writeln(x,y);
p1;
writeln(x,y,z);
end.

结果为：
(x y z)
1 1
10 2 10
1 2 (error)

3、在子程序中被改变值的变量可以回传的两种方法：
a、变量参数 procedure(var 变量名);
b、在上一级程序定义了的，且在下一级程序未被重新定义的。
[注]如果主程序的变量在子程序被重新定义，在子程序中主程序的变量被稳藏，在主程序中子程序的变量无效。

就是那个文库里的，开头是 “第一节 Pascal 程序结构和基本语句
在未系统学习Pascal语言之前，暂且绕过那些繁琐的语法规则细节，通过下面的简单例题，可以速成掌握Pascal程序的基本组成和基本语句的用法，让初学者直接模仿学习编简单程序。

[例1.1]编程在屏幕上显示“Hello World!”。

Pascal程序：

Program ex11;

Begin

Writeln(‘Hello World!’);

ReadLn;

End.”

一、第一次课的内容
1、 信息学奥林匹克简介、青岛市中小学信息学竞赛简介；
2、 Pascal语言简介；
3、 Free Pascal环境介绍；
4、 编辑运行第一个Pascal语言程序；
5、 Pascal程序结构。
二、第二次课内容
1、 Pascal语言基本字符集、保留字、标识符的有概念及组成；
2、 数据类型、常量、变量及说明方法；
3、 Pascal语言包含的所有数据类型；
4、 整数类型和实数类型的类型符、取值范围及可进行的运算；
5、 举例讲解上述内容的使用及对Free Pascal语言环境的进一步熟悉。
三、第三次课内容
1、 结构化程序设计思想介绍；
2、 赋值语句介绍及应用举例；
3、 Write、Writeln语句介绍及应用举例；
4、 Pascal语言的表达式；
5、 程序设计的解题步骤及应用举例。
四、第四次课内容
1、 Read、Readln语句介绍及应用举例；
2、 字符类型及逻辑类型的类型符、取值范围及可进行的运算；
3、 Randomize语句、Trunc函数及随机整数的产生；
4、 所学内容的应用举例。
五、第五次课内容
1、 复合语句介绍；
2、 顺序结构语句总结；
3、 选择结构程序设计介绍；
4、 if…then语句介绍；
5、 if…then…else语句介绍；
6、 条件语句的嵌套；
7、 本次内容的应用举例；
六、第六次课内容
1、 顺序结构及分支结构程序设计的应用举例；
2、 对循环结构的初步认识；
3、 While语句介绍及应用举例。
七、第七次课内容
1、 循环结构的介绍；
2、 For语句介绍；
3、 循环结构的嵌套；
4、 循环结构的应用；
八、第八次课内容
1、 顺序结构、选择结构、循环结构应用举例；
2、 Repeat语句介绍及应用；
3、 三种循环语句分析及比较；
九、第九次课内容
1、 文件的介绍；
2、 从文本文件中如何读数据；
3、 Assign、Reset、Read、Readln及Close的使用；
4、 读文件应用举例。
5、 Case语句介绍及应用举例。
十、第十次课内容
1、 如何将数据输出到文件中；
2、 Assign、Rewrite、Write、Writeln及Close的使用；
3、 写文件应用举例；
4、 Pascal常用函数介绍。
十一、第十一次课内容
1、 认识数组；
2、 类型的定义方法；
3、 一维数组的定义和使用；
4、 一维数组的应用举例。
十二、第十二次课内容
1、 二维数组的定义和使用；
2、 多维数组的简单介绍；
3、 Inc、Dec、Break、Continue语句及应用举例。
十三、第十三次课内容
1、 字符数组；
2、 字符串的特性；
3、 字符串函数；
4、 字符串的应用。
十四、第十四次课内容
1、 一维数组的查找、插入、删除；
2、 一维数组的排序；
3、 数组的复习及应用举例。
十五、第十五次课内容
1、 枚举类型的定义及应用；
2、 子界类型的定义及应用；
3、 对程序设计中所有语句的复习。
十六、第十六次课内容
1、 子程序的概念、作用及分类；
2、 函数的定义、调用及应用举例；
3、 值参数和变量参数；
4、 按值传递的执行过程；
5、 前面所学内容的应用举例。
十七、第十七次课内容
1、 过程的定义、调用及应用举例；
2、 按地址传递的执行过程；
3、 Label说明及Goto语句的简单介绍。
十八、第十八次课内容
1、 全局变量及局部变量的作用域；
2、 函数和过程的作用域；
3、 子程序的递归及应用举例；
4、 子程序的嵌套；
5、 程序说明部分的完整复习。
十九、第十九次课内容
1、 记录类型的定义及使用；
2、 记录类型的应用举例；
3、 前面所学内容的应用举例。
二十、第二十次课内容
1、 集合类型的定义及使用；
2、 集合类型的应用举例；
3、 指针类型的简单介绍；
4、 参加竞赛时应注意的一些问题；
5、 初级班后继课程的安排介绍。

科技馆信息学奥林匹克中级班内容
一、第一次课内容
1、 顺序结构语句复习；
2、 选择结构语句复习；
3、 循环结构语句复习；
4、 程序设计应用举例；
5、 典型试题分析。
二、第二次课内容
1、 子界类型及枚举类型典型试题分析及应用举例；
2、 数组类型典型试题分析及应用举例。
三、第三次课内容
1、程序设计应用举例；
2、函数及过程典型试题分析；
四、第四次课内容
1、 集合、记录的应用举例；
2、 集合、记录典型试题分析。
五、第五次课内容
1、程序设计中的基本算法之模拟法。
六、第六次课内容
1、程序设计中的基本算法之枚举法。
七、第七次课内容
1、程序设计中的基本算法之贪心法。
八、第八次课内容
1、程序设计中的基本算法之递归法。
九、第九次课内容
1、程序设计中的基本算法之回溯法。
十、第十次课内容
1、程序设计中的基本算法之分治法。
十一、第十一次课内容
1、 进制；
2、 二、八、十六进制和十进制的相互转换；
3、 二、八、十六进制之间的转换。
十二、第十二次课内容（排列与组合）
1、 加法原理与乘法原理；
2、 排列；
3、 组合。
十三、第十三次课内容（高精度运算）
1、 高精度数的读入和存储；
2、 高精度加法；
3、 高精度减法；
4、 高精度乘法；
5、 高精度除法。
十四、第十四次课内容（排序算法）
1、 归并排序；
2、 希尔排序；
3、 堆排序；
4、 快速排序；
5、 基数排序。
十五、第十五次课内容
1、 指针类型的复习；
2、 链表的结构及操作；
3、 典型试题分析。

右键——默认值——默认代码页——更改为‘437 （OEM - 美国）’——确定
其他的调试步骤：
例1. 1的调试：
1、Free Pascal程序的启动
双击桌面上的Free Pascal,启动后，界面如下：

2、第一次启动free pascal 时，用鼠标单击菜单不起作用，需用要进行设置。右击标题栏，选择属性：

3、在属性窗口中，去掉2个快速编辑模式和插入模式前的复选框的勾，再单击确定按纽，新弹出：将属性应用于快捷的设置，在该面板中选择：修改启动该窗口的快捷方式。设置好了，关闭free pascal窗口。再重新单击桌面上的free pascal，这时就可以用鼠标来操作了。

4、新建一程序文件：单击菜单File，选择new

5、输入代码，这里的writeln是writeLn，大小写不要紧。Writeln()后面接的是一对括号。

6、保存。按F2，或单击file/save，弹出一保存窗口。将文件保存为ex11.pas。该文件存储在free pascal的安装目录下：C:\FPC\2.0.4\bin\i386-win32


7、编译运行，按Ctrl+F9，编译后，再Alt+F5查看屏幕输出结果。















例1.2调试：
1、新建一程序文件：单击菜单File，选择new

2、以书本例1.2为例，在新建的窗口中输入如下代码：

3、代码写完后，单击file / save (或按F2)，保存文件，存储为ex12.pas，该文件存储在free pascal的安装目录下：C:\FPC\2.0.4\bin\i386-win32

4、编译程序。按Ctrl+F9，弹出如下窗口：

在此窗口中输入a的值，比如输入5，输完后，敲回车键，回到程序窗口，再按Alt+F5，在屏幕上查看输出结果。

得到输出的结果值，再按回车健Enter，回到主程序界面。

程序学习资源网，大量编程视频教程供免费下载。适于自学者及初学程序的朋友学习之用，下载视频请使用迅雷软件，观看视频教程要用科健流媒体播放器。

下面是C语言康辉的视频教程下载地址：
计算机专业/吉林大学CSF计算机课件/吉林大学C语言/第01讲.csf
中间自己加
计算机专业/吉林大学CSF计算机课件/吉林大学C语言/第51讲.csf

这是VB的（石油大学）

中间自己加






另外,虚机团上产品团购,超级便宜