有10升油在10的容器中，另有两个7升和3升的空容器，现要求用这三个容器倒油，使得最后在10升和7升的容器中各有5升。
2、书本的P.250-251页的迷宫问题：看懂，完成程序并调试
3、细胞问题：
一矩形阵列由数字0到9组成，数字1到9代表细胞，细胞的定义为细胞数字的上下左右还是细胞数字则为同一细胞，求给定矩形阵列的细胞个数。（队列）
0234500067
1034560500
2045600671
0000000089
该矩形阵列有4个细胞。
4、回文算式
任给一个三位数abc（10进制，a,b,c分别代表百、十、个位），算出abc与cba之和。若该和数不是回文（即从左向右读与从右向左读是同一个数，如19391）,再按上述方法求和。以此类推，直到得到回文形式的和数或者和数已超过15位时中止计算。
5、输入连续加法的表达式，回车后输出结果。
第一行输入：一串有数字、加号、等号的表达式
第二行输出：原输入的表达式，等于号后出现结果；
测试样例：输入：123+456+2145＝
输出：123+456+2145＝2724
6、背包问题：看懂，完成程序的调整、运行
有5件可选物品，质量分配为8千克、4千克、3千克、5千克、1千克。编写一程序解决背包问题，假设背包的最大装载质量是10千克。（通俗讲：能否找到物品组合为10千克的方案）
8千克、5千克、4千克、3千克、1千克
7、一个队列，1 12 123 1234 12345 123456…..123456789 10 11 12 13 1415….求这个数列的第100位的数字是多少？输出到文件
Free pascal练习题大全
1、倒油问题：看懂，并完成程序。有10升油在10的容器中，另有两个7升和3升的空容器，现要求用这三个容器倒油，使得最后在10升和7升的容器中各有5升。2、书本的P.250-251页的迷宫问题：看懂，完成程序并调试 3、细胞问题：一矩形阵列由数字0到9组成，数字1到9代表细胞，细胞的定义为细胞数字...
free pascal的高手进!
1.begin assign(input,'exb.in');reset(input);assign(output,'exb.out');rewrite(output);writeln(10*10*6,' ',10*10*10)close(input);close(output);end.2.var h,f,Rab:longint;begin assign(input,'jitu.in');reset(input);assign(output,'jitu.out');rewrite(output);readln(h,...
free pascal题目
30、猜价格:中央电视台的“幸运52”栏目深受观众喜爱,其中的“猜商品价格”的节目更是脍炙人口,现在请你编一个程序模拟这一游戏:由计算机随机产生200至5000之间的一个整数,作为某件商品的价格,然后由你去猜是多少,若你猜的数大了,则计算机输出提示“Gao”,若你猜的数小了,则计算机输出提示“Di”,然后你根据提...
free pascal 一道插入排序练习 急!!!
第一空 begin a[pos]:=x;search:=false;end 第二空 inc(pos)第三空 n-1 downto pos 第四空 inc(num);第五空 insert(x,a,num)完成……给分~
free pascal狐狸捉兔子:围绕着山顶有10个洞,狐狸要吃兔子,兔子说:“可 ...
【问题】围绕着山顶有10个洞，狐狸要吃兔子，兔子说：“可以，但必须找到我，我就藏身于这十个洞中，你从10号洞出发，先到1号洞找，第二次隔1个 洞找，第三次隔2个洞找，以后如此类推，次数不限。”但狐狸从早到晚进 进出出了1000次，仍没有找到兔子。问兔子究竟藏在哪个洞里？【答案】2...
free pascal方格填数(速进,小学学的初中又忘了)20分
a:array[1..10] of longint;b1:boolean;b:array[0..9] of boolean;begin for a11:=1 to 3 do for a22:=4 to 9 do for a33:=13 to 31 do for a44:=32 to 99 do begin fillchar(b,sizeof(b),false);a1:=a11*a11;a2:=a22*a22;a3:=a33*a33;a4:=a44*a44;a[1]:=a1;...
free pascal问题
PS.从2开始枚举比从1开始好判断）2 bj=false（boolean标记是否整除，若有一个不满足要求的因数则跳出，算是剪枝②）3 if n mod i=0 4 bj=true 5 if not bj 6 是素数 代码请您自己练习 不懂多问 熟能生巧
关于Free Pascal 编程问题
这种题主要就是要培养自己对程序整体的把握能力，知道自己每一步要做什么，程序的每一个变量的“现实”意义是什么。别忘了循环做的是一系列有共同规律或类似规律的事情，所以无规律或规律不明显的地方不要强行用一个循环做，可以像5）一样分开操作。补充：为了理解方便，程序通通没有优化，特别是5），...
关于Free Pascal IDE编程 ~~急啊~~~
分别代表五人。如b=3 表示乙获跳高冠军。用多重循环穷举出来。【答案】甲 乙 丙 丁 戊 1 2 4 3 5 【参考程序】var a,b,c,d,e:byte;begin for a:=1 to 5 do for b:=1 to 5 do if a<>b then for c:=1 to 5 do if (a<>c) and (b<>c then for d:=1...
Free pascal 高手进
begin readln(a,b,c);p :=(a+b+c)\/2;if(a+b<c)and(a-b>c)then writeln('no a triangle!')else writeln(s=sqrt(p*(p-a)*(p-b)*(p-c)));\/\/←这里少了个括号少了个分号 \/\/end ←这个end是多余的 readln;end.要注意看下面的编译错误提示，pascal同时会吧光标移动到错误的...
