Free pascal编程问题！！！急！！！！

6:
program p6(input,output);
var a,b,c,d:integer;
begin
for a:=1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
if a*a*a+b*b*b+c*c*c=100*a+10*b+c
then write(100*a+10*b+c:4);
end.

7:
program p7(input,output);
var i,j:integer;
begin
for i:=1 to 5 do
begin
for j:=1 to 2*i-1 do
write(i);
writeln;
end;
end.


8:
program p7(input,output);
var i,j,k:integer;
begin
for i:=1 to 20 do
for j:=1 to 50 do
for k:=1 to 100 do
if 5*i+2*j+1*k=100
then
write(i:6,j:3,k:3);
end.

只要每一组中的三个数都让它们从小到大排列，就不会再有重复的了。

在pascal里面，字典序是一种方便检索的排列方式，通俗点就是方便查找，查看你想要的东西。
而排列原则在不同的字典里是不同的，如果是简单的只有字母的字符串，就是按照字母的顺序，如果还有数字，就不同了，一般题目会给出排序条件。
例题其实很简单，比如：
给你很多的杂乱的字符串，按字典序排列后输出。
输入样例：
adfs
ade
bcg
aak
输出样例：
aak
ade
adfs
bcg
题解：这是一种很简单的字符串处理。。
很容易掌握，耐心点就好了

由字母组成的字符串。。按各各位上的字母比较。。规则就和英语字典的排序一样。。比如abc 在aca前面。。数字按Ascii码比较。。

字典序这个东东的来历用我们查阅字典的经验来解释一定是最合适不过了...谁也不想..在一个混乱编辑的字典里面查一个字..(- -不知道 有这样的字典么...)
这个...如果手边有英文字典的话会更好...英文字典是没有检字表的...总是可以按现在翻页面确定所要找的那个单词在前面还是后面......
不知道小时侯大家有没有在书的侧页写过名字和班级......写在那里的字会有一种朦胧的感觉...
如果您的字典够厚实的话...侧页也一定会有加深的标签...如果再厚一点的话...标签里可以写下A,B,C,D..如果更厚重一点的书...(我唯一见
过的一本是...某超级化学手册..第78版..)会在侧页的位置压出标签...
(...记得中考的时候...政治历史开卷...家人曾经在每本课本的章节的位置贴上商店里用作价格标签的小纸条...嘿嘿...)
对于类似字典这样需要经常进行检索的东西...字典序的发明是很自然的...
人们为了可以找到单词所在的位置...需要可以通过它的第一个字母就迅速确定它在书哪一块...再根据第二个字母...再缩小这个范围..
(其实我们不一定会用上每一个字母...只要限制的范围很小就很好...)
这样..一个英文单词可以算是一个字符串...(很多情况下我们可以直接对字符串进行比较....这个时候用到的就是字典序了..)
汉语字典还是不太一样的额...通常里头会有两种检字表...前面是拼音..后面用的是部首...后面这个还比较麻烦..得学上一阵子...虽然有时
候我们也不得不用它...

