Не могу разобраться в чём ошибка

@Trex_22 · Регистрация: 31.01.2012

Author24 — интернет-сервис помощи студентам

Помогите, пожалуйста, разобраться в чём ошибка

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var St:extended;
N:array [0..30] of integer; // пробовал менять на extended, хотя не склонен считать что это необходимо тут
a,b:extended; // пробовал менять на integer 
r,i:integer;
begin
N[0]:=StrToInt(Edit1.text);
R:=StrToInt(Edit2.text);
A:=StrToInt(Edit3.text);
B:=StrToInt(Edit4.text);
St:=Power((a*n[i]),b);
for i:=1 to 29 do
  begin
N[i+1]:=r*N[i]/(1+St); // тут показывает ошибку, положение курсора сразу же после ";"
  end;
for i:=0 to 29 do
StringGrid1.Cells[i, 0]:=IntToStr(N[i]);
end;
 
end.

выдаёт следующее: [Ошибка] Unit1.pas(49): Incompatible types: 'Integer' and 'Extended'

суть программы в том, что реализовать следующую формулу: N[i+1]=(r*N[i])/(1+(a*N[i])^b)
и вывести в StringGrid в строку результат,
а после построить график зависимости N от i (но там мне всё пока что понятно - помощь не требуется)
ранее создавал подобную программу, но без необходимости возведения в степень, там всё было нормально, программа работала правильно, может я просто упустил из виду что-то элементарное.

Добавлено через 40 минут
так как в самом задании не обязательно чтобы пользователь вводил N[0], r, a, b, то я решил задать их как константы и внёс ещё кое-какие изменения, вот переделанный вариант:

Delphi

function step(x,y:real):real;
begin
step:=Exp(y*ln(x));
end;
 
procedure TForm1.Button1Click(Sender: TObject);
const
r=20;
a=0.015;
b=3.6;
var N:array [0..30] of real;
i:integer;
begin
N[0]:=20;
{R:=StrToInt(Edit2.text);
A:=StrToInt(Edit3.text);
B:=StrToInt(Edit4.text);}
for i:=1 to 29 do
  begin
  N[i+1]:=r*N[i]/(1+step((a*n[i]),b));
  end;
for i:=0 to 29 do
StringGrid1.Cells[i, 0]:=FloatToStr(N[i]);
end;
 
end.

@Arcor · 18.03.2012, 18:36

если делим, то число автоматически уже не Int, а Float, массив Int а значения получаются Float нужно так сделать

Delphi

1	N[i+1]:=Round(r*N[i]/(1+St));

@Trex_22 · 18.03.2012, 18:47 **[ТС]**

теперь программа запускается, но выдаёт ошибки при нажатии на кнопку:
Проект Project2.exe вызвал исключение класса EOverflow с сообщением 'Floating point overflow'

Добавлено через 2 минуты

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

если делим, то число автоматически уже не Int, а Float, массив Int а значения получаются Float нужно так сделать
Код Delphi
1
N[i+1]:=Round(r*N[i]/(1+St));

сейчас попробую, вернув старый вариант, спс.

Добавлено через 6 минут
Arcor, теперь программа запускается, но выдаёт ошибку при нажатии на кнопку:
access violation at address 0045e3b5 in module 'project2.exe' Read of address 011dc050

@Arcor · 18.03.2012, 19:00

у тебя массив 0..30, а ты циклом берешь 1..29

@Trex_22 · 18.03.2012, 19:07 **[ТС]**

Arcor, N[0] должен задаваться пользователем, ну или константой, что допускает условие задачи
если вы про задание массива, то там, даже исправив на 0..29, в вычислении беру i от 1 до 29, ошибка при компиляции не выдаётся но при попытке задать а=0,015 выдаёт ошибку конвертирования, хотя A:=StrTofloat(Edit3.text);

@Arcor · 18.03.2012, 19:12

вот тут почему он должен со второго элемента стартовать?

Delphi

N[i+1]

где тогда первый (1) элемент?

@Trex_22 · 18.03.2012, 19:18 **[ТС]**

Arcor, N[0] должен задаваться пользователем, ну или константой, что допускает условие задачи, N[0] - 1й эл-т массива

