主题：宰相的麦子
dxwxy
[专家分：80] 发布于 2007-12-22 19:18:00
宰相的麦子
回复列表 （共16个回复）
沙发
dxwxy [专家分：80] 发布于 2007-12-22 19:20:00
宰相的麦子：相传古印度宰相达依尔，是国际象棋的发明者。有一次，国王因为他的贡献要奖励他，问他想要什么。达依尔说：“只要在国际象棋棋盘上（共64格）摆上这么些麦子就行了：第一格一粒，第二格两粒，……，后面一格的麦子总是前一格麦子数的两倍，摆满整个棋盘，我就感恩不尽了。”国王一想，这还不容易，刚想答应，如果你这时在国王旁边站着，你会不会劝国王别答应，为什么？
板凳
patrickforpascal [专家分：150] 发布于 2007-12-22 23:03:00
肯定会，最后一个格子都要放2^64个麦子，光那就有二十位，够国王喝一壶的，更别说和了。
3 楼
dxwxy [专家分：80] 发布于 2007-12-22 23:14:00
patrickforpascal
这是什么原理?
4 楼
dxwxy [专家分：80] 发布于 2007-12-22 23:16:00
输入10个学生的姓名，编一程序将它们按字母的顺序排列。
5 楼
patrickforpascal [专家分：150] 发布于 2007-12-22 23:37:00
Program namesort;
var a:Array[1..10] of string;
i,j:integer;
t:string;
Begin
for i:=1 to 10 do
readln(a[i]);
for i:=1 to 9 do
for j:=i+1 to 10 do
if a[j]<a[i] then
begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
WRITELN;
for i:=1 to 10 do
writeln(a[i]);
End.
(听说过QWORD吗?那是2的65次方-1.去查查它的范围，你就明白了。）
6 楼
dxwxy [专家分：80] 发布于 2007-12-24 20:50:00
5、打印下列图案：（输入N值来控制图案的规模，下列图案均以N=3为例）
&
& &
& & &
& & &
& & &
& & &
*
* * *
* * * * *
# @ *
# # @ @ * *
# # # @ @ @ * * *
不管用吗方法,答正确,给30分!![em9][em9][em9][em9][em9][em9][em9][em9]
7 楼
angwuy [专家分：2280] 发布于 2007-12-24 21:28:00
LS看完pascal基础教程的循环语句部分再来这问问题
8 楼
dxwxy [专家分：80] 发布于 2007-12-27 21:07:00
1． 求s=1+4+7+…+298的值。
2． 编写一个评分程序，接受用户输入10个选手的得分(0-10分)，然后去掉一个最高分和一个最低分，求出某选手的最后得分(平均分)。
3． 用一张一元票换1分、2分和5分的硬币，每种至少一枚， 问有哪几种换法（各几枚）？
每题30分
9 楼
patrickforpascal [专家分：150] 发布于 2007-12-29 23:58:00
第一题：
Program gaosi;
var s,i,n:integer;
Begin
s:=0; n:=1;
for i:=1 to (298-1) div 3+1 do
begin
s:=s+n;
n:=n+3;
end;
writeln(s);
End.
(我用高斯求和原理。）
10 楼
patrickforpascal [专家分：150] 发布于 2007-12-30 00:03:00
第二题：
Program average;
var a:Array[1..10] of integer;
i,j,t:integer;
s:real;
Begin
s:=0;
for i:=1 to 10 do
read(a[i]);
for i:=1 to 9 do
for j:=i+1 to 10 do
if a[i]>a[j] then
begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
for i:=2 to 9 do
s:=s+a[i];
s:=s/8;
writeln(s);
End.
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — 宰相的麦子