Следующая закономерность

[gennadii]

Напишите программу возведения натурального числа в квадрат, используя следующую закономерность:
1 = 1,
2 = 1+3,
3 = 1+3+5,
4 = 1+3+5+7,
..................
n = 1+3+5+7+9+...+2n-1

Я могу просто возвести в квадрат:

Program odin;
Uses crt;
Const
  n=15;
Var
  a,i:integer;
Begin
  clrscr;
  Writeln('Zakonomernost');
  Writeln;
    for i:=1 to n do begin
    a:=sqr(i);
    Writeln('',i,'=',a);
    end;
  Readkey;
End.

А вот как сделать по заданию, никак не врублюсь? Наведите пожалуйста на путь истинный, спасибо.

[Smitt&Wesson]

Нужно зделать приращение шага не 1, а 2. Как это делается в Паскале не помню, но в С++ это делается так:

for(int i=1; i < n; i+=2){}

[Mad_Cat]

i:=1;s:=0;
while i<=2*n-1 do
begin
s:=s+i;
inc(i,2);
end;

[gennadii]

А можно это сделать только с помощью цикла for?

[Serge_Bliznykov]

А можно это сделать только с помощью цикла for?

Можно, но очень нежелательно.
оператор For в Паскаль/Delphi не допускает другого шага цикла, кроме как 1 (или -1 для downto )
поэтому, прийдётся,

или использовать хакерские приёмчики по изменению переменной внутри цикла,

или заводить дополнительную переменную (и её уже наращивать внутри цикла на 2),

или дополнительное условие, чтобы проверять, какое i сейчас (но цикл будет выполняться примерно в два раза дольше, т.к. число срабатываний в цикле будет для каждого i - хоть чётного, хоть нечётного...). Т.е. это будет не очень эффективно.

для последнего варианта:

s:=0;
for i:=1 to 2*n-1 do
  if odd(i) then s := s + i;

чем Вам while не угодил то?!

[Abstraction]

оператор For в Паскаль/Delphi не допускает другого шага цикла, кроме как 1 (или -1 для downto )
поэтому, прийдётся,

или использовать хакерские приёмчики по изменению переменной внутри цикла,

или заводить дополнительную переменную (и её уже наращивать внутри цикла на 2),

или дополнительное условие, чтобы проверять, какое i сейчас

...или прибавлять к сумме на каждой итерации (2*i-1).