回 帖 发 新 帖 刷新版面

主题:[讨论]能否用 for  语句做尼科彻斯定理?

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个回复)

沙发

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

板凳

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 楼

begin
c := (a * a - a + 1 + b * 2);
if b = 0 then Write(c)
else write('+', c);
inc(b);
end;
 这一段是什么意思啊?能不能解释一下?

4 楼

[quote]begin
c := (a * a - a + 1 + b * 2);
if b = 0 then Write(c)
else write('+', c);
inc(b);
end;
 这一段是什么意思啊?能不能解释一下?[/quote]
拜托斑斑去看看尼科彻斯定理的内容就知道

5 楼

任何一个整数的立方都可以写成一串连续奇数的和

其实我的水平并不是很高,只是爱回答一些简单点的问题而已。
所以你喊我斑斑,我很惭愧啊。
就直接叫楼上的,或是什么都好

6 楼

实际上循环体是求解定理的方法
我也是查定理的时候看到证明的数学方法的

我来回复

您尚未登录,请登录后再回复。点此登录或注册