Добавлено через 2 минуты
Arcor, теперь в вычислении беру i от 0 до 29, ошибка при компиляции не выдаётся но при попытке задать а=0,015 выдаёт ошибку конвертирования, хотя A:=StrTofloat(Edit3.text);

@Arcor · 18.03.2012, 19:23

так а константа, ее менять нельзя в течении программы

@Trex_22 · 18.03.2012, 19:26 **[ТС]**

Arcor,
в общем сейчас программа выглядит так:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var St:extended;
N:array [0..29] of integer; 
a,b,r:real; 
i:integer;
begin
N[0]:=StrToInt(Edit1.text);
R:=StrTofloat(Edit2.text);
A:=StrTofloat(Edit3.text);
B:=StrTofloat(Edit4.text);
St:=Power((a*n[i]),b);
for i:=0 to 29 do
  begin
N[i+1]:=Round(r*N[i]/(1+St)); 
  end;
for i:=0 to 29 do
StringGrid1.Cells[i, 0]:=IntToStr(N[i]);
end;

контрольные значения: n[0]=20, r=4.0, a=0.015, b=3.6

@Arcor · 18.03.2012, 19:28

я бы 18 строку вставил бы сразу за 15, и выкинул бы второй цикл

@Trex_22 · 18.03.2012, 19:39 **[ТС]**

Arcor,

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var St:extended;
N:array [0..29] of integer;
a,b,r:real;
i:integer;
begin
N[0]:=StrToInt(Edit1.text);
R:=StrToFloat(Edit2.text);
A:=StrTofloat(Edit3.text);
B:=StrTofloat(Edit4.text);
St:=Power((a*n[i]),b);
for i:=0 to 29 do
  begin
N[i+1]:=Round(r*N[i]/(1+St)); 
  StringGrid1.Cells[i, 0]:=IntToStr(N[i]);
  end;
end;
 
end.

программа стала выглятеть лишь немного более эргономичной, но ошибка осталась при вводе контрольных значений n[0]=20, r=4.0, a=0.015, b=3.6
Проект Project2.exe вызвал исключение класса EConvertError с сообщением '0.015' is not valid floating point value'

@Arcor · 18.03.2012, 19:44

ты с точкой или запятой вводишь? наверно нужно с запятой вводить, это так стандартно в Windows'е настроен децимальный разделитель
а то что с точкой, это уже сама особенность языка дельфи

@Trex_22 · 18.03.2012, 19:52 **[ТС]**

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

ты с точкой или запятой вводишь? наверно нужно с запятой вводить, это так стандартно в Windows'е настроен децимальный разделитель
а то что с точкой, это уже сама особенность языка дельфи

Arcor, раскладка "EN", ввожу если с "," то выдаёт: access violation at address 0045e2b2 in module 'project2.exe' Read of address 011dc170
ввожу если с "." то выдаёт: Проект Project2.exe вызвал исключение класса EConvertError с сообщением '0.015' is not valid floating point value'
предложения, варианты?

@Arcor · 18.03.2012, 19:55

Delphi

1	St:= Power((a*n[i]),b);

в этой строке i, может эту строку поместить в цикл

@Trex_22 · 18.03.2012, 20:09 **[ТС]**

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

в этой строке i, может эту строку поместить в цикл

выдаёт: Проект Project2.exe вызвал исключение класса EConvertError с сообщением '0.015' is not valid floating point value'

Добавлено через 2 минуты
Arcor, с "." выдало нормально!!!!!!!!!!!!!!!!
спасибо огромное

@Arcor · 18.03.2012, 20:12

вот так работает

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var St:extended;
    N:array [0..29] of integer;
    a,b,r:real;
    i:integer;
begin
  N[0]:=StrToInt(Edit1.text);
  R:=StrToFloat(Edit2.text);
  A:=StrTofloat(Edit3.text);
  B:=StrTofloat(Edit4.text);
  for i:=0 to 29 do
    begin
      St:=Power((a*n[i]),b);
      N[i+1]:=Round(r*N[i]/(1+St));
      StringGrid1.Cells[i, 0]:=IntToStr(N[i]);
    end;
end;

@Trex_22 · 18.03.2012, 20:14 **[ТС]**

Arcor, спасибо огромное :dance3:

@Arcor 5705 / 2296 / 466 Регистрация: 20.11.2009 Сообщений: 7,720 Записей в блоге: 1
	18.03.2012, 19:28	10
	я бы 18 строку вставил бы сразу за 15, и выкинул бы второй цикл 0

@Trex_22 0 / 0 / 1 Регистрация: 31.01.2012 Сообщений: 30
	18.03.2012, 19:52 [ТС]	13
	Сообщение от Arcor ты с точкой или запятой вводишь? наверно нужно с запятой вводить, это так стандартно в Windows'е настроен децимальный разделитель а то что с точкой, это уже сама особенность языка дельфи Arcor, раскладка "EN", ввожу если с "," то выдаёт: access violation at address 0045e2b2 in module 'project2.exe' Read of address 011dc170 ввожу если с "." то выдаёт: Проект Project2.exe вызвал исключение класса EConvertError с сообщением '0.015' is not valid floating point value' предложения, варианты? 0

@Trex_22 0 / 0 / 1 Регистрация: 31.01.2012 Сообщений: 30
	18.03.2012, 18:47 [ТС]	3
	теперь программа запускается, но выдаёт ошибки при нажатии на кнопку: Проект Project2.exe вызвал исключение класса EOverflow с сообщением 'Floating point overflow' Добавлено через 2 минуты Сообщение от Arcor если делим, то число автоматически уже не Int, а Float, массив Int а значения получаются Float нужно так сделать Код Delphi 1 N[i+1]:=Round(rN[i]/(1+St)); сейчас попробую, вернув старый вариант, спс. Добавлено через 6 минут* Arcor, теперь программа запускается, но выдаёт ошибку при нажатии на кнопку: access violation at address 0045e3b5 in module 'project2.exe' Read of address 011dc050 0

@Arcor 5705 / 2296 / 466 Регистрация: 20.11.2009 Сообщений: 7,720 Записей в блоге: 1
	18.03.2012, 19:00	4
	у тебя массив 0..30, а ты циклом берешь 1..29 0

@Trex_22 0 / 0 / 1 Регистрация: 31.01.2012 Сообщений: 30
	18.03.2012, 19:07 [ТС]	5
	Arcor, N[0] должен задаваться пользователем, ну или константой, что допускает условие задачи если вы про задание массива, то там, даже исправив на 0..29, в вычислении беру i от 1 до 29, ошибка при компиляции не выдаётся но при попытке задать а=0,015 выдаёт ошибку конвертирования, хотя A:=StrTofloat(Edit3.text); 0

@Trex_22 0 / 0 / 1 Регистрация: 31.01.2012 Сообщений: 30
	18.03.2012, 19:18 [ТС]	7
	Arcor, N[0] должен задаваться пользователем, ну или константой, что допускает условие задачи, N[0] - 1й эл-т массива Добавлено через 2 минуты Arcor, теперь в вычислении беру i от 0 до 29, ошибка при компиляции не выдаётся но при попытке задать а=0,015 выдаёт ошибку конвертирования, хотя A:=StrTofloat(Edit3.text); 0

@Arcor 5705 / 2296 / 466 Регистрация: 20.11.2009 Сообщений: 7,720 Записей в блоге: 1
	18.03.2012, 19:23	8
	так а константа, ее менять нельзя в течении программы 0

@Arcor 5705 / 2296 / 466 Регистрация: 20.11.2009 Сообщений: 7,720 Записей в блоге: 1
	18.03.2012, 19:44	12
	ты с точкой или запятой вводишь? наверно нужно с запятой вводить, это так стандартно в Windows'е настроен децимальный разделитель а то что с точкой, это уже сама особенность языка дельфи 0

@Trex_22 0 / 0 / 1 Регистрация: 31.01.2012 Сообщений: 30
	18.03.2012, 20:09 [ТС]	15
	Сообщение от Arcor в этой строке i, может эту строку поместить в цикл выдаёт: Проект Project2.exe вызвал исключение класса EConvertError с сообщением '0.015' is not valid floating point value' Добавлено через 2 минуты Arcor, с "." выдало нормально!!!!!!!!!!!!!!!! спасибо огромное 0

@Trex_22 0 / 0 / 1 Регистрация: 31.01.2012 Сообщений: 30
	18.03.2012, 20:14 [ТС]	17
	Arcor, спасибо огромное :dance3: 0