数字也可以作为特别的字符串...这种情况下...如果我们用字典序进行比较...就有可能会出现下面这种情况...
"100">"1000"..(加引号的目的是为了区别数字..与数字串..)
这个好象没道理的样子.."1000"怎么比"100"还要小一些呢...
事实上呢.在计算机里...我们会这么看..和之前一样...我们会首先比较第一个字符...
这里"1"='1'..(已经可以看到区别了..在数中..数字因为位置的不同会有不同的意义..而这里.这种分别变的不一样了...)
..一步比较...还没有办法分辨出它们的大小...只好再比较之后的数...
这种情况回直到最后一次尝试...第一个字符串已经空掉之前...
如果硬要比较的话...
空格的ascii码值是32.(我觉得Ascii码还是用两位十六进制表示比较合适拉...咳咳..
书上告诉我..要在十六进制前加"0x"..注意是零艾克丝..不是呕哎克丝..额..虽然我也不知道是为啥.而且不得不承认这个还真不好用眼睛区
分.#24..0x20)..
当然这里还不是空格...
真正意义上的虚无.. "" 的ascii码值是0x00...
而数字0是0x30..

我们是不是应该给字典序...一个准确的数学描述呐- -...
(这个...我觉得是不是像S1<S2当前仅当什么什么什么...这样字典序的小于就有了...大于是对称的...应该可以不描述...再叙述一下等于就好
拉?..我觉得在这里...它好象没什么帮助的样子..不如用程序语言或者自然语言描述好...)

恩...这样看来...排列中出现的顺序并不是完全典型的字典序..如果把它看做字符串..它的长度是固定的...并且每一个位置的元素总是取于
前面的一些数字...

字典序，就是abcdefg……
例题
From Admin
找朋友

描述 Description
童年的我们，对各种事物充满了好奇与向往。这天，小朋友们对数字产生了兴趣，并且想和数字交朋友。可是，怎么分配这些数字才能使得每个小朋友都唯一地找到一个数字朋友呢？C小朋友说：咱们按自己名字的字典序先后，依次选择一个剩余的最小的数字当朋友。好么？Q小朋友十分赞同。于是，大家都同意了。

输入格式 Input Format
第一行为一个数n，为小朋友数和数字数。
下面n行为小朋友们的名字。
再下面n行为候选的n个数字。

输出格式 Output Format
n行，按字典序输出n个小朋友姓名及所选的数字朋友。

样例输入 Sample Input
5
src
oldway
claire
whqsdhr
ylq
89757
20091111
130203
8000800
1008611

样例输出 Sample Output
claire 89757
oldway 130203
src 1008611
whqsdhr 8000800
ylq 20091111

时间限制 Time Limitation
各个测试点1s

注释 Hint
100%的数据满足：1<=n<=10000,每个数字均不超过1 500 000 000 (1.5*10^9)

其中样例输出的就是字典序

你去翻翻字典吧，一般字典序是按字母a到字母z排序的，a优先级最高，z优先级最低，在pascal里字典序是参照ascii码的

free pascal编程问题
在pascal里面，字典序是一种方便检索的排列方式，通俗点就是方便查找，查看你想要的东西。而排列原则在不同的字典里是不同的，如果是简单的只有字母的字符串，就是按照字母的顺序，如果还有数字，就不同了，一般题目会给出排序条件。例题其实很简单，比如：给你很多的杂乱的字符串，按字典序排列后输出。

Free pascal编程问题!!!急!!!
6:program p6(input,output);var a,b,c,d:integer;begin for a:=1 to 9 do for b:=0 to 9 do for c:=0 to 9 do if a*a*a+b*b*b+c*c*c=100*a+10*b+c then write(100*a+10*b+c:4);end.7:program p7(input,output);var i,j:integer;begin for i:=1 to 5 do...

pascal语言编程问题(free pascal
如下，能给满意回答吗，谢谢 program prime;var a : array [2..1000] of boolean;i , p : integer;begin read(n);for i:=2 to n do a[i]:=true; {a数组初始化，全部置true} for i:=2 to n div 2 do if a[i] then begin { a[i] 相当于 a[i]=true...

问几个关于free pascal的题目,急急急!(完成几道是几道)
17、小球从100高处自由落下,着地后又弹回高度的一半再落下。求第20次着地时, 小球共通过多少路程?18、猴子吃桃问题。猴子第一天摘下若干个桃子，当即吃了一半，还不过瘾，又多吃了一个。第二天早上又将剩下的桃子吃了一半，又多吃了一个。以后每天早上都吃了前一天剩下的一半零一个。到第十天...

我是个Free Pascal新手,我有两个提问,不知高人能否解答
1.在开头引用crt单元：uses crt;在结尾加上repeat until keypressed;运行完后，按任意键退出。2.用Free Pascal 2.4.0,在属性页中选项-当前代码页选中文 (http:\/\/www.freepascal.org\/download.var)1.var str:string;begin assign(input,'d:\\a.txt'); reset(input);assign(output,'d:\\b....

关于Free Pascal 编程问题
for i:=1 to n do begin ……for j:=1 to … do ……end;关键是如何弄出“……”部分。如：1）图应该是如下：每行的星星数与行号数相同所以就是 for i:=1 to n do begin for j:=1 to i do write('*');writeln;{每做完一行要换行} end;{核心内容就是这些，自己加个头尾就行...

free pascal编程,帮忙解释一下,假如能提示更简便的方法就给三十分...
第一个问题：32循环到99：因为它是在四位数中寻找，所以32的平方是1024，31的平方就不是四位数了，同样，99的平方是9801,100的平方就是五位数了 第二个：x代表：代表它模拟的这个平方数 第三个：因为99的平方式9801，不到9999，所以是1 to 8 第四个：if语句：这个if语句的判断条件1111*j，因为...

free pascal题目
编程输出甲、乙、丙在上述过程中各人的磁带数分别是多少? (输出所有的中间结果)19、五位好朋友相聚。第一位朋友带来了很多糖块赠送给各位朋友,使每人的糖块在各自原有的基础上翻了一倍;接着第二位好友也同样向每人赠送糖块,他同样使每人的糖块在各人已有的数量上翻了一倍;第三、第四、第五位好友都照此办理。

初一Free pascal语言题目
初一Free pascal语言题目 题1、求Sn=a+aa+aaa+…+aa…a之值,其中a是一个数字。例如:2+22+222+2222+22222(此时n=5),n由键盘输入。题2、打印100-999之间所有的“水仙花数”。“水仙花数”是一个三位数,其各... 题1、求Sn=a+aa+aaa+…+aa…a 之值,其中a是一个数字。例如:2+22+222+2222+22222...

free pascal
1.裴波那契数列：数列1、1、2、3、5、8、13、21…称为裴波那契数列，它的特点是：数列的第一项是1，第二项也是1，从第三项起，每项等于前两项之和。编程输入一个正整数N，求出数列的第N项是多少？（N不超过30）。program Project1;VAR a:array[1..30] of longint;{建立一个1-30的...