主题:[讨论]能否用 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
实际上循环体是求解定理的方法
我也是查定理的时候看到证明的数学方法的
我来回复