Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.04.2010, 22:32   #1
xxxNeXxxx
Пользователь
 
Регистрация: 18.10.2009
Сообщений: 18
По умолчанию Масив на паскале

Почемуто не работает код
Код:
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 до Н а выдает ошибку. В чём дело ?
xxxNeXxxx вне форума Ответить с цитированием
Старый 12.04.2010, 22:59   #2
ROMA2PVT
ТАМБОВСКИЙ ВОЛК.
Участник клуба
 
Аватар для ROMA2PVT
 
Регистрация: 16.03.2010
Сообщений: 1,354
По умолчанию

Чё хоть прога делать то должна?Ты муть какую то написал.
にんじゃ
ROMA2PVT вне форума Ответить с цитированием
Старый 12.04.2010, 23:02   #3
xxxNeXxxx
Пользователь
 
Регистрация: 18.10.2009
Сообщений: 18
По умолчанию

Цитата:
Сообщение от ROMA2PVT Посмотреть сообщение
Чё хоть прога делать то должна?Ты муть какую то написал.
я с тобой согласен. прога должна пощитать суму кубов от 1 до Н.ищо не доделаная но цыкл уже не пашет =(
xxxNeXxxx вне форума Ответить с цитированием
Старый 12.04.2010, 23:07   #4
ROMA2PVT
ТАМБОВСКИЙ ВОЛК.
Участник клуба
 
Аватар для ROMA2PVT
 
Регистрация: 16.03.2010
Сообщений: 1,354
По умолчанию

n-integer должно быть.Тип то один с i.
にんじゃ
ROMA2PVT вне форума Ответить с цитированием
Старый 12.04.2010, 23:14   #5
xxxNeXxxx
Пользователь
 
Регистрация: 18.10.2009
Сообщений: 18
Печаль

Цитата:
Сообщение от ROMA2PVT Посмотреть сообщение
n-integer должно быть.Тип то один с i.
спасибо я еще тупее чем кажусь
xxxNeXxxx вне форума Ответить с цитированием
Старый 12.04.2010, 23:15   #6
ROMA2PVT
ТАМБОВСКИЙ ВОЛК.
Участник клуба
 
Аватар для ROMA2PVT
 
Регистрация: 16.03.2010
Сообщений: 1,354
По умолчанию

Да и куб то в паскале не sqr.
にんじゃ
ROMA2PVT вне форума Ответить с цитированием
Старый 12.04.2010, 23:23   #7
ROMA2PVT
ТАМБОВСКИЙ ВОЛК.
Участник клуба
 
Аватар для ROMA2PVT
 
Регистрация: 16.03.2010
Сообщений: 1,354
По умолчанию

Код:
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.
Вот так будет.
にんじゃ
ROMA2PVT вне форума Ответить с цитированием
Старый 12.04.2010, 23:28   #8
CodeExpert
Заблокирован
 
Регистрация: 30.10.2009
Сообщений: 468
По умолчанию

Код:
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.
Так было бы правильнее, а то еще начнутся сейчас проблемы с поиском и подключением модулей..
CodeExpert вне форума Ответить с цитированием
Старый 12.04.2010, 23:54   #9
ROMA2PVT
ТАМБОВСКИЙ ВОЛК.
Участник клуба
 
Аватар для ROMA2PVT
 
Регистрация: 16.03.2010
Сообщений: 1,354
По умолчанию

Цитата:
Так было бы правильнее, а то еще начнутся сейчас проблемы с поиском и подключением модулей..
Эт верно да и с преподом могут быть. Процедуры то незнает,а напишет. Лучше сразу всё продумать чтоб хлопот небыло.
にんじゃ
ROMA2PVT вне форума Ответить с цитированием
Старый 13.04.2010, 08:57   #10
Grag
А может и не...
Участник клуба
 
Аватар для Grag
 
Регистрация: 27.03.2010
Сообщений: 1,269
По умолчанию

Код:
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;
Перемешивай дело с бездельем и не сойдешь с ума...
Grag вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Масив MyST1caL Общие вопросы Delphi 1 20.01.2010 23:06
Масив в С++ Smile.id Помощь студентам 7 14.10.2009 13:03
масив в WHERE memka PHP 4 03.04.2009 07:36
масив в паскале microlab Помощь студентам 3 16.01.2009 17:48
Масив rizii Общие вопросы C/C++ 2 09.01.2009 13:30