pascal问题

显示全部楼层 · 2009-6-7 16:02:40

第一题
输入n(1<=n<=5000)个正整数，每个数都在1到20000之间；要求对这n个数中的奇数和偶数分别求和。
第二题
1742年6月7日哥德巴赫写信给当时的大数学家欧拉，正式提出了以下的猜想：任何一个大于9的奇数都可以表示成3个质数之和。质数是指除了1和本身之外没有其他约数的数，如2和11都是质数，而6不是质数，因为6除了约数1和6之外还有约数2和3。需要特别说明的是1不是质数。

这就是哥德巴赫猜想。欧拉在回信中说，他相信这个猜想是正确的，但他不能证明。
现在请你编一个程序验证哥德巴赫猜想。
输出格式：
输出文件仅有一行，输出3个质数，这3个质数之和等于输入的奇数。相邻两个质数之间用一个空格隔开，最后一个质数后面没有空格。如果表示方法不唯一，请输出第一个数最小的方案，如果第一个数最小的方案还不唯一，请输出第二个数最小的方案。
第三题：
农夫约翰有两头奶牛，他想要知道，这两头奶牛到底有多相似，所以他给每头奶牛拍了M*N(指M行N列)的数码相片，他想要你写一个程序帮助他。
M*N的数码相片可以分辩出奶牛身上黑色和白色的斑块，下面是两头奶牛的数码照片('X'表示黑色部分，'.'表示白色部分)，其中M=5，N=7。

奶牛 1
奶牛 2

..X....
...X...

.XXX...
..XX...

.XX....
.XX....

.....X.
.XX..X.

.X...X.
.X...X.
要比较这两头奶牛，照片上的每一部分都必须仔细检查。每一个小块将有一个“相似性的得分”，相同得1分，不相同得0分。上面的那两头奶牛可以得到30分，因为他们只有5个地方不相同(详见下图中的"#")。

++##+++

+#+++++

+++++++

+##++++

+++++++
现在给你两头奶牛的照片，你的任务就是找出它们的“相似性得分”。
第四题：牛的速记（shorthand）
奶牛们误解了速记的含义。他们是这样理解的：
给出一个少于250个字母的小写字母串。
找到一个出现次数最多的字母，将该字母从字母串中统统删去，如果出现次数最多的字母不止一个，就删去在字母表中靠前的一个，即序号小的那个，已知a的序号为97，b的序号为98，c的序号为99，以此类推。
然后输出这个字符串。重复上面的操作，直到字符串中没有字符。当然，你不应该输出最后的空串。
虽然他们误解了，但是这却是一个非常好的程序设计想法。用你的程序实现这个过程！
第五题：
曹老师要把N(N<=100)颗糖果分给K(K<=6)个学生，并且要保证每个学生都能分到糖果，问一共有多少种不同的分配方案？
例如:N=5,K=3, 共有6种不同的方案。
5=1+1+3
本方案表示第一和第二个同学各分到1颗糖果，第三个同学分到3颗糖果
5=1+2+2
5=1+3+1
5=2+1+2
5=2+2+1
5=3+1+1

千问 · 2009-6-7 16:02:40

No.1Var n,i,a,b,j:longint;begin
readln(n);a:=0;b:=0;
for i:=1 to n do Begin read(j);if j mod 2=0
then inc(a,j) else inc(b,j);
end;
write(a,' ',b);end. No.2 var a,b,c,i,j,k,n:longint;v:array[1..100000] of boolean; begin readln(n); fillchar(v,sizeof(v),true);v[1]:=false;...

千问 · 2009-6-7 16:02:40

你要说的计算公式为海伦公式（希伦公式）吧，其中S为面积，P为半周长，公式为：S=√[P(P-a)(P-b)(P-c)];P=(a+b+c)/2。代码(自己写的，还没调过)：
pro
vara,b,c,p,s:real;
begin
readln(...