主题：[讨论]能否用 for 语句做尼科彻斯定理？
qq32042853
[专家分：0] 发布于 2006-12-17 11:21:00
program nkcsdingli;
var
a,b,c:integer;
begin
write('输入任意正整数:=');
readln(a);
write(a, '*', a, '*', a, '=');
b := 0;
while a>b do
begin
c := (a * a - a + 1 + b * 2);
if b = 0 then Write(c)
else write('+', c);
inc(b);
end;
readln;
end.
请帮忙用 for 语句解决这问题
回复列表 （共6个回复）
沙发
雪光风剑 [专家分：27190] 发布于 2006-12-17 14:05:00
d:=1;
for b:=0 to d
begin
c:=(a*a-a+1+b*2);
if b = 0 then
Write(c)
else
write('+', c);
if a>b then d:=d+1;
end
板凳
zhangyuan [专家分：630] 发布于 2006-12-17 14:34:00
d:=1;
for b:=0 to d -------------for b:=0 to d do
begin
c:=(a*a-a+1+b*2);
if b = 0 then
Write(c)
else
write('+', c);
if a>b then d:=d+1;
end
3 楼
编程黑客 [专家分：1660] 发布于 2006-12-27 22:21:00
begin
c := (a * a - a + 1 + b * 2);
if b = 0 then Write(c)
else write('+', c);
inc(b);
end;
这一段是什么意思啊?能不能解释一下?
4 楼
雪光风剑 [专家分：27190] 发布于 2006-12-28 06:51:00
[quote]begin
c := (a * a - a + 1 + b * 2);
if b = 0 then Write(c)
else write('+', c);
inc(b);
end;
这一段是什么意思啊?能不能解释一下?[/quote]
拜托斑斑去看看尼科彻斯定理的内容就知道
5 楼
编程黑客 [专家分：1660] 发布于 2006-12-28 13:54:00
任何一个整数的立方都可以写成一串连续奇数的和
其实我的水平并不是很高，只是爱回答一些简单点的问题而已。
所以你喊我斑斑，我很惭愧啊。
就直接叫楼上的，或是什么都好
6 楼
雪光风剑 [专家分：27190] 发布于 2006-12-28 15:38:00
实际上循环体是求解定理的方法
我也是查定理的时候看到证明的数学方法的
我来回复
您所在位置：