free pascal 的基础知识

1、编程模拟剪刀、石头、布游戏：用S表示剪刀，用R表示石头，用P表示布。
规则是：剪刀剪布，石头砸剪刀，布包石头。游戏者分别把自己的选择输入，计算机给出结果。2、某全自动加油站a,b,c三种汽油的单价(元/kg)分别是1.50、1.35和1.18，
也提供了“自己加”或“协助加”两个服务等级，这样用户可以得到5%或10%的优惠。
编一个程序，用户输入加油量、汽油品种和服务类型(f-自动，m-自己，e-协助)，然后计算应付款。 3、计算今天星期几：按照年、月、日格式输入今天的日期，计算和输出今天是星期几的信息。
设年、月、日为Y，M，D。
4、复杂的计算器问题，包括了多个运算符和多个运算量，为了简单起见，规定它
按照输入的先后次序计算，而不考虑运算符的优先规则。
如计算20+5*6+4+3/5=？，运算顺序为+*++/，考虑终止循环的条件是什么？与手工操作计算器比较。
5、小偷问题：A，B，C，D四个人，A说：我不是小偷；B说：C是小偷；C说：D是小偷；D说：C冤枉人。
三个人说真话，只有一个人是小偷，请你当一回侦探判断谁是小偷？
6、乒乓球问题：来找我——徐老！！！！！
7、利用下列公式计算并输出π的值。
π/4=1-1/3+1/5-1/7+...+1/（4n-3）-1/(4n-1) n=10000
8、输出1---999中能被3整除，且至少有一位数字是5的所有整数。
9、打印数字金字塔
1
1 2 1
1 2 3 2 1
1 2 3 4 3 2 1
.... ....
1 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 1
10、要将一张100元的大钞票换成等值的10元、5元、2元、1元一张的小钞票。要求每次换成40张小钞票，
每种至少一张。编程输出所有可能的换法，程序应适当考虑减少重复的次数。
11、判断一个数是否是素数？12、求2--1000中的守形数（若某数的平方，其低位与该数本身相同，则称该数为守形数，如25，25*25=625，625的低位25与原数相同，则称25为守形数）。13、读入一个算术表达式，以“；”结束。对该表达式中的圆括号是否配对进行检查，给出正确与错误的信息。
若出错还应指出是左括号多余右括号，或是右括号多与左括号，或是先出现了右括号。14、求2--1000中的完数（因子和等于它本身的数为完数。例如28的因子是1，2，4，7，14，且1+2+4+7+14=28，则28是完数）。
15、找2---1000中的亲密数对（如果A的因子和等于B，B的因子和等于A，且A<>B，则称A，B为亲密数对）。
16、打印下列图形：
①********
②********
********
********
③********
********
********
********
④*
**
***
****
*****
⑤ *
***
*****
*******完善程序其实很简单，你只要读懂题，心里简单有一个程序的大概思路，再读懂原题每一个变量的作用，做起来就不难了。

您自己去取吧~
http://d.namipan.com/d/1b1bdb2b078e59a498a4086579880c56583c086300fe0e00