Масив на паскале

[xxxNeXxxx]

Почемуто не работает код

program N1;
uses crt;
var
   n,y:real;
   i:integer;
   x:array[1..1000]of real;
begin
     clrscr;
     writeln('Input leght :');
     readln(n);
     y:=0;
     for i:=1 to n do begin
         y=sqr(i)+y
     end;
     writeln(n);
     readkey;
end.

вродибы должен цыкл работать от 1 до Н а выдает ошибку. В чём дело ?

[ROMA2PVT]

Чё хоть прога делать то должна?Ты муть какую то написал.

[xxxNeXxxx]

Сообщение от ROMA2PVT

Чё хоть прога делать то должна?Ты муть какую то написал.

я с тобой согласен. прога должна пощитать суму кубов от 1 до Н.ищо не доделаная но цыкл уже не пашет =(

[ROMA2PVT]

n-integer должно быть.Тип то один с i.

[xxxNeXxxx]

Сообщение от ROMA2PVT

n-integer должно быть.Тип то один с i.

спасибо я еще тупее чем кажусь

[ROMA2PVT]

Да и куб то в паскале не sqr.

[ROMA2PVT]

program sum;
var
  Y: real;
  I,N: Integer;
begin
    Y:=0;
    readln(N);
      for I:=1 to N do
       Y:=Y+Power(I, 3);
       WriteLn('Сумма кубов= ',Y:0:0);
    Readkey;
end.

Вот так будет.

[CodeExpert]

program sum;
var
  Y: real;
  I,N: Integer;
begin
    Y:=0;
    readln(N);
      for I:=1 to N do
       Y:=Y+exp(ln(I)*3);
       WriteLn('Сумма кубов= ',Y:0:0);
    Readkey;
end.

Так было бы правильнее, а то еще начнутся сейчас проблемы с поиском и подключением модулей..

[ROMA2PVT]

Так было бы правильнее, а то еще начнутся сейчас проблемы с поиском и подключением модулей..

Эт верно да и с преподом могут быть. Процедуры то незнает,а напишет. Лучше сразу всё продумать чтоб хлопот небыло.

[Grag]

function power(t, k: integer): integer; //возведение числа t в степень k
var
  res:integer;
begin
  res:=1;
  while (k>0) do
  begin
    if (k mod 2=1) then  //   {или напишите "if (k and 1 = 1)" для большей скорости выполнения} 
      res:=res*t;
    t:=t*t;
    k:=k div 2;     //   {или напишите "k := k shr 1;" для большей скорости выполнения}
  end;
  power:=res;
end;